Topic: Offset at different distance

[aswin]

Hi friends...
is there any lisp to offset a line as per attachment ?
 

[ChrisCarlson]

Is there a ratio or formula that is consistent?

[Grrr1337]

Use this tool from Lee Mac, and adjust the offset factor.

[ronjonp]

THIS one too.

[Ketxu]

And maybe http://www.cadtutor.net/forum/showthread.php?88234-Multi-Offset-with-Different-Distances&p=606023&viewfull=1#post606023

[paulmcz]

How about knurling lines?

Code: [Select]

;;; inserts, moves and rotates vertical knurling lines for side view of cylinder
(defun c:233 (/ di ip l n oort p1 p2 r ss u u1)
  (command "_.undo" "begin")
  (setq l    (getdist "\n Knurling line length: ")
r    (/ (getdist "\n Diameter: ") 2.0)
n    (getint "\n Number of knurling lines visible in side view: ")
u    (/ pi n)
ip   (list 0 0 0)
u1   u
ss   (ssadd)
oort (getvar "orthomode")
  )
  (repeat (- n 1)
    (setq di (- r (* r (cos u1)))
  p1 (polar ip 0 di)
  p2 (polar p1 (* pi 0.5) l)
  u1 (+ u1 u))
    (entmake (list (cons 0 "LINE")(cons 10 p1)(cons 11 p2)))
    (ssadd (entlast) ss)
  )
  (setvar "orthomode" 0)
  (command "move" ss "" ip pause)
  (command "rotate" ss "" (getvar "lastpoint") pause)
  (setvar "orthomode" oort)
  (command "_.undo" "end")
  (princ (strcat "\n Circle radius = " (rtos r 2 3)))
  (princ)
  )

[GDF]

Awesome

[paulmcz]

Thanks GDF, laziness made me write it some time ago.

[aswin]

Thanks a lot friends.. really helpful lisps...