按层设置

loudy000 · 发表于 2022-7-5 15:50:09

(defun c:tt (/ CNT DXDT DXFDNEW DXFNEW DXFOLD ENT SSET )
 (command "_.Layer" "_Make" "L-ANNO_TEXT" "_Color" "7" "" "_LType" "Continuous" "" "")
 (setq sset (ssget))
 (setq cnt 0)
 (repeat (sslength sset)
   (setq ent (ssname sset cnt))
   (setq dxdt (entget ent))
   (setq dxfold (assoc 8 dxdt))
   (setq dxfnew '(8 . "L-ANNO_TEXT"))
   (setq dxfdnew (subst dxfnew dxfold dxdt))
   (entmod dxfdnew)
   (setq cnt (1+ cnt))
 )
[color="olive"][color="olive"][color="red"](command "change" "P" "c" "" "BYLAYER" "" sset)[/color][/color][/color]
 (princ)
)

首先，感谢Grrr在上述程序上对我的帮助。它工作得很好。我只想再添加一个命令，将图层颜色设置为“按图层”。我试图添加突出显示的代码，但没有成功。任何帮助都将不胜感激。提前谢谢。

loudy000 · 发表于 2022-7-5 15:56:08

copy


(defun c:tt (/ CNT DXDT DXFDNEW DXFNEW DXFOLD ENT SSET )
 (command "_.Layer" "_Make" "L-ANNO_TEXT" "_Color" "7" "" "_LType" "Continuous" "" "")
 (setq sset (ssget))
 (setq cnt 0)
 (repeat (sslength sset)
   (setq ent (ssname sset cnt))
   (setq dxdt (entget ent))
   (setq dxfold (assoc 8 dxdt))
   (setq dxfnew '(8 . "L-ANNO_TEXT"))
   (setq dxfdnew (subst dxfnew dxfold dxdt))
   (entmod dxfdnew)
   (setq cnt (1+ cnt))
 )
(command "CHPROP" sset "" "COLOR" "BYLAYER" "LTYPE" "BYLAYER" "")
 (princ)
)

知道了！

Grrr · 发表于 2022-7-5 15:58:11

您还可以使用子功能更改重复循环中的实体颜色：
史蒂夫

StevJ · 发表于 2022-7-5 16:06:09

@StevJ你试过命令setbylayer吗？

不确定添加了哪个版本的AutoCAD，但其工作原理与您发布的代码类似。具有在块上工作的优势。注意，命令行上的设置提示可以修改命令的工作方式-仅限setbylayer颜色、线型等。。

jammie · 发表于 2022-7-5 16:07:37

是的，我不是它的真正粉丝。要得到结果，需要回答的问题太多。
我想选择我的对象，发出命令（BL），按Enter键并继续。

史蒂夫

StevJ · 发表于 2022-7-5 16:13:19

我非常感谢Grrr，但我只知道基本代码；(

loudy000 · 发表于 2022-7-5 16:14:40

谢谢StevJ，我以后会用这个。

loudy000 · 发表于 2022-7-5 16:19:07

好啊我真的很烦，我不能相信作者，所以我在搜索了一段时间后又找到了它。

作者：LeeMac 2010年2月2日
http://www.cadtutor.net/forum/showthread.php?44398-宏
职位#2

史蒂夫

StevJ · 发表于 2022-7-5 16:24:28

非常感谢史蒂夫，我很欣赏你的高贵。

以下是Vanilla AutoLISP版本，它可能提供更好的性能：
或者，为了避免选择已经具有所需特性的对象：

copy

(defun c:bl ( / i s )
   (if (setq s (ssget "_:L"))
       (repeat (setq i (sslength s))
           (entmod (append (entget (ssname s (setq i (1- i)))) '((006 . "ByLayer") (062 . 256) (370 . -1))))
       )
   )
   (princ)
)

Lee Mac · 发表于 2022-7-5 16:27:13

这张看起来很有创意，谢谢你的发帖！

[编程交流] 按层设置

发表回复

精选推荐