0 Members and 1 Guest are viewing this topic.
(defun C:test (/ SS2) (setq ss2 (ssget '((0 . "LWPOLYLINE,POLYLINE,LINE,ARC") (-4 . "<NOT") (-4 . "&") (70 . 1) (-4 . "NOT>") ) ) )
(setq ss2 (ssget '((0 . "LWPOLYLINE,POLYLINE,LINE,ARC"))))
(setq ss2 (ssget '((0 . "LWPOLYLINE,POLYLINE,LINE,ARC,SPLINE"))))
(setq ent (getpoint "\n the left up point")) (setq ens (getcorner a "\n the bottom right point")) (setq dg (nth 1 ent) by (nth 1ens) )