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回车,就开始了螺旋线的绘制
用CAD能画阿基米德螺旋线吗?怎么画呢
时间:2013-04-02 11:17:01 来源:未知
推荐文章