0 Members and 1 Guest are viewing this topic.
(setq a (car (entsel "\n Select line: ")))(vl-cmdf "_select" a "")(setq b (ssget "_P"))(sssetfirst nil b)(alert "line selected")
Code: [Select](setq a (car (entsel "\n Select line: ")))(vl-cmdf "_select" a "")(setq b (ssget "_P"))(sssetfirst nil b)(alert "line selected")
(defun c:tsx (/ a b closed_flag en flag i ss) (setq a nil b nil ) (setvar "pickfirst" 0);to clear previous selset (setvar "cmdecho" 0) (if (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE"))) i -1 ) (progn (while (setq en (ssname ss (setq i (1+ i)))) (if (eq (cdr (assoc 0 (entget en))) "LWPOLYLINE") (setq flag t) nil ) (if (= (cdr (assoc 70 (entget en))) 1) (setq closed_flag t) nil ) ) ) ) (if (not closed_flag) (progn (if flag (command "pedit" ss "j" ss "" "") (command "pedit" ss "y" "j" ss "" "") ) ) (alert "\n You can't join anything with closed polyline!") ) (setvar "cmdecho" 1) (setvar "pickfirst" 1) (princ))
(defun ssredraw ( ss mode / i ) (if (eq 'pickset (type ss)) (repeat (setq i (sslength ss)) (redraw (ssname ss (setq i (1- i))) mode ) ) ))
Selection in response to 'ssget' always gets highlited ...