[分享]CAD的Autolisp生成與幾個工具例子 [復制鏈接]

轉(zhuǎn)載 DUb8 HgcV}  
使用方法是在Autolisp中加載后再使用命令: lFa?l\jLXZ  
如: cRP!O|I`]  
;; HELIX .LSP 螺旋線生成 pI( H7 (  
(Defun C:Helix () QI`&N(n  
(SetQ p (GetPoint "\n中心點: ") x (Car p) y (Cadr p) z (Caddr p) -lb%X3`  
r (GetDist p "\n半徑: ")
J9lG0  
b (GetDist p "\n總高度: ") a|Wrc)UR  
a (GetAngle p "\n起始角: ") yv\ j&B|  
m (GetInt "\n圈數(shù): ") ICzcV };$  
n (GetInt "\n每圈線段數(shù): ") YqYobL*q/  
da (/ (* m 2 Pi) (* m n)) rs,:pU  
dz (/ b (* m n)) *.!5327  
) -=)+)9~G  
(Command "3dpoly") p%IVWeZnx  
(Repeat (1+ (* m n)) wQojmmQ  
(Command (Polar (List x y z) a r)) :Jo[bm