边界然后图案填充

Jhun Gonzalo · 发表于 2022-7-6 10:35:52

大家好，

大家好：D有没有人有一条路线可以使用多段线创建边界，拾取要填充的侧面区域。然后通过填充图案填充自动选择边界，（在一个命令中创建边界，然后填充），然后在填充图案填充区域时，边界将被删除。

由于大文件和不规则形状的区域进行图案填充，当我选择它时，它将读取更长的时间和一些挂起，所以我将创建一个边界创建在封闭的多段线（使用直线和圆弧）进行图案填充，这是可能的组合在一个命令中只有一个，请提供我，如果你有这个路线谢谢

当做
JG公司

Oliver · 发表于 2022-7-6 10:40:18

只是一个示例命令，不需要lisp。。键入bo并输入。。然后在物体和瓦拉的中间进行拾取。。已创建多段线。。。。我不熟悉编码，我只是一个编码用户。

Lee Mac · 发表于 2022-7-6 10:44:43

或者，你不能只键入-bhatch并选择你的内部点来填充它吗？

Jhun Gonzalo · 发表于 2022-7-6 10:49:49

不。，有时我们必须为要图案填充的区域创建多段线，因为如果我们将图案填充直接拾取到平面上，它会将区域分析得很长，或者您会拾取多个区域，有时会将其挂起，

我给你看一个大dwg文件的平面图，大约1.5 mb，所以我把它发布到jpg，我创建了一条折线，将要填充的区域包围起来（红线）

之前我创建了一个闭合多段线区域，然后选择创建为图案填充的闭合多段线，就是这样，但我刚刚意识到如何在一个命令中组合多段线和图案填充，当我创建一个包含多段线时，它将自动创建图案填充。这是可能的，谢谢。。

Lee Mac · 发表于 2022-7-6 10:57:07

我认为这是将它们结合起来的最简单方法：

copy


(defun c:plyhat (/ *error* oldcmd ply)
 (vl-load-com)
 (defun *error* (msg)
   (if oldcmd (setvar "CMDECHO" oldcmd))
   (if (not (member msg '("Function cancelled"
                          "quit / exit abort")))
     (princ (strcat "\n<< Error: " msg " >>"))
     (princ "\n<< Cancelled >>"))
   (princ))
 (setq oldcmd (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)
 
 (command "_pline")
 (prompt "\nConstruct Polyline...")
 (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
   (command pause))
 (vla-put-Closed
   (vlax-ename->vla-object (setq ply (entlast))) :vlax-true)
 (command "-bhatch" "_S" ply "" "")
 (princ))