2006前是没有螺旋线的,2007后就有了。另一种方法是加载程序,比较复杂,具体如下:
以下复制到剪贴板
;; helix .lsp 螺旋线生成
(defun c:helix ()
(setq p (getpoint "\n中心点: ") x (car p) y (cadr p) z (caddr p)
r (getdist p "\n半径: ")
b (getdist p "\n总高度: ")
a (getangle p "\n起始角: ")
m (getint "\n圈数: ")
n (getint "\n每圈线段数: ")
da (/ (* m 2 pi) (* m n))
dz (/ b (* m n))
)
(command "3dpoly")
(repeat (1+ (* m n))
(command (polar (list x y z) a r))
(setq a (+ a da) z (+ z dz))
)
(command "")
(princ)
)