CAD画阿基米德螺旋线程序.pdf

用 CAD能画阿基米德螺旋线直接画是很难的 . 你可以先用 “电子表格 “按阿基米德螺线公式 计算出一列成对的 X、Y的值并做成 “X，Y“的形式，之后复制这一列值，在CAD 里画样条时粘贴 上去就成了， “ 电子表格 “ 中抽样越细， 画的图越精确， “ 电子表格 “ 中抽样细不会 增长人的工作量的 还可以用 CAXA 画， 那更方便阿基米德 螺旋线用 autolisp 编程可以实现 .(command“pline“)(setq n0)(repeat 1000(command(polar(list 00)(/n 57.3)n))(setq n(1+n)))(command) 弹簧以及螺纹 (三维)1、打开 CAD后， 找工具 /AUTOLISP/VISUAL LISP 编辑器，打开. 点新建文件二、之后输入 (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 r0 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 回车，就开始了螺旋线的绘制阿基米德螺旋线的极坐标方程为：ρ ＝α×（ ψ ＋θ ） k _5 \. E3 c根据图中所给两点： （0－19）和（ 0－ 37）可得方程组：三维网技术论坛* x( {; O J- m－ 19＝α×（1.5 ×π＋θ ）____________(1)l4 b: e－37＝α×（3.5 ×π＋θ ）____________(2)三维网技术论坛4 O0 @: h- p/ 由式（ 1）－式（２）得：18＝α×2×π 得： α ＝9/ π ＿＿＿＿（ 3）三维网技术论坛5 K! g' ^1 ~3 T! J式（ 3）代入式（ 1）或式（ 2）得： θ ＝11×π/11得阿基米德螺旋线的极坐标方程为：三维,cad,机械技术汽车,catia,pro/e,ug,inventor,solidedge,solidwors,caxa,时空镇江 c/ R2 S# ? 9 x5 D. E（注意： ψ单位为弧度）＿＿＿＿（4）把式 (4)转成直角坐标方程就可以了!三维网技术论坛# S2 j“ D, }5 @1 N* i6 P, ?+ q a7 j, L: [) P“ M, 三维网技术论坛+ D; ]* d% e- a2 y那个图我还没画,这个就是阿基米德螺旋线的算发了三维网技术论坛9 p/ C“ F$ h1。

直接画是很难的.你可以先用 “ 电子表格 ” 按阿基米德螺线公式计算出一列成对的X、Y 的值并做成 “X ，Y” 的形式，然后复制这一列值，在CAD 里画样条时粘贴上去就成了，“ 电子表格 ” 中取样越细，画的图越精确，，“ 电子表格 ” 中取样细不会增加人的工作量的还可以用 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 回车，就开始了螺旋线的绘制。