CAD2004畫三維螺紋

泵閥小群

我聽我一個朋友說以前他用過CAD2004里面有個命令輸進去可以出來螺紋的，請大家?guī)兔Γx謝

寂靜天花板

你是指07版以上的autocad吧，04版沒有這個功能的。

泵閥小群

我那個朋友不會騙我吧，他說原來學的時候畫過，是照書上的一個指令，可惜他那本書掉了，07是可以用螺旋線的，不過還是謝謝你，以后有問題還有請教

luoxingming520

;;;-----------彈簧的程式----------  
(defun c:spring(/)  
8 o  e; y- b4 A. O(setq p1(getpoint "基點:"))  
(setq r(getreal "平均半徑:"))  
. b2 b5 ~6 K7 t6 c0 V(setq d0(getreal "直徑:"))  
(setq disp(getreal "節(jié)距:"))  
7 I- ?5 c3 K$ b$ f' B, @. i. F(setq n0(getint "工作圈數:"))  
6 V: o$ V, K6 b* S9 l5 X1 ^* c(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))  
(setq n1(* 1.25 n)) ;支撐圈細化段數  
& F0 F/ W! @3 t- l2 {/ r; b; U6 s(setq n1(fix n1))  
8 ]$ J( R6 s* r2 s" {# g* O# B(setq n2(* n0 n)) ;工作圈細化段數  
; ]4 ^" `) a9 V" a5 m; R(setq delta(/ (* 2.0 pi) n)) ;單位轉角  
$ r4 n6 @6 W' @( h5 D: h% {(setq j(/ disp n)) ;工作圈軸向位移量  
(setq j0(/ d0 n)) ;支撐圈軸向位移量  
(setq bb(caddr p1))  
, K4 j) V4 c  V) D+ I( Z" v(setq ang 0)  
8 O' ?" u) T# E+ K" [5 P$ ^(setq jj 0)  
1 l8 t5 _; Y3 h& B(command "ucs" "o" p1)  
  F  I; c& B$ I5 b4 |% U6 V- X(setq pt1(list r 0 0))  
(command "3dpoly" pt1)  
(repeat n1 ;繪製下支撐圈  
( S5 F9 C2 a7 E3 b- o(setq jj(+ jj 1))  
; M# i1 b  w  g, ]2 ?- r3 Y(setq ang(+ delta ang))  
- A9 z. b$ H  Z: ~(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
(command pt)  
)  
) y5 j" {+ K  ?4 ^(setq p2(list 0 0 (* j0 jj)))  
(setq g1(* j0 jj)) ;下支撐圈高度  
: \5 o& a- t8 j3 c" }4 ^& Z5 s& {(setq jj 0)  
(repeat n2 ;繪製工作圈  
- I! [9 w; u+ d  D+ ]7 T8 {(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
3 J7 i- V2 e" ~. u2 Z" t(command pt)  
)  
) S. R! H4 k( v5 A. _1 Y3 \(setq p3(list 0 0 (* j jj)))  
+ e7 L# g  x9 r1 t; m(setq g2(* j jj)) ;工作圈高度  
(setq jj 0)  
- }& h: Y' {! N, u(repeat n1 ;繪製上支撐圈  
(setq jj(+ jj 1))  
; o2 v' w; @0 A& N/ o(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
(command pt)  
% _5 d9 R/ O# {1 v)  
/ t' ~3 u; Y; y+ Y1 t; N(setq g3(* j0 jj)) ;上支撐圈高度  
(command "")  
(setq e1(entlast))  
+ i6 Z# N1 i7 S/ M, ?# Z. ^& n$ G, _(command "ucs" "x" "") ;拉伸彈簧  
9 I" f" f! A- s# n" Q9 G(command "circle" pt1 (/ d0 2))  
8 b8 k9 i& L4 @/ N: `, c" s(setq e2(entlast))  
; D4 ^/ d, _9 @7 s3 a/ `(command "extrude" e2 "" "p" e1)  
(setq e3(entlast))  
; w; O: ^; F# K7 ^(setq pt2(list r (/ d0 4) 0)) ;磨平  
3 i( G) g& @- }$ @0 t! G, I* }(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")  

, V/ Z: D) F) i% ?9 k: b. f. e7 |)  
+ A6 M0 N. W2 k) C2 I, j* G$ y;;;---------end----------彈簧程式結束！
兄臺把這個程序載入CAD就可以繪製3D彈簧了

愚樂中

以前一直沒搞出來，有機會試試，謝啦

學習“心”德

求螺紋？？