机械必威体育网址
标题:
CAD2004画三维螺纹
[打印本页]
作者:
泵阀小群
时间:
2009-4-21 14:37
标题:
CAD2004画三维螺纹
我听我一个朋友说以前他用过CAD2004里面有个命令输进去可以出来螺纹的，请大家帮忙，谢谢
作者:
寂静天花板
时间:
2009-4-21 15:16
你是指07版以上的autocad吧，04版没有这个功能的。
作者:
泵阀小群
时间:
2009-4-22 07:15
我那个朋友不会骗我吧，他说原来学的时候画过，是照书上的一个指令，可惜他那本书掉了，07是可以用螺旋线的，不过还是谢谢你，以后有问题还有请教
作者:
luoxingming520
时间:
2009-4-26 12:43
;;;-----------彈簧的程式----------
+ p) S: e3 Z5 d: Q D+ g
(defun c:spring(/)
! ?+ G4 k3 z) a# k y# N
(setq p1(getpoint "基點:"))
" ~. `0 V; s4 F* l0 U
(setq r(getreal "平均半徑:"))
4 @' r; z: `9 ?7 p7 W
(setq d0(getreal "直徑:"))
9 K( `6 W" k! s. ~8 o: K9 S
(setq disp(getreal "節距:"))
% J% { }* R6 ~* G4 v8 ^
(setq n0(getint "工作圈數:"))
, K- b3 e- l3 W% x1 ^
(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))
5 D( P6 Y4 _3 z. O5 z, h
(setq n1(* 1.25 n)) ;支撐圈細化段數
_! a3 H: U9 Y
(setq n1(fix n1))
v/ R6 h2 u# m
(setq n2(* n0 n)) ;工作圈細化段數
9 T6 d ^# x$ S! H9 i+ L
(setq delta(/ (* 2.0 pi) n)) ;單位轉角
! S- k, w) p- O, B0 [ d
(setq j(/ disp n)) ;工作圈軸向位移量
' B' b E1 K- ^, N; l
(setq j0(/ d0 n)) ;支撐圈軸向位移量
+ v* {3 Q1 x* U- r& P
(setq bb(caddr p1))
# F/ @, e: Q% p6 i5 k$ r. R( \
(setq ang 0)
m/ m8 a, I2 [+ P
(setq jj 0)
. l/ c7 E3 X a2 e. C
(command "ucs" "o" p1)
! V& G" u2 m& U
(setq pt1(list r 0 0))
8 c# B4 Z5 w$ ~0 p. [ @7 G
(command "3dpoly" pt1)
9 G) D0 ^ p$ k- m
(repeat n1 ;繪製下支撐圈
$ R; Y9 n' n6 m9 a! x' q$ n
(setq jj(+ jj 1))
% l6 U H t4 w7 O* d+ `3 C @
(setq ang(+ delta ang))
p* W' F: A$ M3 o. s( q. k& `6 R
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))
, F3 Z2 t9 S2 Q! Z" g% Q
(command pt)
1 H9 h! y% u/ a2 L: @6 A
)
4 i7 x& U5 B8 y# J5 S2 ?
(setq p2(list 0 0 (* j0 jj)))
$ Q$ G, i6 y, i! E5 ?/ m2 S9 p
(setq g1(* j0 jj)) ;下支撐圈高度
0 Y) }6 a- O1 M; |
(setq jj 0)
$ Z, ]8 T8 g1 { I8 I
(repeat n2 ;繪製工作圈
0 p' Q4 |7 `- C! X- M4 ~3 K& Q& v& G
(setq jj(+ jj 1))
. Q$ \* o2 e9 I$ y
(setq ang(+ delta ang))
! j( q8 ~# d0 J4 R6 a- A j( ~
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))
$ m* I- L$ N7 i4 @- e2 r
(command pt)
) }" G) B7 [! t1 M" @
)
! h3 v3 g2 f: ^
(setq p3(list 0 0 (* j jj)))
9 J- L' M% r J$ }3 q7 `( l1 Y* E5 J
(setq g2(* j jj)) ;工作圈高度
$ @, G+ P" n+ Q$ V2 K# ^4 |2 y9 c' ^
(setq jj 0)
2 y# {- P+ W0 P+ u; y, K
(repeat n1 ;繪製上支撐圈
3 \& R% u& X( ^/ l0 \# T: e
(setq jj(+ jj 1))
O2 d6 S; N6 a! o
(setq ang(+ delta ang))
$ t7 ^$ i9 w' k' {* p5 B
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))
: A: r. n! S8 q" y
(command pt)
4 {% E0 {: E$ c9 J0 P; D
)
3 o) e' A& ^: P
(setq g3(* j0 jj)) ;上支撐圈高度
% n% S$ Z# t% Y7 k
(command "")
: v$ u- E9 Q/ i' U1 {* C. w# g
(setq e1(entlast))
4 Q: [6 }+ k% x. Y1 G, W
(command "ucs" "x" "") ;拉伸彈簧
A% u% j6 `4 u/ `
(command "circle" pt1 (/ d0 2))
& d$ L9 w- k# N# c2 R4 i' y
(setq e2(entlast))
5 d X7 ?6 h) X! V8 j- F; t
(command "extrude" e2 "" "p" e1)
c8 P5 o# s* B
(setq e3(entlast))
, |- W& n1 d. Z, m! U' }# `# W
(setq pt2(list r (/ d0 4) 0)) ;磨平
% c9 C( v3 N% w& P
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))
2 }/ x( Q, f8 r9 V& r( {; B$ H
(setq pt3(list (- 0 r) py 0))
- ]; q: g* ]3 N1 N: r$ S3 h
(command "slice" e3 "" "zx" pt2 pt3)
! i/ i: \6 B+ K$ j1 e$ C
(command "slice" e3 "" "zx" pt3 pt2)
5 M3 g2 Z; w; ~( `' C
(command "ucs" "w")
# x% B; R* I& J
. B& f) ?7 h6 o( o, x+ C7 s! [* Q
)
+ H" j! r8 T1 ~+ y: X& o
;;;---------end----------彈簧程式結束！
, B. U8 g3 \$ l# h; O, E% S Y& c
兄台把這個程序載入CAD就可以繪製3D彈簧了
作者:
愚乐中
时间:
2009-5-25 01:54
以前一直没搞出来，有机会试试，谢啦
作者:
学习“心”德
时间:
2012-5-15 08:46
求螺纹？？
欢迎光临 机械必威体育网址 (//www.szfco.com/)
Powered by Discuz! X3.4