求助:在AutoCAD2006里绘制3D弹簧怎么画啊?

jammal

我用的AutoCAD2006绘图,可画三维弹簧画不出来,请各位大虾帮忙啊!
我的邮箱:[email protected]
谢谢了啊!

[ 本帖最后由 cad 于 2007-1-25 16:42 编辑 ]

jammal

谢谢了!

[ 本帖最后由 jammal 于 2007-1-3 09:18 编辑 ]

cad

先给你一个程序，你可以看看
将以下代码COPY到记事本中,然后存为spring.lsp,后在ＣＡＤ中加载进去，就可以在命令行输入spring，绘制三维螺旋线，转换坐标系，在线头画一个端面圆利用拉伸命令就可以画三维的弹簧

1. 
   
2. spring;;;-----------弹簧的程序----------
   
3. (defun c:spring(/)
   
4.   (setq p1(getpoint "请指定螺旋线基点:"))
   
5.   (setq r(getreal "请输入弹簧平均半径:"))
   
6.   (setq d0(getreal "请输入弹簧丝直径:"))
   
7.   (setq disp(getreal "请输入弹簧节距:"))
   
8.   (setq n0(getint "请输入弹簧工作圈数:"))
   
9.   (setq n(getint "请输入每圈细化段数(16/20/24/28/32/36/40/48/52/56/60/100):"))
   
10.   (setq n1(* 1.25 n))                   ;支撑圈细化段数
    
11.   (setq n1(fix n1))
    
12.   (setq n2(* n0 n))                     ;工作圈细化段数
    
13.   (setq delta(/ (* 2.0 pi) n))          ;单位转角
    
14.   (setq j(/ disp n))                    ;工作圈轴向位移量
    
15.   (setq j0(/ d0 n))                     ;支撑圈轴向位移量
    
16.   (setq bb(caddr p1))
    
17.   (setq ang 0)
    
18.   (setq jj 0)
    
19.   (command "ucs" "o" p1)
    
20.   (setq pt1(list r 0 0))
    
21.   (command "3dpoly" pt1)
    
22.   (repeat n1                            ;绘制下支撑圈
    
23.     (setq jj(+ jj 1))
    
24.     (setq ang(+ delta ang))
    
25.     (setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))
    
26.     (command pt)
    
27.   )
    
28.   (setq p2(list 0 0 (* j0 jj)))
    
29.   (setq g1(* j0 jj))                    ;下支撑圈高度
    
30.   (setq jj 0)
    
31.   (repeat n2                            ;绘制工作圈
    
32.     (setq jj(+ jj 1))
    
33.     (setq ang(+ delta ang))
    
34.     (setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))
    
35.     (command pt)
    
36.   )
    
37.   (setq p3(list 0 0 (* j jj)))
    
38.   (setq g2(* j jj))                     ;工作圈高度
    
39.   (setq jj 0)
    
40.   (repeat n1                            ;绘制上支撑圈
    
41.     (setq jj(+ jj 1))
    
42.     (setq ang(+ delta ang))
    
43.     (setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))
    
44.     (command pt)
    
45.   )
    
46.   (setq g3(* j0 jj))                    ;上支撑圈高度
    
47.   (command "")
    
48.   (setq e1(entlast))
    
49.   (command "ucs" "x" "")                ;拉伸弹簧
    
50.   (command "circle" pt1 (/ d0 2))
    
51.   (setq e2(entlast))
    
52.   (command "extrude" e2 "" "p" e1)
    
53.   (setq e3(entlast))
    
54.   (setq pt2(list r (/ d0 4) 0))         ;磨平
    
55.   (setq py(+ g1 g2 g3 (- 0 (/ d0 4))))
    
56.   (setq pt3(list (- 0 r) py 0))
    
57.   (command "slice" e3 "" "zx" pt2 pt3)
    
58.   (command "slice" e3 "" "zx" pt3 pt2)
    
59.   (command "ucs" "w")
    
60.   
    
61. )
    
62. ;;;---------end----------弹簧程序结束！

复制代码

jammal

谢谢版主!我已按照cad 超级版主的方法做了.
可是在命令行输入spring后,提示
命令: spring
未知命令“SPRING”。按 F1 查看帮助。
是我哪里弄错了吗?

zjzllll

你要先加载这个程序阿

cad

原帖由 jammal 于 2007-1-2 15:38 发表
谢谢版主!我已按照cad 超级版主的方法做了.
可是在命令行输入spring后,提示
命令: spring
未知命令“SPRING”。按 F1 查看帮助。
是我哪里弄错了吗?

不好意思，刚才的代码我弄错了，现在更新了代码。你重新来做一次

zqc6901780

jammal

可以做出来了!谢谢版主啊!
我想发上来分享一下!呵呵
怎么贴图呢?请教各位!

jammal

按您的方法我做出来了!谢谢!

zjzllll

原帖由 cad 于 2007-1-2 20:59 发表

不好意思，刚才的代码我弄错了，现在更新了代码。你重新来做一次

是吗版主，以前的程序加载之后输入lxx也可以的是吗？

lingxuan

如何加载上述内容？

cad

复制代码，粘贴到记事本里，保存为spring.lsp，将这个文件复制到“C:\Program Files\AutoCAD 2004\Support”（版本不同位置也不同），然后打开你的autocad，工具---AutoLISP----加载。找到你刚才的spring.lsp加载就可以了。

zjzllll

你可以更改为自己的命令
spring;;;-----------弹簧的程序----------
(defun c:spring(/)
只要把spring更改就可以了，例如更改为tanhuang你只要输入tanhuang就加载了版主的程序了，那样还好记呢
不好意思版主，这样应该可以吧

henry0128

我把你上面所說的另存了，那怎麼加載到cad裡面啊，我用的是2006的。是加載到程序文件裡面還是直接從cad界面加載啊？請高人指教。
tks

henry0128

tks very much