轉(zhuǎn)載 Y(IT#x?p  
使用方法是在Autolisp中加載后再使用命令: 6'y+Ev$9  
如: <VV./W8e9  
;; HELIX .LSP 螺旋線生成 !xoN%5!  
(Defun C:Helix () Q g=k@  
(SetQ p (GetPoint "\n中心點: ") x (Car p) y (Cadr p) z (Caddr p) ia15r\4j)  
r (GetDist p "\n半徑: ") A#~"Gp  
b (GetDist p "\n總高度: ") xQ4D|