Topic: Draw arc, turn into pline, joing together

[TJAM51]

How can I convert this macro into lisp?


Thanks

^C^Carc;\\\^C^Carc;\\\^C^Cpe;m;\\;y;j;;;

[ronjonp]

Here's my ugly version:

Code: [Select]

(defun c:join (/ csnaps pt1 pt2 pt3 pt4 pt5)
  (setq csnaps (getvar 'osmode))
  (setvar "osmode" 0)
  (initget 1)
  (setq pt1 (getpoint "\nSelect arc start point:"))
  (initget 1)
  (setq pt2 (getpoint pt1 "\nSelect arc midpoint:"))
  (initget 1)
  (setq pt3 (getpoint pt2 "\nSelect arc endpoint:"))
  (command ".pline" pt1 "a" "s" pt2 pt3 "")
  (initget 1)
  (setq pt4 (getpoint pt3 "\nSelect second arc midpoint:"))
  (initget 1)
  (setq pt5 (getpoint pt4 "\nSelect second arc endpoint:"))
  (command ".pline" pt3 "a" "s" pt4 pt5 "")
  (command ".pedit" "last" "join" "cr" pt1 pt5 "" "")
  (setvar "osmode" csnaps)
  (princ)
)    

[Anonymous]

LOVE IT.......THANK YOU

[ronjonp]

you're quite welcome