【选择】按块选择

marting

1. (defun c:xdtb_selbyblk (/ e1 na ss)
   
2.   (if (and (setq
   
3.              e1        (car (xdrx-entsel "\n选择图块<退出>:" '((0 . "insert"))))
   
4.            )
   
5.            (setq na (xdrx-getpropertyvalue e1 "name"))
   
6.            (setq ss (xdrx-ssget "\n选择搜索范围<退出>:"  (list (cons 2 na))))
   
7.       )
   
8.     (progn (xdrx-prompt "\n共选择到图块 " na " 共" (sslength ss) "个.")
   
9.            (sssetfirst nil ss)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    
14. 
    

(defun c:xdtb_selbyblk (/ e1 na ss)<br />   (if (and (setq<br />              e1        (car (xdrx-entsel "\n选择图块<退出>:" '((0 . "insert"))))<br />            )<br />            (setq na (xdrx-getpropertyvalue e1 "name"))<br />            (setq ss (xdrx-ssget "\n选择搜索范围<退出>:"  (list (cons 2 na))))<br />       )<br />     (progn (xdrx-prompt "\n共选择到图块 " na " 共" (sslength ss) "个.")<br />            (sssetfirst nil ss)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />