1。直接畫是很難的.你可以先用“電子表格”按阿基米德螺線公式計算出一列成對的X、Y的值。並做成“X,Y”的形式,然後複製這一列值,在CAD裡畫樣條時貼上上去就成了,“電子表格”中取樣越細,畫的圖越精確,,“電子表格”中取樣細不會增加人的工作量的。 2。還可以用CAXA畫,那更方便。
阿基米德螺旋線
用autolisp程式設計可以實現.
(command "pline" )
(setq n 0)
(repeat 1000
(command (polar (list 0 0) (/ n 57.3) n))
(setq n (1+ n))
)
(command)
彈簧和螺紋(三維)
1、開啟CAD後,找工具/AUTOLISP/VISUAL LISP編輯器,開啟.點新建檔案
2、然後輸入
(defun c:luoxuan
(/)
(setq b1 (getpoint "請指定螺旋線基點: "))
(setq r (getreal "請輸入螺紋平均半徑: "))
(setq disp (getreal "請輸入螺紋節距: "))
(setq n (getint "請輸入每圈細化段數: "))
(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,關閉編輯器
3、要用時,點工具/AUTOLISP/載入,找到luoxuan.lsp檔案將其載入,關閉對話方塊.在命令列輸入luoxuan回車,就開始了螺旋線的繪製
1。直接畫是很難的.你可以先用“電子表格”按阿基米德螺線公式計算出一列成對的X、Y的值。並做成“X,Y”的形式,然後複製這一列值,在CAD裡畫樣條時貼上上去就成了,“電子表格”中取樣越細,畫的圖越精確,,“電子表格”中取樣細不會增加人的工作量的。 2。還可以用CAXA畫,那更方便。
阿基米德螺旋線
用autolisp程式設計可以實現.
(command "pline" )
(setq n 0)
(repeat 1000
(command (polar (list 0 0) (/ n 57.3) n))
(setq n (1+ n))
)
(command)
彈簧和螺紋(三維)
1、開啟CAD後,找工具/AUTOLISP/VISUAL LISP編輯器,開啟.點新建檔案
2、然後輸入
(defun c:luoxuan
(/)
(setq b1 (getpoint "請指定螺旋線基點: "))
(setq r (getreal "請輸入螺紋平均半徑: "))
(setq disp (getreal "請輸入螺紋節距: "))
(setq n (getint "請輸入每圈細化段數: "))
(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,關閉編輯器
3、要用時,點工具/AUTOLISP/載入,找到luoxuan.lsp檔案將其載入,關閉對話方塊.在命令列輸入luoxuan回車,就開始了螺旋線的繪製