Helix V11

Erich Vogel
Erich Vogel
in Other

Is there any tool available(v11pro) to create a helix e.g.used  as a path for extrusion (screw).

Thanks for hints

Erich

Comments

  • Rakesh Rao
    Rakesh Rao

    Hello Erich,

    We have a ready-made command to draw a Helix in our GeoTools add-on program. You may want to download this and take a look. It works both under Bricscad as well as AutoCAD. You can contact me by email or through this forum for more info.

    If you want to do some Lisp programming yourself, here is a function code to generate the helix:

    ; Function to create the Helix
    (defun helix (cp od gr wi sang pitch rot / orad irad s_gr segs s_ang s_pitch
     bp iang w bm OS)
    (setq
     segs    (getvar "SURFTAB1")
     s_ang   (/ (* 2.0 pi) segs)
     s_pitch (/ pitch segs)
     s_gr    (/ gr segs)
     iang    (- sang s_ang)
     bp      (delta_z cp (- s_pitch))
     orad    (* od 0.5)
     irad    (- orad wi)
    )     

    (cond
     ((setq w (> wi 0.0))
      (command
       "._3DMESH"            
       (fix (1+ (* segs rot)))
       2
      )
     )    
     (T (command "._3dPoly"))
    )

    (setq OS (getvar "OSMODE"))
    (setvar "OSMODE" 0)

    (repeat (fix (1+ (* segs rot)))
     (command
      (polar (setq bp (delta_z bp s_pitch)) (setq iang (+ iang s_ang)) orad)
     )

     (if w
      (command (polar bp iang irad))
     )

     (setq
      orad (+ orad s_gr)
      irad (+ irad s_gr)
     )
    )
    (setvar "OSMODE" OS)

    (if (not w) (command ""))
    (entlast)
    )

    Let me know if this helped.

    - rakesh.rao@4d-technologies.com
    - www.4d-technologies.com / www.coordsys.com
    - Blog:EN: http://rakeshrao.typepad.com
    - Blog: ES: http://kiranabhat.typepad.com

This discussion has been closed.