[编程交流] 选择所有打开的对象

(defun c:qs ()
(setq obj (entsel "\nSelect object on desired layer: "))
(while (not obj) (setq obj (entsel "\nNo object selected, try again: ")))
(setq ent (entget (car obj))
lay (cdr (assoc 8 ent)))
(ssget "_X" '((8 . lay)))
(princ (strcat "\nEverything on layer " lay " selected."))
(princ))

(defun c:qs (/ obj ent lay)
 (setq obj (entsel "\nSelect object on desired layer: "))
 (while (not obj) (setq obj (entsel "\nNo object selected, try again: ")))
 (setq ent (entget (car obj))
lay (cdr (assoc 8 ent)))
 (ssget "_X" (list (cons 8 lay)))
 (princ (strcat "\nEverything on layer " lay " selected."))
 (princ))

(defun c:qs (/ obj ent lay)
(setq obj (entsel "\nSelect object on desired layer: "))
(while (not obj) (setq obj (entsel "\nNo object selected, try again: ")))
(setq lay (cdr (assoc 8 (entget (car obj)))))
(sssetfirst nil (ssget "_X" (list (cons 8 lay))))
(princ (strcat "\nEverything on layer " lay " selected."))
(princ))

(defun c:qs ( / e )
 (while (not (setq e (car (entsel))))
   (princ "\n** Come on, you gotta do better than that **"))
 (sssetfirst nil (ssget "_X" (list (assoc 8 (entget e)))))
 (princ))

(defun c:SA (/ pf ent ss)
 ;; Alan J. Thompson, 06.17.10
 (setq pf (ssget "_I"))
 (if (and (setq ent (car (entsel "\nSelect on layer: ")))
          (setq ss (ssget "_X"
                          (list (assoc 8 (entget ent))
                                (if (eq 2 (getvar "cvport"))
                                  (cons 410 "Model")
                                  (cons 410 (getvar "ctab"))
                                )
                          )
                   )
          )
     )
   ((lambda (i)
      (if (eq (type pf) 'PICKSET)
        (while (setq e (ssname pf (setq i (1+ i))))
          (ssadd e ss)
        )
      )
      (sssetfirst nil ss)
    )
     -1
   )
 )
 (princ)
)