轉(zhuǎn)載
:@A9](gI 使用方法是在Autolisp中加載后再使用命令:
|R\>@Mg#B 如:
_Qi&J.U> ;; HELIX .LSP 螺旋線生成
rFYWs6 (Defun C:Helix ()
/,Re"!jh (SetQ p (GetPoint "\n中心點(diǎn): ") x (Car p) y (Cadr p) z (Caddr p)
m<"WDU?y; r (GetDist p "\n半徑: ")
|3yL&" b (GetDist p "\n總高度: ")
m:o<X