回覆列表
  • 1 # 高大美女的

    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回車,就開始了螺旋線的繪製

  • 中秋節和大豐收的關聯?
  • 你在《清平樂》中,學到了哪些知識?