轉(zhuǎn)載
`YDe<@6' 使用方法是在Autolisp中加載后再使用命令:
Y5}<7s\UDO 如:
)"im|9 ;; HELIX .LSP 螺旋線生成
Zd/ACZ[ (Defun C:Helix ()
!+?, y/*5( (SetQ p (GetPoint "\n中心點: ") x (Car p) y (Cadr p) z (Caddr p)
7/ "g}
F}Q r (GetDist p "\n半徑: ")
[dje!5Dc( b (GetDist p "\n總高度: ")
z@lUaMm:F a (GetAngle p "\n起始角: ")
QMGMXa m (GetInt "\n圈數(shù): ")
cO,ELu n (GetInt "\n每圈線段數(shù): ")
'J&&
