[求助]：如何获得包围选定实体的最小矩形框

LADESIGNER

如ZOOM到选定实体最大显示，文字、线段都好说，其他的如图块、填充、SPLINE就比较难办。

aidraft

用getboundingbox方法

lsjjm

内部函数(acet-geom-extents <ename>)返回实体范围

LADESIGNER

这两个函数是不是VBA函数啊,用autolisp能实现吗?

xdkjzzz

我做了一个程序不知哪里有问题
(defun a( )
  (setq acadapp (vlax-get-acad-object)
        acaddoc (vla-get-activedocument acadapp)
        mspace (vla-get-modelspace acaddoc)
        abc (car (entsel "\nselect object"))
        vlaob (vlax-ename->vla-object abc)
  )
  (setq  b (vla-GetBoundingBox vlaob x y))
  )
但由于x y 应为output-only不知如何定义

LUCAS

2. 
   
3. (defun C:A ()
   
4.   (setq        ABC   (car (entsel "\nselect object"))
   
5.         VLAOB (vlax-ename->vla-object ABC)
   
6.   )
   
7.   (vla-getboundingbox VLAOB 'X 'Y)
   
8.   (setq B (mapcar 'vlax-safearray->list (list X Y)))
   
9.   (command "_.RECTANG" (car B) (cadr B))
   
10. )
    

<br /> (defun C:A ()<br />   (setq        ABC   (car (entsel "\nselect object"))<br />         VLAOB (vlax-ename->vla-object ABC)<br />   )<br />   (vla-getboundingbox VLAOB 'X 'Y)<br />   (setq B (mapcar 'vlax-safearray->list (list X Y)))<br />   (command "_.RECTANG" (car B) (cadr B))<br /> )<br />

PFD8667

6楼楼主的程序蛮好用的,但一定要是多段线或建成面域才行,能不能就直线与弧线组成的图形能用你的程序就好了,因为我找了好久了,麻烦斑主了!

Free-Lancer

2. 
   
3. ;;Only For Cad 2005
   
4. (defun c:tt (/ ss pl)
   
5.   (if (setq ss (ssget))
   
6.     (progn
   
7.       (vl-cmdf ".zoom" "o" ss "")
   
8.       (setq pl (list (getvar "vsmin")
   
9.                      (getvar "vsmax")
   
10.                )
    
11.       )
    
12.       (vl-cmdf ".zoom" "p")
    
13.     )
    
14.   )
    
15.   (princ)
    
16.   pl
    
17. )

<br /> ;;Only For Cad 2005<br /> (defun c:tt (/ ss pl)<br />   (if (setq ss (ssget))<br />     (progn<br />       (vl-cmdf ".zoom" "o" ss "")<br />       (setq pl (list (getvar "vsmin")<br />                      (getvar "vsmax")<br />                )<br />       )<br />       (vl-cmdf ".zoom" "p")<br />     )<br />   )<br />   (princ)<br />   pl<br /> )

PFD8667

楼上的好像不对吧?你自已不知试了没有?回车后变成缩放了.

fools

8楼的方法非常巧妙，但我试了一下，发现有问题
vsmin和vsmax与所选的选择集好象并无联系，
且以这个思路发展，就算通过viewctr和viewsize得到一个矩形框，也包括太多空白区域

LADESIGNER

你们知道俺是怎么做的？先把选定的实体改到一个新建层，再关掉其他所有的层，ZOOM，E。
狂慢！没办法，AUTOLISP没戏。看来只好学VLISP了。