Topic: Rolling Offset

[bayoubuoy]

I'm pushing 63 so age is not a factor but the gray matter leak is.

Thanks  CAB, I'll give it a test run.
I'm older than you are. I ain't gonna say by how much.

[David Bethel]

This is where a true 3D modeler put autocad to shame.  They can handle piping bends and offsets with ease.

If you can handle a Z axis delta and meshes in lieu of solids, then maybe this can help you.  ( back from my days of bending things )





http://www.davidbethel.com/swamp/tubeoffs.lsp

There is also a 3dpoly center line included for snaps

Good luck.  -David

[CAB]

David,
I guess your server is off line at this time?

[David Bethel]

CAB,


Operator error on my part. it should work now.

I was looking for a FAQ on uploading things here ( to the lilly pond if I remember ) but couldn't find. it.  -David

[fixo]

David,
I guess your server is off line at this time?

Alan,
I've got it right now it's available
Try again

Oleg

[IRONNIE]

Code: [Select]

(defun C:ROLL ()
  (setq RUN (UDIST NIL "\n   Run" RUN))
  (setq OFFSET (UDIST NIL "Offset" OFFSET))
  (setq RISE (UDIST NIL "  Rise" RISE))
  (setq `C` (sqrt (+ (expt RUN 2) (expt OFFSET 2))))
  (setq TRAVEL (sqrt (+ (expt RISE 2) (expt `C` 2))))
  (princ (strcat "Travel <" (rtos TRAVEL) ">\n\n"))
  (list RUN ROLL RISE TRAVEL)
)

(defun UDIST (SW MSG ANS / SW MSG ANS)
  (if (not ANS)
    (setq ANS 0)
  )
  (setq OANS ANS)
  (setq MSG (strcat MSG " <" (rtos ANS) ">: "))
  (if SW
    (setq ANS (getdist SW MSG))
    (setq ANS (getdist MSG))
  ) ;if
  (if (not ANS)
    (setq ANS OANS)
  )
  ANS
)

[CAB]

Welcome to the Swamp.
I added Code tags to your post.