实体图案填充区域

nelsonfok · 发表于 2022-7-5 20:21:11

亲爱的朋友们

是否有任何lsp可以在实体中填充由线（而不是多段线）包围的区域？我想应该先创建一个边界多边形，最后再删除它。

我需要把这些图案填充到“颜色”层

我以前有这个lsp，但我再也找不到了。谢谢你的帮助。

Tharwat · 发表于 2022-7-5 20:43:08

像这样的？


(defun c:Test (/ e c l o)
;;;    Tharwat 16.01.2014    ;;
 (setq e (entlast)
       c (getvar 'cecolor)
       l (getvar 'clayer)
 )
 (command "_.-boundary" pause "")
 (if (and (not (eq (setq o (entlast)) e))
          (eq (cdr (assoc 0 (entget o))) "LWPOLYLINE")
     )
   (progn
     (if (not (tblsearch "LAYER" "color"))
       (command "_.-layer" "_m" "color" "" "")
     )
     (mapcar 'setvar '(cecolor clayer) '("BYLAYER" "color"))
     (command "_.-hatch" "_s" o "" "_p" "_Solid" "")
     (mapcar 'setvar '(cecolor clayer) (list c l))
     (entdel o)
   )
 )
 (princ)
)