请教entmake问题:此句 (entmake '((0 . "ATTRIB")(10...

shicai

此句  (entmake '((0 . "ATTRIB")(10 8.8 1.04 0.0)(40 . 0.21)(1 . "INCH")
             (7 . "Romand")(72 . 1)(11 7.07 1.23 0.0)(2 . "Unit")(70 . 0)))
运行无误,
但:
(setq pt '(7.07 1.23 0.0))
(entmake '((0 . "ATTRIB")(10 8.8 1.04 0.0)(40 . 0.21)(1 . "INCH")
             (7 . "Romand")(72 . 1)(11 pt)(2 . "Unit")(70 . 0)))
运行出错, 为何?

龙龙仔

(setq PT '(7.07 1.23 0.0))
(entmake (append '((0 . "ATTRIB")
                   (10 8.8 1.04 0.0)
                   (40 . 0.21)
                   (1 . "INCH")
                   (7 . "Romand")
                   (72 . 1)
                  )
                 (list (cons 11 PT))
                 '((2 . "Unit")
                   (70 . 0)
                  )
         )
)