Hello all,
I have created a lisp that will begin a ployline on a certain layer depending on the point selected. Since my lisping skills leave something to be desired, I ask you all to take a look at this and let me know if you see a way of improving the function.
Thanks all,
Andre
Code:;Draw polyline on selected layer (defun drawpolyline (/ sp) (setq prevlay (getvar "clayer")) (setq sp (getpoint "\nSpecify start point: ")) (command "_ai_molc" sp) (if (= (strcase (getvar "clayer")) "X-ANNO-BASE") (setvar "clayer" prevlay) ) (if (= (strcase (getvar "clayer")) "M-SUPP-DIFF") (setvar "clayer" "M-SUPP-DUCT") ) (if (= (strcase (getvar "clayer")) "M-RETN-DIFF") (setvar "clayer" "M-RETN-DUCT") ) (if (= (strcase (getvar "clayer")) "M-EXHS-DIFF") (setvar "clayer" "M-EXHS-DUCT") ) (command ".pline" sp) (princ) ) (defun c:dr () (drawpolyline))