1、開啟cad後，找工具／autolisp／visuallisp編輯器，開啟．點新建檔案

2、然後輸入

(defunc:luoxuan

(/)

(setqb1(getpoint"請指定螺旋線基點:"))

(setqr(getreal"請輸入螺紋平均半徑:"))

(setqdisp(getreal"請輸入螺紋節距:"))

(setqn(getint"請輸入每圈細化段數:"))

(setqdelta(/(*2.0pi)n))

(setqj(/dispn))

(setqbb(caddrb1))

(setqang0)

(setqjj0)

(command"ucs""o"b1)

(command"3dpoly"(listr00))

(repeatn

(setqjj(+jj1)

(setqang(+deltaang))

(setqpt2(list(*r(cosang))(*r(sinang))(+0(*jjj))))

(commandpt2)

)

(command"")

)

存檔為luoxuan.lsp，關閉編輯器

3、要用時，點工具／autolisp／載入，找到luoxuan.lsp檔案將其載入，關閉對話方塊．在命令列輸入luoxuan回車，就開始了螺旋線的繪製