求高手完善给图案填充重建边界程序

baoyizhu

有时候接受到别人的图纸有大量的填充图案 但是对方却删除了原有的填充边界，而我又需要用到原有的边界图形
这就需要对图案填充重建边界，在论坛找到下面一段程序可以解决我的问题，但还有一点需要完善
就是：当输入命令选择图案填充并回车后，边界也已经重建好，但是原来的图案填充也被删除了
我希望改成边界重建好后命令行给个提示，询问:是否要删除填充图案,yes/no?<y>
直接回车的话默认是yes：
输入N就执行删除已重建边界的图案填充

程序如下：

1. (princ "\n 填充批量转多段线（删除填充）命令:hl ")
   
2. 
   
3. (defun c:hl ()。
   
4. 
   
5.   (setvar "cmdecho" 0)
   
6. 
   
7.   (setq s (ssget '((0 . "hatch"))))
   
8. 
   
9.   (setq n (sslength s))
   
10. 
    
11.   (setq k 0)
    
12. 
    
13.   (while (< k n)
    
14. 
    
15.     (setq name (ssname s k))
    
16. 
    
17.     (command "-hatchedit" name "b" "p" "y")
    
18. 
    
19.     (setq k (+ k 1))
    
20. 
    
21.   )
    
22. 
    
23.     (command "erase" s "")
    
24. 
    
25.    (setvar "cmdecho" 1)
    
26. 
    
27. )
    
28. 
    

(princ "\n 填充批量转多段线（删除填充）命令:hl ")<br /> <br /> (defun c:hl ()。<br /> <br />   (setvar "cmdecho" 0)<br /> <br />   (setq s (ssget '((0 . "hatch"))))<br /> <br />   (setq n (sslength s))<br /> <br />   (setq k 0)<br /> <br />   (while (< k n)<br /> <br />     (setq name (ssname s k))<br /> <br />     (command "-hatchedit" name "b" "p" "y")<br /> <br />     (setq k (+ k 1))<br /> <br />   )<br /> <br />     (command "erase" s "")<br /> <br />    (setvar "cmdecho" 1)<br /> <br /> )<br /> <br />

baoyizhu

start4444 发表于 2020-8-27 14:17
(command "erase" s "")   改为：  (if (= (getstring "\n 是否删除填充？[否(N)/是(空格)]:") "n") ()(com ...

谢谢，这就是我要的效果，谢谢大神

start4444

(command "erase" s "")   改为：  (if (= (getstring "\n 是否删除填充？[否(N)/是(空格)]:") "n") ()(command "erase" s ""))

e2002

baoyizhu 发表于 2020-8-30 15:23
这是批量重建，有几千个孔位需要重建的时候不可能一个个点

命令：HATCHGENERATEBOUNDARY
支持多选对象。
几千个也是一次全部搞定。无需自己去写代码。

gaics

  (command "erase" s "");;删除s选择集

845245015

填充批量转多段线（Yy空格回车删除填充）命令hl

yoyoho

谢谢! 845245015 分享程序!!!!!!!!!!

999999

谢谢各位大神的分享

e2002

重建边界这个是 hatechedit 命令 中现成的功能，不需要自己去写

baoyizhu

e2002 发表于 2020-8-30 13:45
重建边界这个是 hatechedit 命令 中现成的功能，不需要自己去写

这是批量重建，有几千个孔位需要重建的时候不可能一个个点