如何取图框块的范围

hbgsw

之前公司用的图框是标准的块，插入中心点在图框中间，现在发现一些老图纸插入点跑到别的地方了，所以通过块的中心点计算范围不行了，还有什么办法选择块后可以得到图框的对角呢？请各位大神帮帮忙，谢谢！

zctao1966

2. ;;;;通用函数开始
   
3. 
   
4. (defun minmm_ss->enlist (ss / lst n en)
   
5.   (setq n -1)
   
6.   (while (setq en (ssname ss (setq n (1+ n))))
   
7.     (setq lst (cons en lst))
   
8.   )
   
9. )
   
10. (defun minmm_objBox (obj / minpoint maxpoint)
    
11.   (vla-GetBoundingBox obj 'minpoint 'maxpoint)
    
12.                                         ;取得包容图元的最大点和最小点
    
13.   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表
    
14.   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表
    
15.   ;;;;GetBoundingBox返回的是WCS,需转换为用户坐标系ucs
    
16.   ;;;2011.08.22 08:30修改此通用函数
    
17.   ;;;感谢明经通道的caoyin版主,xshrimp大侠的指点！
    
18.   (setq minpoint (trans minpoint 0 1))
    
19.   (setq maxpoint (trans maxpoint 0 1))
    
20. (setq obj (list minpoint maxpoint));;;组合成点表
    
21. )
    
22. (defun minmm_ssbox (ss / boxlst maxlst minlst objlst)
    
23.   (setq objlst (mapcar 'vlax-ename->vla-object (minmm_ss->enlist ss)))
    
24.   (setq boxlst (mapcar 'minmm_objBox objlst))
    
25.   (setq minlst (mapcar 'car boxlst))
    
26.   (setq maxlst (mapcar 'cadr boxlst))
    
27. (list
    
28.    (apply 'mapcar (cons 'min minlst))
    
29.    (apply 'mapcar (cons 'max maxlst))
    
30.   )
    
31. )
    
32. ;;;通用函数结束
    
33. 
    
34. 
    
35. (setq ss (SSGET '((0 . "insert"))));;;选择对象
    
36. 
    
37. (setq shulist (minmm_ssbox ss))
    
38. (setq p1 (car shulist ));;;左下角
    
39. (setq p2 (cadr shulist ));;;右上角
    
40. ;;;mx┏━a━━━┓p2
    
41. ;;;  ┃         ┃
    
42. ;;;   b          b
    
43. ;;;  ┃         ┃
    
44. ;;;  ┃         ┃
    
45. ;;;p1┗━a━━━┛my
    
46.   (setq px1 (car p1))                       ; 取得p1坐标的x值
    
47.   (setq py1 (cadr p1))                       ; 取得p1坐标的y值
    
48.   (setq px2 (car p2))                       ; 取得p2坐标的x值
    
49.   (setq py2 (cadr p2))                       ; 取得p2坐标的y值
    
50.   
    
51.   (setq mx (list px1 py2))               ; 求得mx坐标值
    
52.   (setq my (list px2 py1))               ; 求得my坐标值
    
53.   (setq a  (distance mx p2));;;mx点 ,p2点之间的距离：横向的距离值
    
54.   (setq b  (distance p1 mx));;;p1点 ,mx点之间的距离：纵向的距离值

;;;;通用函数开始<br /> <br /> (defun minmm_ss->enlist (ss / lst n en)<br />   (setq n -1)<br />   (while (setq en (ssname ss (setq n (1+ n))))<br />     (setq lst (cons en lst))<br />   )<br /> )<br /> (defun minmm_objBox (obj / minpoint maxpoint)<br />   (vla-GetBoundingBox obj 'minpoint 'maxpoint)<br />                                         ;取得包容图元的最大点和最小点<br />   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表<br />   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表<br />   ;;;;GetBoundingBox返回的是WCS,需转换为用户坐标系ucs<br />   ;;;2011.08.22 08:30修改此通用函数<br />   ;;;感谢明经通道的caoyin版主,xshrimp大侠的指点！<br />   (setq minpoint (trans minpoint 0 1))<br />   (setq maxpoint (trans maxpoint 0 1))<br /> (setq obj (list minpoint maxpoint));;;组合成点表<br /> )<br /> (defun minmm_ssbox (ss / boxlst maxlst minlst objlst)<br />   (setq objlst (mapcar 'vlax-ename->vla-object (minmm_ss->enlist ss)))<br />   (setq boxlst (mapcar 'minmm_objBox objlst))<br />   (setq minlst (mapcar 'car boxlst))<br />   (setq maxlst (mapcar 'cadr boxlst))<br /> (list<br />    (apply 'mapcar (cons 'min minlst))<br />    (apply 'mapcar (cons 'max maxlst))<br />   )<br /> )<br /> ;;;通用函数结束<br /> <br /> <br /> (setq ss (SSGET '((0 . "insert"))));;;选择对象<br /> <br /> (setq shulist (minmm_ssbox ss))<br /> (setq p1 (car shulist ));;;左下角<br /> (setq p2 (cadr shulist ));;;右上角<br /> ;;;mx┏━a━━━┓p2<br /> ;;;  ┃         ┃<br /> ;;;   b          b<br /> ;;;  ┃         ┃<br /> ;;;  ┃         ┃<br /> ;;;p1┗━a━━━┛my<br />   (setq px1 (car p1))                       ; 取得p1坐标的x值<br />   (setq py1 (cadr p1))                       ; 取得p1坐标的y值<br />   (setq px2 (car p2))                       ; 取得p2坐标的x值<br />   (setq py2 (cadr p2))                       ; 取得p2坐标的y值<br />   <br />   (setq mx (list px1 py2))               ; 求得mx坐标值<br />   (setq my (list px2 py1))               ; 求得my坐标值<br />   (setq a  (distance mx p2));;;mx点 ,p2点之间的距离：横向的距离值<br />   (setq b  (distance p1 mx));;;p1点 ,mx点之间的距离：纵向的距离值

yoyoho

感谢 zctao1966 分享程序!

lucas_3333

yoyoho 发表于 2015-9-17 16:14
感谢 zctao1966 分享程序!

总是这一句，专业收集器啊

海盗曹

学习一下程序

ygp820601

如何使包围盒中不包含动态块中隐藏对象？

llsheng_73

zctao1966 发表于 2015-9-17 12:22

有的图元对象不支持vla-GetBoundingBox，比如直接插入一个DWG文件进来，经常会得不到任何东东，不知道该如何解决，另外，对于MTEXT，它得到的范围好象也不是所显示文字内容部分的范围，也是一直不知道如何解决

xiaolong1487

llsheng_73 发表于 2015-11-18 14:10
有的图元对象不支持vla-GetBoundingBox，比如直接插入一个DWG文件进来，经常会得不到任何东东，不知道该如 ...

vla-GetBoundingBox 我感觉缺少字体会有点影响！

llsheng_73

xiaolong1487 发表于 2015-11-19 07:54
vla-GetBoundingBox 我感觉缺少字体会有点影响！

这个倒没太注意过

zctao1966

llsheng_73 发表于 2015-11-18 14:10
有的图元对象不支持vla-GetBoundingBox，比如直接插入一个DWG文件进来，经常会得不到任何东东，不知道该如 ...

有范例文件吗、