发布网友 发布时间:2022-04-25 03:43
共1个回答
热心网友 时间:2023-10-23 21:25
。直接画是很难的.你可以先用“电子表格”按阿基米德螺线公式计算出一列成对的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))