[编程交流] 生成文本时出现问题

(setq nt (entmakex (list
   '(0 . "TEXT")
   '(100 . "AcDbEntity")
   '(67 . 0)
   '(100 . "AcDbText")
   (cons 10 c)
   (cons 11 c)
   (cons 40 v)
[b][color=red]    '(1 . "text1 text2")[/color][/b]
   '(50 . 0.0)
   '(62 . 161)
   '(41 . 1.0)
   '(51 . 0.0)
   '(71 . 0)
   '(72 . 0)
   '(73 . 1)
 )))

 '(1 . (strcat "Text1 " var " Text2")); var = "abc"

'(1 . (strcat "Text1 " " Text2"))

bad DXF group: (1 STRCAT "Text1" " Text2") 

(setq p (getpoint "\Pick: "))
(entmake
       (list
       '(0 . "TEXT")
       '(100 . "AcDbEntity")
       '(100 . "AcDbText")      
       (cons 1 "tex1 text2");string
       (cons 7 "Standard");style
       (cons 8 "0");layer
'(62 . 256);color
       (cons 10 p);insertion point
       (cons 11 p);alignment point
       (cons 40 2.5);text height
(cons 41 1.0);text width
(cons 50 0.0);1.5708 - vertical, 0.0 - horizontal
(cons 51 0.0);oblique angle 
'(72 . 1)));bottom center