请教大神，entmake生成不了文字?

fs_lzh1988

请教大神，我用下面的写法，为什么没有文字生成呢？

(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

碧某园？？？？？

lxw320

同一点怎么直线

fs_lzh1988

lxw320 发表于 2019-3-10 14:18
碧某园？？？？？

是哈

这问题解决了，我是entmake文字，因为文字样式没有提前设置，所有没法生成。