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)
)

nelsonfok 发表于 2022-7-5 20:53:49

谢谢，太棒了。这几乎和我在旧公司使用的lsp相同。是否可以将图案填充部分放置到名为“颜色”的层？
 
[列表]
[*]                                                             
 
[/列表]

Tharwat 发表于 2022-7-5 20:58:52

不客气
 
 
以上代码已更新。

nelsonfok 发表于 2022-7-5 21:15:07

谢谢这才是我真正需要的！！！

Tharwat 发表于 2022-7-5 21:22:33

 
不客气。
页: [1]
查看完整版本: 实体图案填充区域