如何准确获取块内对象包围盒？

aws

遇到一个问题，块内对象的包围盒居然获取异常，请教下大佬们如何解决？

1. (defun c:gg()
   
2.   (setq blocks(vla-get-Blocks(vla-get-ActiveDocument(vlax-get-acad-object))))
   
3.   (setq en(car(entsel "选取一个图元：")))
   
4.   (setq obj(vlax-ename->vla-object en))
   
5.   (if(setq blkDef(vla-Item blocks(vla-get-Name obj)))
   
6.     (vlax-for x blkDef
   
7.       (if(equal(get_rgb x)'(0 0 0))
   
8.         (progn
   
9.           (vla-put-Color x 2)
   
10.           (vla-GetBoundingBox x 'minp 'maxp)
    
11.           (setq box(list(vlax-safearray->list minp)(vlax-safearray->list maxp)))
    
12.         )
    
13.       )
    
14.     )
    
15.   )
    
16.   (entmakex(list '(0 . "LINE")(cons 10 (car box))(cons 11(cadr box))))
    
17.   (print a)
    
18.   (princ)
    
19. )
    
20. ;---获取对象RGB值表
    
21. (defun get_rgb(obj / c)
    
22.   (setq c(vla-get-TrueColor obj))
    
23.   (list
    
24.     (vla-get-Red c)
    
25.     (vla-get-Green c)
    
26.     (vla-get-Blue c)
    
27.   )
    
28. )
    

(defun c:gg()<br />   (setq blocks(vla-get-Blocks(vla-get-ActiveDocument(vlax-get-acad-object))))<br />   (setq en(car(entsel "选取一个图元：")))<br />   (setq obj(vlax-ename->vla-object en))<br />   (if(setq blkDef(vla-Item blocks(vla-get-Name obj)))<br />     (vlax-for x blkDef<br />       (if(equal(get_rgb x)'(0 0 0))<br />         (progn<br />           (vla-put-Color x 2)<br />           (vla-GetBoundingBox x 'minp 'maxp)<br />           (setq box(list(vlax-safearray->list minp)(vlax-safearray->list maxp)))<br />         )<br />       )<br />     )<br />   )<br />   (entmakex(list '(0 . "LINE")(cons 10 (car box))(cons 11(cadr box))))<br />   (print a)<br />   (princ)<br /> )<br /> ;---获取对象RGB值表<br /> (defun get_rgb(obj / c)<br />   (setq c(vla-get-TrueColor obj))<br />   (list<br />     (vla-get-Red c)<br />     (vla-get-Green c)<br />     (vla-get-Blue c)<br />   )<br /> )<br />

你有种再说一遍

如果你是敲C#我会建议你去看IFox,
包围盒错误无非就是类型需要单独处理,
不处理就直接try了之后动态收集类型名称存set上面,
再用set直接过滤下次类型名,已达不反复发生异常信息.

可是你敲Lisp,那就肉眼保证类型.

常出现异常的类型:
点,射线,参照线,0长度多段线,无内容文字,天正...以及利用这些成员组块...
这种不具备包围盒的图元

wzg356

块属性直接获取包围盒，其它对象的包围盒坐标

wzg356

wzg356 发表于 2025-5-16 23:32
块属性直接获取包围盒，其它对象的包围盒坐标

块属性直接获取包围盒，其它对象的包围盒坐标分别乘xyz比例再分别+块参照插入点坐标