填充所有闭合多段线

parksj10 · 发表于 2022-7-5 18:32:18

大家好，

我被派到这里——LISP子窗体——来乞求您的编程怜悯。我被告知，解决我的问题最简单的方法是对所有闭合多段线进行阴影处理。这是我的原始帖子，请自己决定这是否是最简单的方法，如果是，我将非常感谢一个简单的LISP例程！

BIGAL · 发表于 2022-7-5 19:18:37

这里有一个简单的示例作为开始，在打印之前使用它。通过添加变量设置，可以为填充图案添加更多控制。


; by big-al
(defun AH:fillpl ( / obj ss)
(setq ss (ssget "X" (list (cons 0 "*polyline"))))
(setq num (sslength ss))
(setq x num)
(repeat num
(setq obj (cdr (assoc -1 (entget (ssname ss (setq x (- x 1)))))))
(setvar "hpname" "solid")
(setvar "hpcolor" "1")
(command "-Hatch" "s" obj "" "")
)
)
(AH:fillpl)

satishrajdev · 发表于 2022-7-5 19:49:12

另一个：-

[code]（DEFUN C：测试（/A B C D）（IF（AND（SETQ A（SSGET’（（0.*折线））（70.1））（SETQ D（VLA-GET-MODELSPACE（VLA-GET-ACTIVEDOCUMENT（VLAX-GET-ACAD-OBJECT））））（重复（SETQ I（SSLENGTH A））（SETQ B（VLAX-ENAME->VLA-OBJECT（SSNAME A（SETQ I（1-I k））））））））（SETQ C（VLA-ADDHATCH D achatchPatternType预定义的“SOLID”：VLAX-TRUE ACHATCHOBJECT））（VLAX-INVOKE C’APPENDINNERLOOP（列表B））（VLA-EVALUATE C）（VLA-PUT-COLOR C 5）；

[编程交流] 填充所有闭合多段线

发表回复

精选推荐