寻找变化层李

ReMark · 发表于 2022-7-5 16:09:26

我本可以发誓在CADTutor上有一个帖子，但由于过度暴露在电磁射线下，我的外星大脑无法定位它。

我正在搜索一个lisp例程，该例程将接受所有文本和多行文字，无论它们位于哪个层，并将它们放在一个名为“Text”的层上。我有一些来自外部供应商的图纸需要合并，以便我们使用它们。最好采用一步方法。

有人能给我指出正确的方向吗？提前感谢您的帮助。

Tharwat · 发表于 2022-7-5 16:22:10

您好，备注，

请尝试以下操作，如果图层名“Text”在图形中尚不可用，则应创建图层名“Text”。

copy


(defun c:Test ( / s i sn)
 ;; Tharwat - Move (m)Texts to layer Text        ;;
    (and (setq s (ssget "_X" '((0 . "*TEXT"))))
         (setq i -1)
         (while (setq sn (ssname s (setq i (1+ i))))
            (entmod (append (entget sn) '((8 . "TEXT"))))
           )
      )  
 (princ)
 )