;;;===================================================================;
;;; selected-p ;
;;;-------------------------------------------------------------------;
;;; This function will test to see if something is selected on screen ;
;;; ;
;;; Returns: T or nil ;
;;; ;
;;; Author: John Kaul ;
;;; ;
;;; Usage: (if (not (selected-p)) ;
;;; (vlax-ename->vla-object (car (entsel)))) ;
;;;===================================================================;
;;;===================================================================;
;;; Get-Selected ;
;;;-------------------------------------------------------------------;
;;; This function will offer a way for the programer to get an ;
;;; entity or entities already slected on the screen before the ;
;;; program took control. This program was intended for use in an ;
;;; ActiveX program. I have chosen not to use the "Pickfirst" method ;
;;; in accomplishing this task because I wanted a way to do this even ;
;;; if the "pickfirst" variable was toggled to zero. If no entity is ;
;;; currently selected on the screen, this function will prompt the ;
;;; end user to select an entity. ;
;;; ;
;;; Author: John Kaul ;
;;; ;
;;; Returns: Either previously selected entity, a selected entity, or ;
;;; a list of selected entities. ;
;;; ;
;;; Usage: (vlax-ename->vla-object (get-selected)) ;
;;; ;
;;;-------------------------------------------------------------------;
;;; Version: 1.1 Added the ability to have more then one selected ;
;;; objects on the screen. ;
;;;===================================================================;
(defun get
-selected
(/ x cntr xlength xlist
) ((= xlength 1)
((> xlength 1)
((>= cntr 2)
;; For higlighting entities
;; (foreach a xlist (progn (sssetfirst nil) (redraw a 3)))
)))
;; ((= xlength nil)
;; (while (not (setq x (entsel "\nselect object: "))))
;; (setq x (car x))
;; (sssetfirst nil)
;; ;; For higlighting entities
;; ;; (redraw x 3)
;; )
)
(if (= nil xlist
) x xlist
) )