快捷偏移

湜１只鱼

看看这个快捷偏移怎么简化语言

sachindkini

dear sir,
better try this

1. (defun OffsetTemplate (dist)
   
2.   (command "_.offset" dist)
   
3.   (while (> (getvar 'cmdactive) 0)
   
4.     (command pause)
   
5.   )
   
6. )
   
7. 
   
8. (defun c:100 () (OffsetTemplate 100) (princ))
   
9. (defun c:150 () (OffsetTemplate 150) (princ))
   
10. (defun c:230 () (OffsetTemplate 230) (princ))

(defun OffsetTemplate (dist)<br />   (command "_.offset" dist)<br />   (while (> (getvar 'cmdactive) 0)<br />     (command pause)<br />   )<br /> )<br /> <br /> (defun c:100 () (OffsetTemplate 100) (princ))<br /> (defun c:150 () (OffsetTemplate 150) (princ))<br /> (defun c:230 () (OffsetTemplate 230) (princ))

hao3ren

还是你牛逼