批量生成填充图形边界

paulpipi

急时雨，正需要，谢谢分享

15623788285

  能否生成边界后删除填充

依然小小鸟

以后没准用得着 留个脚印

magicheno

ㄘ丶转裑ㄧ灬 发表于 2020-2-28 08:39

好用学习了

htlaser

15623788285 发表于 2020-11-10 20:24
能否生成边界后删除填充

2. (defun C:tt (/ sg i s1)
   
3.   (princ "\n填充重生边框，请选择填充图案：")
   
4.   (setq sg (ssget '((0 . "HATCH"))) i -1)
   
5.   (while (setq s1 (ssname sg (setq i (1+ i))))
   
6.     (command "-hatchedit" s1 "b" "p" "y")
   
7.                 (entdel s1)
   
8.    )
   
9.   (princ)
   
10. )

(defun C:tt (/ sg i s1) <br />   (princ "\n填充重生边框，请选择填充图案：")<br />   (setq sg (ssget '((0 . "HATCH"))) i -1)<br />   (while (setq s1 (ssname sg (setq i (1+ i))))<br />     (command "-hatchedit" s1 "b" "p" "y")<br />                 (entdel s1)<br />    )<br />   (princ)<br /> )

qazxswk

高版本中有个hatchgenerateboundary，从哪个版本开始有的，我不知道了，可以直接生成没有关联的填充边界线。
(vl-cmdf  "hatchgenerateboundary" (ssget ":S"))