CAD2004畫三維螺紋

泵閥小群

我聽我一個朋友說以前他用過CAD2004里面有個命令輸進去可以出來螺紋的，請大家幫忙，謝謝

寂靜天花板

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

泵閥小群

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

luoxingming520

;;;-----------彈簧的程式----------  
(defun c:spring(/)  
" B" i+ b* R' A8 U& G: l( n5 }(setq p1(getpoint "基點:"))  
7 p( ^4 ?7 D# G1 d(setq r(getreal "平均半徑:"))  
(setq d0(getreal "直徑:"))  
' E2 M; d" {9 X) M9 d  G3 Q( f& l(setq disp(getreal "節距:"))  
(setq n0(getint "工作圈數:"))  
. P9 k0 P( w% y, w+ [(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))  
  H+ Q" G; o5 b1 t' h: _(setq n1(* 1.25 n)) ;支撐圈細化段數  
(setq n1(fix n1))  
& Z. ~9 i) v( o(setq n2(* n0 n)) ;工作圈細化段數  
( `# I8 P( C# a5 M4 F(setq delta(/ (* 2.0 pi) n)) ;單位轉角  
(setq j(/ disp n)) ;工作圈軸向位移量  
(setq j0(/ d0 n)) ;支撐圈軸向位移量  
(setq bb(caddr p1))  
! m7 \7 E/ P/ b, c(setq ang 0)  
(setq jj 0)  
1 P( @% Y& `9 t( ^9 R" o(command "ucs" "o" p1)  
(setq pt1(list r 0 0))  
(command "3dpoly" pt1)  
$ P- c  T1 |6 |! w7 {+ Y1 I(repeat n1 ;繪製下支撐圈  
( S3 w) Z3 n( C. H9 s# W" g(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
; |1 O2 L9 D# v0 ]* ~* U(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
  ]; K- _+ ~  e7 n, e(command pt)  
9 L/ W: B7 }8 Z" Z& H)  
6 C. ?$ C% W6 X: x5 e(setq p2(list 0 0 (* j0 jj)))  
(setq g1(* j0 jj)) ;下支撐圈高度  
(setq jj 0)  
7 e1 s3 `% U  M" Y; I& r7 S(repeat n2 ;繪製工作圈  
+ u7 l: L" N! }6 _& ](setq jj(+ jj 1))  
: G; t$ N6 k& z& {' g! N(setq ang(+ delta ang))  
1 O/ @5 u) C# G0 a6 X(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
9 A- j' t! X- O(command pt)  
5 W/ B7 M7 Y$ W0 }! b)  
& ?* ]3 S, s) t(setq p3(list 0 0 (* j jj)))  
(setq g2(* j jj)) ;工作圈高度  
(setq jj 0)  
8 F6 z' B1 f: f2 `# E! t(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))  
% Y3 M* }8 l1 V1 X(command "extrude" e2 "" "p" e1)  
% A2 ^" \3 b4 v2 Y" _# ](setq e3(entlast))  
4 c2 W. ^% X7 p3 B6 Z3 J(setq pt2(list r (/ d0 4) 0)) ;磨平  
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
0 e3 t9 h3 \4 z9 L! j! k! U(setq pt3(list (- 0 r) py 0))  
(command "slice" e3 "" "zx" pt2 pt3)  
  k) c! Z/ g, l8 d* J) Z(command "slice" e3 "" "zx" pt3 pt2)  
(command "ucs" "w")  
9 g: ^+ A8 X: j9 |7 p
9 B9 j4 {9 _: D, `; @)  
;;;---------end----------彈簧程式結束！
兄臺把這個程序載入CAD就可以繪製3D彈簧了

愚樂中

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

學習“心”德

求螺紋？？