批量生成填充图形边界

上七楼的快乐

大家好，本人刚学lisp的小菜鸟，也就学了7天左右，写了一个lisp小程序，批量生成填充图形的程序，但是，每次只能生成一个，不知道问题出在哪里。这个程序对平时工作有用，希望各位大神不吝赐教，指点迷津，不胜感谢，我会继续认真学习的。

• (defun c:BJ ()
•   (command "HATCHEDIT" (ssget) "b" "P" "n")
•   (princ)
• )
  

ㄘ丶转裑ㄧ灬

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

(defun C:HT_502 (/ 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 />    )<br />   (princ)<br /> )

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

start4444

用while  或者repeat 函数 做循环处理

上七楼的快乐

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

非常感谢！！！我学的还是浅薄，感激不尽。

yangchao2005090

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

请问一下，如果填充边界不关联该怎么改一下呀

ㄘ丶转裑ㄧ灬

yangchao2005090 发表于 2020-7-13 13:23
请问一下，如果填充边界不关联该怎么改一下呀

最后一个y改为n

ㄘ丶转裑ㄧ灬

yangchao2005090 发表于 2020-7-13 13:23
请问一下，如果填充边界不关联该怎么改一下呀

最后一个y改为n

845245015

根据填充自动生成边界命令hl

845245015

根据填充自动生成边界命令hl

yhly555

今天刚好要用到，谢谢！