;;; Draw Continuous Arcs (Connecting blocks with arcs for electrical plans)
;;; Created by Scot-65
;;; Saved from: http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/connecting-blocks-with-line-or-arc-for-electrical-plans/td-p/5494374

(defun c:Ca ( / a )
(graphscr)
(setq usercw (getpoint "Continuous Arc \nSpecify start point of arc: "))
(while usercw
(setq a (getpoint usercw "\nSpecify second point of arc: "))
(if a
(progn
(command "arc" usercw a pause)
(setq usercw (getvar "lastpoint"))
);progn
(setq usercw nil)
);if
(setq a nil)
);while
);endCW
(c:ca)

Advertisements