请教大神，entmake生成不了文字?
请教大神，我用下面的写法，为什么没有文字生成呢？(defun c:ttt()
(setq aa (getpoint))
(setq bb(getpoint))
(em_text aa bb "哈哈")
)
(defun em_text (sp ep nr )
(setq ee(list (/ (+ (car sp) (car ep)) 2) (/ (+ (cadr sp) (cadr ep)) 2) ))
(entmake (list ;
'(0 . "TEXT") ;文字
(cons 8 "ACS_COM");文字图层
(cons 10 ee);(第1点)
(cons 40 300);文字高度
(cons 1 nr);文字内容的变量
(cons 7 "BGY");文字样式
(cons 72 1);71=显示模式(1=正常 2=左右颠倒 3=上下颠倒)72=水平对齐模式(0=靠左 1=中央 2=靠右 3=Align 4=Middle 5=Fit)
(cons 11 ee);(第2点)
(cons 73 0);73=垂直对齐模式(0=基线 1=底部 2=中央 3=顶部)
)
)
)
碧某园？？？？？ 同一点怎么直线 lxw320 发表于 2019-3-10 14:18
碧某园？？？？？
是哈:victory::victory:
这问题解决了，我是entmake文字，因为文字样式没有提前设置，所有没法生成。
页:
[1]