1、打開CAD后，找工具／AUTOLISP／VISUAL LISP編輯器，打開．點(diǎn)新建文件
2、然后輸入
(defun c:luoxuan
(/)
(setq b1 (getpoint "請指定螺旋線基點(diǎn): "))
(setq r (getreal "請輸入螺紋平均半徑: "))
(setq disp (getreal "請輸入螺紋節(jié)距: "))
(setq n (getint "請輸入每圈細(xì)化段數(shù): "))
(setq delta (/ (* 2.0 pi) n))
(setq j (/ disp n))
(setq bb (caddr b1))
(setq ang 0)
(setq jj 0)
(Command "UCS" "o" b1)
(Command "3dpoly" (list r 0 0))
(repeat n
(setq jj(+ jj 1)
(setq ang(+ delta ang))
(setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj))))
(Command pt2)
)
(Command "")
)
存盤為luoxuan.lsp，關(guān)閉編輯器
3、要用時，點(diǎn)工具／AUTOLISP／加載，找到luoxuan.lsp文件將其加載，關(guān)閉對話框．在命令行輸入luoxuan回車，就開始了螺旋線的繪制.