社区 › Auto Lisp › 在d中填充所有闭合多段线

ectech 发表于 2022-7-6 07:32:33

在d中填充所有闭合多段线

尊敬的各位：，
 
我想在不同的图层中填充所有闭合的多段线，并使其具有不同的颜色。有人知道怎么做吗？
 
谢谢

MSasu 发表于 2022-7-6 07:37:39

基本上，可以使用：
 
(setq ClosedPlinesSSet (ssget "_X" (LIST '(0 . "LWPOLYLINE") '(70 . 1)))   ;select all closed polylines
   CrIndex 0)

(repeat (sslength ClosedPlinesSSet)                                        ;parse selection set items
(setvar "CECOLOR" (itoa (1+ CrIndex)))                                    ;change current color
(command "_HATCH" "_U" 45 1 "_N" (ssname ClosedPlinesSSet CrIndex) "")    ;apply hatch
(setq CrIndex (1+ CrIndex))                                             ;go to next entity
)
 
 
 
当做

fixo 发表于 2022-7-6 07:46:42

 
这是另一个
（定义C:hat（/color en ha hp hs lname ltable sset）（setq hp（getvar“hpname”））（setvar“hpname”“ANSI37”）；

alanjt 发表于 2022-7-6 07:50:07

这条线索可能很有趣。
 
http://www.cadtutor.net/forum/showthread.php?p=317755

Lee Mac 发表于 2022-7-6 07:55:24

 
难道他不喜欢那条线索中的答案吗？

alanjt 发表于 2022-7-6 08:02:04

世界跆拳道联盟？！
我甚至没有注意到是同一个人。我想这篇文章毫无意义。他可能也永远不会回应这个问题。

Lee Mac 发表于 2022-7-6 08:05:37

 
我的想法完全正确。

alanjt 发表于 2022-7-6 08:11:40

呃。。。。。。。。。。。。。

Baber62 发表于 2022-7-6 08:17:35

嗨，菲索，
最后一行应更改为（princ）not（prin1）。
 
我想知道是否可以修改例程，以便如果该区域已被填充，则不会再次被填充。
 
我已经尝试了这个程序，它运行得很好，除了我正在绘制的图纸中已经有一些图案填充，当我运行这个程序时，相同的区域再次被填充。
 
我期待着您的回复，满怀期待。

Lee Mac 发表于 2022-7-6 08:20:35

 
为什么？

查看完整版本: 在d中填充所有闭合多段线