拾取实体，返回所在最外层组的所有实体选择集

Lisphk

[JavaScript] 纯文本查看 复制代码

; Returns a selection set, containing selected enames within the most partent group, or just an ename - if there are no groups, else nil
; _$ (_PickMostParentGroup nil) -> <Selection set: 3c>
; (sslength (_PickMostParentGroup nil)) ; check
(defun _PickMostParentGroup ( msg / *error* sv e r ) 
 
  (defun *error* ( m )
    (and sv (mapcar '(lambda (x) (apply 'setvar x)) sv))
    (and m (princ m)) (princ)
  ); defun *error*
 
  (setq sv (apply 'append (mapcar '(lambda (x / v) (if (setq v (getvar (car x))) (progn (apply 'setvar x) (list (list (car x) v))))) '((pickstyle 1)(highlight 0)(cmdecho 0)(errno 0)))))
 
  (while (/= 52 (getvar 'errno)) (setq e (car (entsel (strcat "\n" (cond ( (eq 'STR (type msg)) msg) ("Select object <exit>: "))))))
    (cond
      ( (= 7 (getvar 'errno)) (setvar 'errno 0) ) ( (not e) ) 
      ( (setq r ((lambda (x) (command "_.SELECT" x "") (ssget "_P")) e)) (setvar 'errno 52) )
    ); cond
  ); while
  (*error* nil) r
); defun _PickMostParentGroup