[编程申请]：能否编程改进一下CAD中原有OFFSET指令？

guxing129

请教各位高手：能否编程改进一下CAD中原有OFFSET指令，在偏移的同时询问用户是否删除原图形实体，选择是则将原实体删除，否则保留？谢了！

梦断江南

2. 
   
3. (defun c:ffe (/ offd el pt er)
   
4.   (princ "\n ffe----偏移并删除原物体--v1.1------lxx.2002.11")
   
5.   (setq offd (getdist "\n 偏移距离:"))
   
6.   (while
   
7.     (setq el (entsel "\n选择偏移物体:")
   
8.           pt (getpoint (cadr el) "\n偏移方向:")
   
9.     )
   
10.     (command ".offset" offd el  pt ^c)
    
11.     (setq er (getstring "\n 删除? 任意字符-----否/<是>:"))
    
12.     (if (= "" er)
    
13.        (entdel (car el))
    
14.     )
    
15.   )
    
16. (command)
    
17. (princ)
    
18. )
    
19. 
    

<br /> (defun c:ffe (/ offd el pt er)<br />   (princ "\n ffe----偏移并删除原物体--v1.1------lxx.2002.11")<br />   (setq offd (getdist "\n 偏移距离:"))<br />   (while<br />     (setq el (entsel "\n选择偏移物体:")<br />           pt (getpoint (cadr el) "\n偏移方向:")<br />     )<br />     (command ".offset" offd el  pt ^c)<br />     (setq er (getstring "\n 删除? 任意字符-----否/<是>:"))<br />     (if (= "" er)<br />        (entdel (car el))<br />     )<br />   )<br /> (command)<br /> (princ)<br /> )<br /> <br />

zhb2516

very good!

wufei1

bu neng yong!

梦断江南

谢谢，更新了，请试用。

guxing129

很好，谢了！

unhack

梦断江南你真的是我的偶像！

XDSoft

最初由 unhack 发布
[B]梦断江南你真的是我的偶像！ [/B]

大家只要都别满足现状，知道自己还需要学习的东西很多，慢慢都会成为别人的偶像的。