用
CAD
能画阿基米德螺旋线
直接画是很难的
.
你可以先用
"
电子表格
"
按
阿基米德螺线公式
计算出一列成对的
X
、
Y
的值。并做成
"X
，
Y"
的形式，之后复制这一列值，在
CAD
里画样条时粘贴
上去就成了，
"
电子表格
"
中抽样越细，
画的图越精确，
"
电子表格
"
中抽样细不会
增长人的工作量的。
2
。
还可以用
CAXA
画，
那更方便。
阿基米德
螺旋线用
autolisp
编程可以实现
.(command"pline")(setqn0)(repeat1000(command(polar(list
00)(/n
57.3)n))(setq
n(1+n)))(command)
弹簧以及螺纹
(
三维
)1
、打开
CAD
后，
找工具
/AUTOLISP/VISUAL
LISP
编辑器，
打开
.
点新建文件二、
之后输入
(defun
c
：
luoxuan(/)(setqb1(getpoint"
请指定螺旋线基点：
"))(setqr(getreal"
请输
入螺纹平均半径：
"))(setq
disp(getreal"
请输入螺纹节距：
"))(setq
n(getint"
请输入每圈细化段数：
"))(setqdelta(/(*2.0pi)n))(setqj(/dispn))(setq
bb(caddrb1))(setqang0)(setqjj
0)(Command"UCS""o"b1)(Command"3dpoly"(listr00))(repeatn(setqjj(+jj
1)(setqang(+deltaang))(setqpt2(list(*r(cosang))(*r(sinang))(+0(*j
jj))))(Commandpt2))(Command""))
存盘为
luoxuan.lsp
，关闭编辑器
3
、要用
时，点工具
/AUTOLISP/
加载，找到
luoxuan.lsp
文件将其加载，关闭对话框
.
在
命令行输入
luoxuan
回车，就开始了螺旋线的绘制
阿基米德螺旋线的极坐标方程为：
ρ
＝
α×
(
ψ
＋
θ
)
k
_5\.
E3c
根据图中所给两点：
(
0
－
19
)和(
0
－
37
)可得方程组：
三维网技术论坛
*x({;OJ-m
－
19
＝
α×
(
1.5×π
＋
θ
)
____________(1)
&L7J,M)|:z-q%v;
l4b:e
－
37
＝
α×
(
3.5×π
＋
θ
)
____________(2)
三维网技术论坛
4
O0@:h-p/
由式(
1
)－式(２)得：
18
＝
α×2×π
得：
α
＝
9/π
＿＿＿＿(
3
)
三维网技术论坛
5K!
g'^1~3T!J
式(
3
)代入式(
1
)或式(
2
)得：
θ
＝
11×π/11
得
阿基米德螺旋线的极坐标方程为：
三维
,cad,
机械
技术
汽
车
,catia,pro/e,ug,inventor,solidedge,solidwor
s,caxa,
时空
镇江
c/
R2
S#
?
9
x5D.E
(注意：
ψ
单位为弧度)＿＿＿＿(
4
)
把式
(4)
转成直角坐标方程就可以了
!
三维网技术论
坛
#S2j"D,}5@
1
N*i6P,
?+qa7j,L:[)P"M,
三维网技
术论坛
+D;]*d%e-a2y
那个图我还没画
,
这个就是阿基米德螺旋线的算发了
三维网技术论坛
9p/C"F$h
1
。直接画是很难的
.
你可以先用
“
电子表格
”
按阿基米德螺线公式计算出一列成对的
X
、
Y
的
值。并做成
“X
，
Y”
的形式，然后复制这一列值，在
CAD
里画样条时粘贴上去就成了，
“
电子
表格
”
中取样越细，画的图越精确，，
“
电子表格
”
中取样细不会增加人的工作量的。
2
。还
可以用
CAXA
画，那更方便。
