0 Members and 1 Guest are viewing this topic.
(defun mst-extend () (vl-cmdf "line" (getpoint (setq x (getpoint))) x "") (vl-cmdf "extend" (entsel)) )
(defun mst-extend2 () (setq line (vla-addline (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-object "AutoCAD.Application"))) (vlax-3d-point (getpoint (setq x (getpoint)))) (vlax-3d-point x))) (vl-cmdf "extend" (vlax-vla-object->ename line)) (if (not (vlax-object-released-p line)) (vlax-release-object line) ) )
(defun mst-extend2 (/ line) (setq line (vla-addline (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-object "AutoCAD.Application") ) ) (vlax-3d-point (getpoint "\nSelect 2nd Point: " (setq x (getpoint "\nSelect 1st Point: ")) ) ) (vlax-3d-point x) ) ) (if line (progn (vl-cmdf "extend" (vlax-vla-object->ename line) "") (vlax-release-object line) ) ) (princ) )
Glad it works