多个l中的多个图案填充

romrom · 发表于 2022-7-5 19:53:18

你好
当我将多边形从arcgis导出到autocad时，我失去了所有图案填充，从不同的层，我只得到了闭合的多段线！
问题：是否可以使用lisp在不同图层中使用这些图层中的所有闭合多段线同时创建不同的图案填充类型？
谢谢你的帮助

danellis · 发表于 2022-7-5 19:59:22

“简单”的方法是循环检查闭合多段线的选择。
如果对象是闭合多段线，则读取其图层，并将其设置为当前。
在当前图层上填充对象。
可能这段代码的四分之三本质上是在模仿您在命令行上的操作。

一种更复杂但可能更快的编码方法是对所有对象进行排序，根据它们的层对它们进行过滤，并过滤到列表中以匹配。
然后，您可以循环浏览这些列表，将其填充到特定层上。

dJE

BIGAL · 发表于 2022-7-5 20:09:10

需要一个样例dwg和一些规则图案填充在什么图层上等。像danellis这不是一个很难的任务，但最好做一次，因此需要一个样例。

romrom · 发表于 2022-7-5 20:13:07

cadtutor。图纸

这是一个样例dwg，它只包含具有闭合多段线的良好图层。
所以我需要在多段线所在的同一层中填充每个层的每个闭合多段线。。。
非常感谢您的回答！

BIGAL · 发表于 2022-7-5 20:18:58

这有点粗糙，但这是一个开始，并给出了方法。有一个问题可能是多段线是按颜色而不是按层。

copy


(defun c:polhatch ( / obj ss len layname)
(setq oldhatch (getvar "HPNAME")) 
(setq ss (ssget "X" (list (cons 0 "LWPOLYLINE"))))
(setq len (sslength  ss))
(setq x 0)
(repeat len
(setq obj (entget (ssname ss x)))
(setq layname (cdr (assoc 8 obj)))
(setvar "Clayer" layname)
;(setvar "hpname" "newhatchpattern") ;Sets a default hatch pattern name of up to 34 characters without spaces
(command "-hatch" "S" (cdr (assoc -1 obj)) "" "")
(setq x (+ x 1))
)
(setvar "Hpname" oldhatch) ;reset back to original pattern
)