轉(zhuǎn)載 5wU]!bxr  
使用方法是在Autolisp中加載后再使用命令: E}Uc7G  
如: F#5~M<`.o  
;; HELIX .LSP 螺旋線生成 IO<6  
(Defun C:Helix () P?P#RhvA1  
(SetQ p (GetPoint "\n中心點: ") x (Car p) y (Cadr p) z (Caddr p)
2&J)dtqz  
r (GetDist p "\n半徑: ") }3WxZv]I}  
b (GetDist p "\n總高度: ") Ar#(psU  
a (GetAngle p "\n起始角: ") $U-0)4yf  
m (GetInt "\n圈數(shù): ") "qy,*{~  
n (GetInt "\n每圈線段數(shù): ") S~G]~gt  
da (/ (* m 2 Pi) (* m n)) -