【已解决】command 下的dtext怎么输入文字啊？
本帖最后由 taocitc 于 2011-6-18 14:02 编辑command 下的dtext怎么输入文字啊？
刚开始学习lisp，想写个标高
(defun c:bg()
(setq p0 (getpoint "\n标高插入点:"))
(setq th "标高")
(setq p1 (list (+ (car p0) 80) (+ (cadr p0) 80)))
(setq p2 (list (- (car p1) 160) (cadr p1)))
(setq p3 (list (- (car p1) 500) (cadr p1)))
(command "pline" p2 "w" 0 0p0 p1 p3 "")
(command ".dtext" "j" "bc" p3 100 0th);不能正常运行 ,得不到标高这两个字
)
另外有时候会出现不是我想要的图形怎么回事？
原来用text就可以，不用dtext了……
(defun c:bg()
(setq p0 (getpoint "\n标高插入点:"))
(setq th "标高")
(setq p1 (list (+ (car p0) 80) (+ (cadr p0) 80)))
(setq p2 (list (- (car p1) 160) (cadr p1)))
(setq p3 (list (- (car p1) 500) (cadr p1)))
(command "pline" p2 "w" 0 0p0 p1 p3 "")
(command "text" "bc" p3 100 0th);不能正常运行 ,得不到标高这两个字
)
..出现不是我想要的图形...
check osmode .... 本帖最后由 taocitc 于 2011-6-18 14:02 编辑
回复 Andyhon 的帖子
谢谢，设置好osmode可以得到我想要的图形了
dtext换成text就可以了……
页:
[1]