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

文字到特定图层LISP

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

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

 
    (list '(0 . "TEXT,MTEXT,MULTILEADER,LEADER")
      (cons 8 layoriginal)
   )
 
读一下李的话

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

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

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

只要看一眼

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

 
对不起，我没有测试代码

ksperopoulos 发表于 2022-7-5 18:37:31

你为什么不直接使用李的图层控制器程序呢？

broncos15 发表于 2022-7-5 18:43:32

不用担心。这让它开始工作了，非常感谢。出于某种原因，它每次都会复制所有内容并将其放在第0层，但除此之外，它工作得很好。

Lee Mac 发表于 2022-7-5 18:51:36

 
非常感谢您的推荐！
 
 
如果不测试代码，我认为这里需要一个空字符串：
4也用“非”表示良好测量。

halam 发表于 2022-7-5 19:02:06

层控制器是您所需要的一切。。（你错过了什么？）

broncos15 发表于 2022-7-5 19:07:23

Layer director是一个很棒的程序，我确实使用它。然而，这不是本课程的目的。我需要复制所有文本，因为它与视口布局有关（需要有相同的文本，只是方向不同，等等）。因此，我最终尝试使用visual lisp来实现这一点，但仍然存在问题。我的代码是5
页: [1]
查看完整版本: 文字到特定图层LISP