sky3912 发表于 2004-12-18 20:22:00

请教三维的弹簧的画法

有没有谁怎么三维弹簧的画法或者有教程的请赐教，先谢谢了啊！

FJQZ456 发表于 2004-12-18 21:24:00

这样的问题本论坛有好多的答案,最好是找找看.

zxdcad 发表于 2004-12-19 01:06:00

有两个办法解决:



一个是编程的方法。


另一个是用ACAD+EXCEL来解决。


楼主选哪个呢？

Joseflin 发表于 2004-12-20 11:35:00

Autospring.lsp可以自动画各种式样的圆断面和方断面弹簧。

my1848 发表于 2004-12-21 15:02:00

容易！

wang200868 发表于 2004-12-21 19:19:00

完全可以编程实现

ronglicai 发表于 2004-12-29 22:25:00

4楼的程序怎么下载后全是乱码，请传个能用的，谢谢！

2003411113 发表于 2005-1-7 17:32:00

<PRE>(defun c:tanhuang(/)
(setq p1(getpoint "请指定螺旋线基点:"))
(setq r(getreal "请输入弹簧平均半径:"))
(setq d0(getreal "请输入弹簧丝直径:"))
(setq disp(getreal "请输入弹簧节距:"))
(setq n0(getint "请输入弹簧工作圈数:"))
(setq n(getint "请输入每圈细化段数(16/20/24/28/32/36):"))
(setq n1(* 1.25 n))                   ;支撑圈细化段数
(setq n1(fix n1))
(setq n2(* n0 n))                     ;工作圈细化段数
(setq delta(/ (* 2.0 pi) n))          ;单位转角
(setq j(/ disp n))                  ;工作圈轴向位移量
(setq j0(/ d0 n))                     ;支撑圈轴向位移量
(setq bb(caddr p1))
(setq ang 0)
(setq jj 0)
(command "ucs" "o" p1)
(setq pt1(list r 0 0))
(command "3dpoly" pt1)
(repeat n1                            ;绘制下支撑圈
    (setq jj(+ jj 1))
    (setq ang(+ delta ang))
    (setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))
    (command pt)
)
(setq p2(list 0 0 (* j0 jj)))
(setq g1(* j0 jj))                  ;下支撑圈高度
(setq jj 0)
(repeat n2                            ;绘制工作圈
    (setq jj(+ jj 1))
    (setq ang(+ delta ang))
    (setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))
    (command pt)
)
(setq p3(list 0 0 (* j jj)))
(setq g2(* j jj))                     ;工作圈高度
(setq jj 0)
(repeat n1                            ;绘制上支撑圈
    (setq jj(+ jj 1))
    (setq ang(+ delta ang))
    (setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))
    (command pt)
)
(setq g3(* j0 jj))                  ;上支撑圈高度
(command "")
(setq e1(entlast))
(command "ucs" "x" "")                ;拉伸弹簧
(command "circle" pt1 (/ d0 2))
(setq e2(entlast))
(command "extrude" e2 "" "p" e1)
(setq e3(entlast))
(setq pt2(list r (/ d0 4) 0))         ;磨平
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))
(setq pt3(list (- 0 r) py 0))
(command "slice" e3 "" "zx" pt2 pt3)
(command "slice" e3 "" "zx" pt3 pt2)
(command "ucs" "w")

)
</PRE>

aszxmb 发表于 2005-1-8 10:58:00

上面的画弹簧的两个程序下载了可怎么用不知道，还有上面这个程序我也用写字板保存了，但起什么后缀，怎么在CAD中用。哪 位能帮帮忙，谢谢
页: [1]
查看完整版本: 请教三维的弹簧的画法