[求助]entmakex 问题

north911

  (entmakex (list '(0 . "TEXT")
         '(100 . "AcDbEntity")
         '(100 . "AcDbText")
         (cons 10 pttext1)
         (cons 1 text1)
         (cons 40 0.3)
         (cons 41 0.65)
         (cons 72 1 )
         '(7 . "Standard")
         '(8 . "bzh")
  　　 )
       )
为什么这个不能生成文字呢，主高手指教！

NetBee

用了72或73组码，就必须要11组码了

2. (defun c:test (/ pt0 text)
3.   (setq pt0  (getpoint "\n确定文本点：")
4. text "test"
5.   )
6.   (entmakex (list '(0 . "TEXT")
7.     '(100 . "AcDbEntity")
8.     '(100 . "AcDbText")
9.     (cons 10 pt0)
10.     (cons 11 pt0)
11.     (cons 1 text)
12.     (cons 40 0.3)
13.     (cons 41 0.65)
14.     (cons 72 1)
15.     '(7 . "Standard")
16.     '(8 . "bzh")
17.     　　
18.      )
19.   )
20. )

(defun c:test (/ pt0 text)   (setq pt0  (getpoint "\n确定文本点：") text "test"   )   (entmakex (list '(0 . "TEXT")     '(100 . "AcDbEntity")     '(100 . "AcDbText")     (cons 10 pt0)     (cons 11 pt0)     (cons 1 text)     (cons 40 0.3)     (cons 41 0.65)     (cons 72 1)     '(7 . "Standard")     '(8 . "bzh")     　　      )   ) )