[编程交流] 如何向ssget添加选项？

(defun c:test (/ Prcd gr Npt Mode Par )
     (prompt "\nSelect objects, or [by Style/by Layer/by Color/...]:")
    (while (null Prcd)
      (setq gr (grread nil 4 2) Mode (car gr))
       (cond
          ((= 3 Mode)
         (princ "\nSelect Mode")
         (setq Objects (ssget "_C" (cadr gr)
              (setq Npt (Getcorner (cadr gr) "\nOther Corner:"))))
         (foreach mp (vl-remove-if 'listp
                       (mapcar 'cadr(ssnamex Objects)))
          (redraw mp 3))
         (setq Prcd T))
       ((and (= 2 Mode)
             (setq Par (member (cAdr gr) '(67 76 83 99 108 115))))
          (princ (strcat "\nYou Pressed " (chr (car Par))))
         (setq Prcd T))
     )
      )
     (princ)
     )

(defun C:TEST ()
   (setq SEL (ssadd))
   (initget "S L C")
   (setq a (entsel "\nSelect objects, or by [style/Layer/Color]...:"))
   (if (= a "S")
       (progn
           ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       )
   )
   (if (= a "L")
       (progn
            ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       )
   )
   (if (= a "S")
       (progn
            ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       )
   )    
   (if (and (/= a nil)(/= a "S")(/= a "L")(/= a "C"))
       (progn
           (setq SEL (ssadd (car a) SEL))
           (command "_select" SEL pause)
           (setq SEL (ssget "_P"))
       )     
   )
   (if (= a nil)
       (progn
           (command "_select" "_BOX" (cadr (grread T)) pause)
           (setq SEL (ssget "_P"))
       )
   )
)

(defun C:TEST (/ a b option)
   (setq SEL (ssadd))
   (initget "? ST LA CO W L C B ALL F WP CP G A R M P U AU SI SU O")
   (setq a (entsel "\nSelect objects, or by [sTyle/LAyer/COlor]...:  "))
   (if (= a "?")
       (progn
           (setq b nil)
           (while (not (member b (list "W" "L" "C" "B" "BOX" "ALL" "F" "WP" "CP"
                     "G" "A" "R" "M" "P" "U" "AU" "SI" "SU" "O"))) 
               (prompt "Expects a point or" )
               (prompt "\nWindow/Last/Crossing/BOX/ALL/Fence/WPolygon/")
               (prompt "CPolygon/Group/Add/Remove/Multiple/Previous/")
               (prompt "Undo/AUto/SIngle/SUbobject/Object ")
               (prompt "\nSelect objects:" )
               (setq b (strcase (getstring)))
               (if (= b nil) (exit))
           )
           (setq a b)
       )
   )
   (if (= a "ST")
       (progn
           ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       )
   )
   (if (= a "LA")
       (progn
            ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       )
   )
   (if (= a "CO")
       (progn
            ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       )
   )    
   (if (and
           (/= a nil)
           (not
               (member a
                   (list "?" "ST" "LA" "CO" "W" "L" "C" "B"
                         "BOX" "ALL" "F" "WP" "CP" "G" "A"
                         "R" "M" "P" "U" "AU" "SI" "SU" "O")
               )
           )
       )
       (progn
           (setq SEL (ssadd (car a) SEL))
           (command "_select" SEL pause)
           (setq SEL (ssget "_P"))
       )     
   )
   (if (= a nil)
       (progn
           (command "_select" "_BOX" (cadr (grread T)) pause)
           (setq SEL (ssget "_P"))
       )
   )
   (if (member a (list "W" "L" "C" "B" "BOX" "ALL" "F" "WP" "CP"
                     "G" "A" "R" "M" "P" "U" "AU" "SI" "SU" "O"))
       (progn
           (setq option (strcat "_" a))
           (command "_select" option pause)
           (setq SEL (ssget "_P"))
       )     
   )
)