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

shicai · 发表于 2002-12-12 06:23:00

此句  (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)))
运行出错, 为何?

龙龙仔 · 发表于 2002-12-12 08:43:00

(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)
               )
      )
)

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

发表回复

精选推荐

请教entmake问题:此句 (entmake '((0 . &quot;ATTRIB&quot;)(10...

发表回复

精选推荐

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