给大家分享一个刚出炉的多功能偏移命令。

zjh2785

刚刚写的，大神就不要看了。P.S.  不知道如何插入代码  将就着看吧。

1. (defun C:TTT (/ dis1 dis2 ent pt num len dis i)
   
2.   (setq dis2 0)
   
3.   (initget (+ 1 2 4 128) "C")
   
4.   (setq dis1 (getdist "\n指定单个偏移距离或 [多个(C)]:"))
   
5.   (if (= 'STR (type dis1))
   
6.     (if        (= dis1 "C")
   
7.       (progn
   
8.         (initget (+ 1 2 4))
   
9.         (setq dis1 (getdist "\n指定第一个偏移距离:"))
   
10.         (initget (+ 1 2 4))
    
11.         (setq dis2 (getdist "\n指定第二个偏移距离:"))
    
12.       )
    
13.       (progn
    
14.         (princ "\n输入无效,请重新输入.")
    
15.         (C:TTT)
    
16.       )
    
17.     )
    
18.   )
    
19.   (while (= (setq ent (entsel "\n选择要偏移的对象:")) nil))
    
20.   (setq pt (getpoint "\n指定要偏移的那一侧上的点:"))
    
21.   (initget (+ 1 2 4 128) "S")
    
22.   (setq num (getint "\n指定偏移次数或 [总长(S)]:"))
    
23.   (if (= 'STR (type num))
    
24.     (if        (= num "S")
    
25.       (progn
    
26.         (initget (+ 1 2 4))
    
27.         (setq len (getint "\n指定偏移的总长度:"))
    
28.         (setq num (fix (/ len (+ dis1 dis2))))
    
29.         (if (/= dis2 0)
    
30.           (setq num (* num 2))
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35.   (setq i 1)
    
36.   (setq dis 0)
    
37.   (repeat num
    
38.     (if        (/= dis2 0)
    
39.       (if (= (rem i 2) 1)
    
40.         (setq dis (+ dis dis1))
    
41.         (setq dis (+ dis dis2))
    
42.       )
    
43.       (setq dis (+ dis dis1))
    
44.     )
    
45.     (command "OFFSET" dis ent pt "E")
    
46.     (setq i (1+ i))
    
47.   )
    
48. )
    

(defun C:TTT (/ dis1 dis2 ent pt num len dis i)<br />   (setq dis2 0)<br />   (initget (+ 1 2 4 128) "C")<br />   (setq dis1 (getdist "\n指定单个偏移距离或 [多个(C)]:"))<br />   (if (= 'STR (type dis1))<br />     (if        (= dis1 "C")<br />       (progn<br />         (initget (+ 1 2 4))<br />         (setq dis1 (getdist "\n指定第一个偏移距离:"))<br />         (initget (+ 1 2 4))<br />         (setq dis2 (getdist "\n指定第二个偏移距离:"))<br />       )<br />       (progn<br />         (princ "\n输入无效,请重新输入.")<br />         (C:TTT)<br />       )<br />     )<br />   )<br />   (while (= (setq ent (entsel "\n选择要偏移的对象:")) nil))<br />   (setq pt (getpoint "\n指定要偏移的那一侧上的点:"))<br />   (initget (+ 1 2 4 128) "S")<br />   (setq num (getint "\n指定偏移次数或 [总长(S)]:"))<br />   (if (= 'STR (type num))<br />     (if        (= num "S")<br />       (progn<br />         (initget (+ 1 2 4))<br />         (setq len (getint "\n指定偏移的总长度:"))<br />         (setq num (fix (/ len (+ dis1 dis2))))<br />         (if (/= dis2 0)<br />           (setq num (* num 2))<br />         )<br />       )<br />     )<br />   )<br />   (setq i 1)<br />   (setq dis 0)<br />   (repeat num<br />     (if        (/= dis2 0)<br />       (if (= (rem i 2) 1)<br />         (setq dis (+ dis dis1))<br />         (setq dis (+ dis dis2))<br />       )<br />       (setq dis (+ dis dis1))<br />     )<br />     (command "OFFSET" dis ent pt "E")<br />     (setq i (1+ i))<br />   )<br /> )<br />

XDSoft

我帮你编辑了下，你自己编辑下帖子，看看里面是怎么贴代码的。
插件最好做个动画付上来，清晰。

liunian0524

感谢楼主分享

abenmao168

很给力，偶喜欢，感谢分享

sh_h

回复学习，谢谢楼主分享！！！

zjh2785

XDSoft 发表于 2017-8-28 18:41

感谢老大。

fzcfcm

好用吗？看看能不能使用