文字到特定图层LISP

broncos15 · 发表于 2022-7-5 18:05:32

我知道我可能犯了一个愚蠢的错误，但我不明白为什么我简单的texttolayer LISP例程不起作用。我的代码是：
它在布局原始部分不断中断，但我不知道我是如何错误地做到这一点的。

hanhphuc · 发表于 2022-7-5 18:16:17

    ([color="blue"]list[/color] '(0 . "TEXT,MTEXT,MULTILEADER,LEADER")
      ([color="blue"]cons[/color] 8 layoriginal)
     )

读一下李的话

broncos15 · 发表于 2022-7-5 18:27:36

如果我正确理解李的文章。我需要为ssget做这件事
这仍然是不可行的想法。我错过什么了吗？

hanhphuc · 发表于 2022-7-5 18:31:18

只要看一眼

copy


;...
;...
 (if (and
(setq layoent ([color="blue"]car[/color](entsel "\nSelect object on original layer: ")))
(setq laydent ([color="blue"]car[/color](entsel "\nSelect object on destination layer: ")))
     )
   (progn
     (setq layoriginal (cdr (assoc 8 ([color="blue"]entget[/color] layoent))))
;...
;...