轉(zhuǎn)載 7f#e#_sM;  
使用方法是在Autolisp中加載后再使用命令: a&6 3[p.<}  
如: rQ(Aj  
;; HELIX .LSP 螺旋線生成 \Pi\
c~)Pr  
(Defun C:Helix () Ii%^z?'  
(SetQ p (GetPoint "\n中心點(diǎn): ") x (Car p) y (Cadr p) z (Caddr p) 8s-y+M@.  
r (GetDist p "\n半徑: ") @AaM]?=P{  
b (GetDist p "\n總高度: ") ' 7+x,TszI  
a (GetAngle p "\n起始角: ")  gPh;  
m (GetInt "\n圈數(shù): ") [5e}A&  
n (GetInt "\n每圈線段數(shù): ") !'w