×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

how to create a 3d-model of a sprin

how to create a 3d-model of a sprin

how to create a 3d-model of a sprin

(OP)
how to create a 3d-model of a spring in autocad???

RE: how to create a 3d-model of a sprin

Question previously asked on this site:

MarkRPflow (Industrial) Apr 19, 2000
A suggestion is to go to a spring manufacturer's website.  More & more vendors have drawings to download.  3D may not be as available.

Try www.thomasregister.com for manufacturer listings.  

Grapes (Mechanical) May 7, 2000
Check out some of the responses to my question regarding a 3d-3point arc.  

Let Grapes know
this post was helpful!

misterAB (Mechanical) Sep 12, 2000
all you have to do is:
extrude a circle (or whatever)along a helix curve
as a path.  

Let misterAB know
this post was helpful!
 
Joel2000 (Petroleum) Oct 9, 2000
Try CADALOG.COM, CADONLINE.COM or CADSOFTWARE.COM, all of these have lisp routines for this type of thing.  

RE: how to create a 3d-model of a sprin

the only problem here is it sounds like he only has plain autocad and that cant do a helix curve or extrude along one either so what you would have to do to come close to it would be creat several toruses and chope em up into smaller peices and rotate them each alittle and then union them that is the only way i know how

RE: how to create a 3d-model of a sprin

You can create a 3D polyline and extrude a circle using the 3D polyline path.  You really only need to do 1 turn of the spring, then you can array and union the pieces into a continuous spring.  Use the SLICE command to cut the spring to the desired length.  Plain or ground ends are easy to do.  Not so easy for squared and ground ends.

RE: how to create a 3d-model of a sprin

After three years of looking.. this is the best program I've seen for springs
BTW as far as the legalize....
it's free, and worth every penny.
Eat your green vegetables and call your Mother
Adios

; SPRING.LSP
;
;        Made for "Authorized User" info@safew.com
;
;        By Theo L.A. Groenenberg
;        Leusden NL
;        acadvice@worldonline.nl
;        http://www.dra.nl/~acadvice
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun veererror (s)
   (if (/= s "Function cancelled")
       (princ (strcat "\nError: " s))
   )
   (setvar "osmode" oudosmode)
   (setq *error* olderr)
   (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun polyveer ()
   (setvar "cmdecho" 0)
   (setvar "osmode" 0)
   (setq ainc (/ (* pi 2) stap)
         dhinc (/ expan stap)
         dvinc (/ spoed stap)
         dv dvinc
         ang 0.0
         tp (polar centrum ang stra)
         orig tp
         zas (polar tp (/ pi 2) (/ stra (/ stap (* 2 pi))))
         zas (list (car zas)(cadr zas)(+ (caddr zas) dvinc))
   )
   (prompt "\nConstructing a 3dpoly .....")
   (command "3dpoly" tp)
   (repeat omwent
           (repeat stap
                   (setq tp (polar centrum (setq ang (+ ang ainc))
                                           (setq stra (+ stra dhinc))
                            )
                         tp (list (car tp)(cadr tp)(+ dv (caddr tp)))
                         dv (+ dv dvinc)
                   )
                   (command tp)
           )
   )
   (command "")
   (setq poly (entlast))
   (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:spring ()
   (setq olderr  *error*
         *error* veererror
         oudosmode (getvar "osmode")
   )
   (setvar "cmdecho" 0)
   (initget 1)
   (setq centrum (getpoint "\nCenterpoint "))
   (initget 7)
   (setq omwent (getint "\nNumber of revolutions "))
   (initget 1)
   (setq ddiam (getdist "\nWire diameter "))
   (initget 7)
   (setq stra (getdist centrum "\nStart radius ")
         stra (- stra (/ ddiam 2))
   )
   (initget 1)
   (setq expan (getdist "\nExpansion per revolution "))
   (initget 3)
   (setq spoed (getdist "\nPitch "))
   (initget 6)
   (setq stap (getint "\nResolution per revolution <90> "))
   (cond ((null stap) (setq stap 90)))
   (polyveer)
   (prompt "\nMaking a spring.....")
   (command "ucs" "za" orig zas
            "circle" "0,0,0" (/ ddiam 2)
            "ucs" "p"
            "extrude" "l" "" "p" orig
   )
   (entdel poly)
   (redraw)
   (setvar "osmode" oudosmode)
   (setq *error* olderr)
   (princ "Regards Theo.")
   (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources