机械必威体育网址

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 3379|回复: 5
打印 上一主题 下一主题

CAD2004画三维螺纹

[复制链接]
跳转到指定楼层
1#
发表于 2009-4-21 14:37:55 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我听我一个朋友说以前他用过CAD2004里面有个命令输进去可以出来螺纹的,请大家帮忙,谢谢
回复

使用道具 举报

2#
发表于 2009-4-21 15:16:51 | 只看该作者
你是指07版以上的autocad吧,04版没有这个功能的。
回复 支持 反对

使用道具 举报

3#
 楼主| 发表于 2009-4-22 07:15:08 | 只看该作者
我那个朋友不会骗我吧,他说原来学的时候画过,是照书上的一个指令,可惜他那本书掉了,07是可以用螺旋线的,不过还是谢谢你,以后有问题还有请教
回复 支持 反对

使用道具 举报

4#
发表于 2009-4-26 12:43:54 | 只看该作者
;;;-----------彈簧的程式----------  + R4 A# d! }" b+ `. j
(defun c:spring(/)  
7 k' }; W! O4 O0 e" \. E* q(setq p1(getpoint "基點:"))  
0 ^5 T6 |( d+ Y; a2 @( b(setq r(getreal "平均半徑:"))  7 ^. B/ ^" U8 h* @* s
(setq d0(getreal "直徑:"))  
+ z0 }( r4 V5 Y2 G- \(setq disp(getreal "節距:"))  + U1 m$ r9 D; q+ N; N
(setq n0(getint "工作圈數:"))  ! Z% k9 Q( k2 w) s# F
(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))  ) [7 d$ a9 N* `" B0 n; z  K
(setq n1(* 1.25 n)) ;支撐圈細化段數  
( ?4 T8 D# c, y9 V2 ~(setq n1(fix n1))  
! f+ a4 B# ^) ?" \(setq n2(* n0 n)) ;工作圈細化段數  ! l* o3 y. ]) v# Q. k& \
(setq delta(/ (* 2.0 pi) n)) ;單位轉角  
- \6 w) E; i5 _# w! \  ?: c9 S(setq j(/ disp n)) ;工作圈軸向位移量  
  u2 K# i" H9 D+ I' @8 s(setq j0(/ d0 n)) ;支撐圈軸向位移量  
+ Q' J5 h( |+ R& E(setq bb(caddr p1))  
6 y: h. s# W/ f% |(setq ang 0)  ) _5 M* ^2 r, J$ [
(setq jj 0)  
* C; ~$ L9 H/ ^' `8 \(command "ucs" "o" p1)  
' k$ ]8 J. B1 {(setq pt1(list r 0 0))    M! t. P; |! G# {: m' Z% k) g
(command "3dpoly" pt1)  + s! e( |+ F0 W0 g" a5 ~
(repeat n1 ;繪製下支撐圈  " E% P9 q) O& O# z" N
(setq jj(+ jj 1))  
6 F/ [/ }0 g- G- S( f! Y(setq ang(+ delta ang))  0 p+ X- c9 u8 \( n
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
5 O+ x+ [' t% K& {  W(command pt)  # ~7 f9 A) w; _: V7 t
)  
  Y5 r' I. i* }- _4 c(setq p2(list 0 0 (* j0 jj)))  3 b; S7 d9 G6 H/ ?
(setq g1(* j0 jj)) ;下支撐圈高度  $ y5 {  j! d4 [+ a3 w3 ~
(setq jj 0)  
' d" u4 G; c5 [% c1 ^(repeat n2 ;繪製工作圈  
1 n/ ]9 o7 a4 }) O" u(setq jj(+ jj 1))  6 T; V$ r- U' ~$ G/ Z* W) h
(setq ang(+ delta ang))  3 W% M$ |3 u. r; x9 z$ ?$ ^
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  5 ?7 p1 V" B& D8 T/ N+ Y& T# y7 K
(command pt)  
' u9 `' O7 G% o) G" T)  
2 j  ]7 d3 F( v0 N: g8 U+ ~(setq p3(list 0 0 (* j jj)))  
8 e* e  N0 k8 c$ i5 c& S4 L(setq g2(* j jj)) ;工作圈高度  
# T% I# B* E1 L# @7 A7 F(setq jj 0)  $ c7 _# D9 x" J/ E! h
(repeat n1 ;繪製上支撐圈  & b, E$ `" b* C; \1 H: l
(setq jj(+ jj 1))  7 b! P* J2 t0 |  [, f* Y) I
(setq ang(+ delta ang))  ) F4 [2 n, B3 p( S
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  % m# A9 `/ `# m9 c! V
(command pt)  . u6 x. }1 H8 k  @, l( R- ^
)  
6 n$ T$ H' B& u- s: G(setq g3(* j0 jj)) ;上支撐圈高度  & t+ }+ j- l8 N
(command "")  
- a0 C  L" t, K0 d* K4 k( `$ m(setq e1(entlast))  
  y$ [. V- ]! l6 a(command "ucs" "x" "") ;拉伸彈簧  
6 ^' L4 s. h4 T8 G(command "circle" pt1 (/ d0 2))  3 Q2 y# N% X! c/ l" g6 V; {- e
(setq e2(entlast))  ) W% I( Z) `, T' E* ?. }
(command "extrude" e2 "" "p" e1)  
( I6 x# \2 O& j(setq e3(entlast))  
$ X0 m1 p6 A- ?9 [2 D5 e(setq pt2(list r (/ d0 4) 0)) ;磨平  & s' i( _! e6 P. B, E* Q# Y4 t
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
& J6 g! M) Z+ a8 H(setq pt3(list (- 0 r) py 0))  
& k, k- X) h& I- t' y  H# L(command "slice" e3 "" "zx" pt2 pt3)  : v2 y1 w$ E! O
(command "slice" e3 "" "zx" pt3 pt2)  
0 s5 o9 P- c! [1 ~! l3 M% H(command "ucs" "w")  
+ _& t9 x. s" c2 s' ~
% C' Y5 C& L: f1 {' \)  ( d0 y+ V) d. {( f
;;;---------end----------彈簧程式結束!
$ D# M) i9 V4 v; }5 s8 o, j2 h1 _兄台把這個程序載入CAD就可以繪製3D彈簧了
回复 支持 反对

使用道具 举报

5#
发表于 2009-5-25 01:54:18 | 只看该作者
以前一直没搞出来,有机会试试,谢啦
回复 支持 反对

使用道具 举报

6#
发表于 2012-5-15 08:46:30 | 只看该作者
求螺纹??
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械必威体育网址 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-2-19 06:47 , Processed in 0.058477 second(s), 14 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表