属性块包围盒

自贡黄明儒

万一哪一天用得上，自己好找一点，故放在这里

1. (defun t1t1t1 (e / A B EB EN L NAME OBJ)
   
2.   (setq en (entget e))
   
3.   (setq name (cdr (assoc 2 en)))
   
4.   (setq eb (TBLOBJNAME "Block" name))
   
5.   (while (setq eb (entnext eb))
   
6.     ;;如果不是*TEXT,ATTDEF ,求包围盒
   
7.     (setq name (cdr (assoc 0 (entget eb))))
   
8.     (if        (not (wcmatch name "*TEXT,ATTDEF"))
   
9.       (progn
   
10.         (setq obj (vlax-ename->vla-object eb))
    
11.         (vla-GetBoundingBox obj 'a 'b)
    
12.         (setq a (safearray-value a))
    
13.         (setq b (safearray-value b))
    
14.         (setq L (cons a L))
    
15.         (setq L (cons b L))
    
16.       )
    
17.     )
    
18.   )
    
19.   ;;如果L存在，求包围盒
    
20.   (if L
    
21.     (list
    
22.       (apply 'mapcar (cons 'min L))
    
23.       (apply 'mapcar (cons 'max L))
    
24.     )
    
25.   )
    
26. )
    
27. 
    
28. 
    
29. ;;选择块
    
30. (defun C:t1 (/ A B E L OBJ)
    
31.   (setq e (car (entsel)))
    
32.   ;;此块的外围盒
    
33.   (setq obj (vlax-ename->vla-object e))
    
34.   (vla-GetBoundingBox obj 'a 'b)
    
35.   (setq a (safearray-value a))
    
36.   (setq b (safearray-value b))
    
37.   (princ (list a b))
    
38. 
    
39.   ;;块最小包围盒
    
40.   (princ (t1t1t1 e))
    
41.   (princ)
    
42. )

(defun t1t1t1 (e / A B EB EN L NAME OBJ)<br />   (setq en (entget e))<br />   (setq name (cdr (assoc 2 en)))<br />   (setq eb (TBLOBJNAME "Block" name))<br />   (while (setq eb (entnext eb))<br />     ;;如果不是*TEXT,ATTDEF ,求包围盒<br />     (setq name (cdr (assoc 0 (entget eb))))<br />     (if        (not (wcmatch name "*TEXT,ATTDEF"))<br />       (progn<br />         (setq obj (vlax-ename->vla-object eb))<br />         (vla-GetBoundingBox obj 'a 'b)<br />         (setq a (safearray-value a))<br />         (setq b (safearray-value b))<br />         (setq L (cons a L))<br />         (setq L (cons b L))<br />       )<br />     )<br />   )<br />   ;;如果L存在，求包围盒<br />   (if L<br />     (list<br />       (apply 'mapcar (cons 'min L))<br />       (apply 'mapcar (cons 'max L))<br />     )<br />   )<br /> )<br /> <br /> <br /> ;;选择块<br /> (defun C:t1 (/ A B E L OBJ)<br />   (setq e (car (entsel)))<br />   ;;此块的外围盒<br />   (setq obj (vlax-ename->vla-object e))<br />   (vla-GetBoundingBox obj 'a 'b)<br />   (setq a (safearray-value a))<br />   (setq b (safearray-value b))<br />   (princ (list a b))<br /> <br />   ;;块最小包围盒<br />   (princ (t1t1t1 e))<br />   (princ)<br /> )

moshouhot

黄总，这个问题能解决不？
http://bbs.mjtd.com/thread-190830-1-1.html

小菜123

看不懂要干什么？属性的坐标没有变换

jun470

大佬，动态块可以包围吗？

自贡黄明儒

小菜123 发表于 2024-8-20 11:10
看不懂要干什么？属性的坐标没有变换

检查属性文字是否太长，超出图框范围

cghdy

jun470 发表于 2024-8-20 12:39
大佬，动态块可以包围吗？

我也想问这个问题

qazxswk

我mark一下。

muai2010

感谢分享....