获取块定义的实体表

Lisphk

1. (defun get-block-entities (blk / ent lst)
   
2.   ;; Define the function, declare local variables
   
3. 
   
4.   (if ;; If the following returns a non-nil value
   
5.       ;; i.e. if the block exists in the drawing
   
6.       (setq ent (tblobjname "block" blk))
   
7.     ;; get the BLOCK entity
   
8.     (while (setq ent (entnext ent))
   
9.       ;; Step through the entities in the block definition
   
10. 
    
11.       (setq lst (cons ent lst))
    
12.       ;; Construct a list of the block components
    
13. 
    
14.     )
    
15.     ;; end WHILE
    
16. 
    
17.   )
    
18.   ;; end IF
    
19. 
    
20.   (reverse lst)
    
21.   ;; Return the list
    
22. 
    
23. )
    
24. ;; end DEFUN
    

(defun get-block-entities (blk / ent lst)<br />   ;; Define the function, declare local variables<br /> <br />   (if ;; If the following returns a non-nil value<br />       ;; i.e. if the block exists in the drawing<br />       (setq ent (tblobjname "block" blk))<br />     ;; get the BLOCK entity<br />     (while (setq ent (entnext ent))<br />       ;; Step through the entities in the block definition<br /> <br />       (setq lst (cons ent lst))<br />       ;; Construct a list of the block components<br /> <br />     )<br />     ;; end WHILE<br /> <br />   )<br />   ;; end IF<br /> <br />   (reverse lst)<br />   ;; Return the list<br /> <br /> )<br /> ;; end DEFUN<br />

yoyoho

感谢 Lisphk 分享程序!!!!

marting

也可以用VL函数获得

1. (defun getblkents (blkname / ents e item)
   
2.   (and
   
3.     (setq e (tblobjname "block" blkname))
   
4.     (vlax-for item
   
5.               (vlax-ename->vla-object (cdr (assoc 330 (entget e))))
   
6.       (setq ents (cons (vlax-vla-object->ename item) ents))
   
7.     )
   
8.   )
   
9.   (reverse ents)
   
10. )
    

(defun getblkents (blkname / ents e item)<br />   (and<br />     (setq e (tblobjname "block" blkname))<br />     (vlax-for item<br />               (vlax-ename->vla-object (cdr (assoc 330 (entget e))))<br />       (setq ents (cons (vlax-vla-object->ename item) ents))<br />     )<br />   )<br />   (reverse ents)<br /> )<br />