[求助]：请教一个关于多条线同时偏移的命令

Groovy

在CAD原偏移命令执行前选择多条线同时进行偏移
这个lisp应该怎么写啊？

snoopychen

刚好以前写过一个，不知道是否合用，没有设置任何容错捕捉等

2. 
   
3. ;;; by qjchen
   
4. (defun c:oi (/ ss r p i ssl ent)
   
5.   (prompt "\nto select the objects to be offset:")
   
6.   (setq ss (ssget))
   
7.   (setq r (getdist "\nthe distance:"))
   
8.   (setq p (getpoint "\nwhich side"))
   
9.   (setq i 0
   
10.         ssl (sslength ss)
    
11.   )
    
12.   (repeat ssl
    
13.     (setq ent (ssname ss i))
    
14.     (command "offset" r ent p "")
    
15.     ;(entdel ent)
    
16.     (setq i (1+ i))
    
17.   )
    
18. )
    

<br /> ;;; by qjchen<br /> (defun c:oi (/ ss r p i ssl ent)<br />   (prompt "\nto select the objects to be offset:")<br />   (setq ss (ssget))<br />   (setq r (getdist "\nthe distance:"))<br />   (setq p (getpoint "\nwhich side"))<br />   (setq i 0<br />         ssl (sslength ss)<br />   )<br />   (repeat ssl<br />     (setq ent (ssname ss i))<br />     (command "offset" r ent p "")<br />     ;(entdel ent)<br />     (setq i (1+ i))<br />   )<br /> )<br />

Groovy

谢谢楼上，使用了以后
看看容错能否改进

雨箭风刀

(ssget '((0 . "*POLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE")))
漏了 line，按下面的：
(ssget '((0 . "*POLYLINE,SPLINE,LINE,ARC,CIRCLE,ELLIPSE")))

Groovy

楼上，我改过以后怎么就什么都选不上 了啊？

雨箭风刀

4楼过滤器已经更新

Groovy

怎么样实现先选择后执行？
还有保留上一次输入的偏移量？