由图块名直接获取引用块

st788796

2. 
   
3. (defun getblockreferenceIds (name / e)
   
4.   (if (setq e (tblobjname "block" name))
   
5.     (mapcar 'cdr
   
6.             (vl-remove-if
   
7.               '(lambda (x) (/= (car x) 331))
   
8.               (entget (cdr (assoc 330 (entget e))))
   
9.             )
   
10.     )
    
11.   )
    
12. )

<br /> (defun getblockreferenceIds (name / e)<br />   (if (setq e (tblobjname "block" name))<br />     (mapcar 'cdr<br />             (vl-remove-if<br />               '(lambda (x) (/= (car x) 331))<br />               (entget (cdr (assoc 330 (entget e))))<br />             )<br />     )<br />   )<br /> )