vla-getboundingbox得到的块的角点有问题

张和平

vla-getboundingbox得到的块的角点有问题，用这些角点绘制一个矩形时，这个矩形相对块有一定的偏移，有时候偏移还很大。
如下图所示：


程序：（论坛上找的）

2. (DEFUN C:xxx ()
   
3. (SETVAR "CMDECHO" 0)
   
4. (SETQ OLDOS (GETVAR "OSMODE"))
   
5. (IF (SETQ S1 (CAR (ENTSEL "\nSelect One Object 选择一个图元 :"))) (PROGN
   
6.   (vla-getboundingbox (vlax-ename->vla-object S1) 'minpoint 'maxpoint)
   
7.   (setq pmax (vlax-safearray->list maxpoint)
   
8.         pmin (vlax-safearray->list minpoint))
   
9.   (SETVAR "OSMODE" 0)
   
10.   (COMMAND ".RECTANG" PMIN PMAX)
    
11.   (SETVAR "OSMODE" OLDOS)
    
12. ))
    
13. (SETVAR "CMDECHO" 1)
    
14. (PRINC)
    
15. )

(DEFUN C:xxx () <br /> (SETVAR "CMDECHO" 0) <br /> (SETQ OLDOS (GETVAR "OSMODE")) <br /> (IF (SETQ S1 (CAR (ENTSEL "\nSelect One Object 选择一个图元 :"))) (PROGN <br />   (vla-getboundingbox (vlax-ename->vla-object S1) 'minpoint 'maxpoint) <br />   (setq pmax (vlax-safearray->list maxpoint) <br />         pmin (vlax-safearray->list minpoint)) <br />   (SETVAR "OSMODE" 0) <br />   (COMMAND ".RECTANG" PMIN PMAX) <br />   (SETVAR "OSMODE" OLDOS) <br /> )) <br /> (SETVAR "CMDECHO" 1) <br /> (PRINC) <br /> )

highflybir

用command命令时候要注意UCS。

张和平

highflybir 发表于 2013-3-28 09:26
用command命令时候要注意UCS。

我已经搜到你的帖子了，，命令引用了你的函数，现在基本正确了。。感谢

ruirui999

哪个贴子？

ruirui999

能给个链接吗？