【K:GetAllObj4Blk】获取块内所有图元/对象

kucha007

两个函数达成的效果一致，可以配合高飞鸟大神的矩阵函数达成不一样的玩法

函数一：

1. ;获取全部块内对象
   
2. ;BlkObj为图元时返回图元表, BlkObj为对象时返回vl对象表
   
3. (defun K:GetAllObj4Blk (BlkObj / EnFlag Lst XX )
   
4.   (if (null vlax-dump-object) (vl-load-com));;将Visual LISP扩展功能加载到AutoLISP
   
5.   (setq EnFlag Nil Lst nil)
   
6.   (if (eq (type BlkObj) 'ENAME)
   
7.     (setq EnFlag T
   
8.           BlkObj  (Vlax-Ename->Vla-Object BlkObj)
   
9.     )
   
10.   )
    
11.   (vlax-for XX
    
12.     (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    
13.       (Vlax-Get BlkObj 'Name);块名
    
14.     )
    
15.     (setq Lst (cons XX Lst))
    
16.   )
    
17.   (if EnFlag (mapcar 'vlax-vla-object->ename Lst) Lst)
    
18. )
    

;获取全部块内对象<br /> ;BlkObj为图元时返回图元表, BlkObj为对象时返回vl对象表<br /> (defun K:GetAllObj4Blk (BlkObj / EnFlag Lst XX )<br />   (if (null vlax-dump-object) (vl-load-com));;将Visual LISP扩展功能加载到AutoLISP<br />   (setq EnFlag Nil Lst nil)<br />   (if (eq (type BlkObj) 'ENAME) <br />     (setq EnFlag T<br />           BlkObj  (Vlax-Ename->Vla-Object BlkObj)<br />     )<br />   )<br />   (vlax-for XX <br />     (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))<br />       (Vlax-Get BlkObj 'Name);块名<br />     )<br />     (setq Lst (cons XX Lst))<br />   )<br />   (if EnFlag (mapcar 'vlax-vla-object->ename Lst) Lst)<br /> )<br />

函数二：

1. ;获取全部块内对象
   
2. ;BlkObj为图元时返回图元表, BlkObj为对象时返回vl对象表
   
3. (defun K:GetAllObj4Blk (BlkEN / ObjFlag Lst en XX)
   
4.   (if (null vlax-dump-object) (vl-load-com));;将Visual LISP扩展功能加载到AutoLISP
   
5.   (setq ObjFlag Nil Lst nil)
   
6.   (if (eq (type BlkEN) 'VLA-OBJECT)
   
7.       (setq ObjFlag T
   
8.             BlkEN  (vlax-vla-object->ename BlkEN)
   
9.       )
   
10.   )
    
11.   (setq en (tblobjname "block" (cdr (assoc 2 (entget BlkEN)))))
    
12.   (while (setq en (entnext en)) (setq Lst (cons en Lst)));收集块内图元
    
13.   
    
14.   (if ObjFlag (mapcar 'vlax-ename->vla-object Lst) Lst)
    
15. )
    

;获取全部块内对象<br /> ;BlkObj为图元时返回图元表, BlkObj为对象时返回vl对象表<br /> (defun K:GetAllObj4Blk (BlkEN / ObjFlag Lst en XX)<br />   (if (null vlax-dump-object) (vl-load-com));;将Visual LISP扩展功能加载到AutoLISP<br />   (setq ObjFlag Nil Lst nil)<br />   (if (eq (type BlkEN) 'VLA-OBJECT) <br />       (setq ObjFlag T<br />             BlkEN  (vlax-vla-object->ename BlkEN)<br />       )<br />   )<br />   (setq en (tblobjname "block" (cdr (assoc 2 (entget BlkEN)))))<br />   (while (setq en (entnext en)) (setq Lst (cons en Lst)));收集块内图元<br />   <br />   (if ObjFlag (mapcar 'vlax-ename->vla-object Lst) Lst)<br /> )<br />

用法：

1. (K:GetAllObj4Blk (car (entsel)))
   
2. (K:GetAllObj4Blk (vlax-ename->vla-object (car (entsel))))
   

(K:GetAllObj4Blk (car (entsel)))<br /> (K:GetAllObj4Blk (vlax-ename->vla-object (car (entsel))))<br />

lxl217114

高产了，高产了
感谢分享

magicheno

感谢大佬分享

newmooooon

有用，学习了！