关于insert语句，后去最小包容框的问题

lvbin2ooo

最近在网上，看到一个获取WCS下最小包容框的函数，甚是高兴。因为给我一点希望。。

我最近遇到一个瓶颈，采用insert语句，插入其他dwg文件(如附图1.dwg)时，想让附图1.dwg内所有对象最小包容框左下角作为insert插入点。

试了很多方法，最后打算采用如下思路，
1.insert 附图1.dwg ,不采用分解，直接用块；
2.炸开块，然后选取所有 块内对象
3.采用ucsbox获取，上述对象的最小包容框的四个点坐标。
....

可每次运行到下面时候就出现错误。“错误: Automation 错误。 空范围”，实在不懂为啥。。求指教。

2. (DEFUN C:xxx ()
   
3. 
   
4. (setq pt1 (getpoint "请选择基点:\n"))
   
5. (command "-insert"   "附图1.dwg"   pt1   1  1  0 ^C   )         
   
6. (setq sek (entlast)) ;;;获得图形中最后那个主图元名﹐并存入sel。
   
7. 
   
8. (command ".explode"   sek  )   ; 打散图块
   
9. (setq sel (ssget "p"))        ; 获取打散图块图元选择集
   
10. (setq num (sslength sel))
    
11. (princ num)                   ;到这也能执行
    
12. (setq see (ucsbox sel))
    
13. )
    

(DEFUN C:xxx () <br /> <br /> (setq pt1 (getpoint "请选择基点:\n"))<br /> (command "-insert"   "附图1.dwg"   pt1   1  1  0 ^C   )         <br /> (setq sek (entlast)) ;;;获得图形中最后那个主图元名﹐并存入sel。<br /> <br /> (command ".explode"   sek  )   ; 打散图块<br /> (setq sel (ssget "p"))        ; 获取打散图块图元选择集<br /> (setq num (sslength sel))<br /> (princ num)                   ;到这也能执行<br /> (setq see (ucsbox sel))<br /> )<br />

ucsbox是网友的。我单独测试过。可用。

2. (defun ucsbox (SS / XDIR ORG CP ANG N OBJ LL UR pl UL LR)
   
3.     (setq xdir (getvar 'ucsxdir)
   
4.           org  (getvar 'ucsorg)
   
5.           cp   (vlax-3d-point '(0.0 0.0 0.0))
   
6.           ang  (atan (cadr xdir) (car xdir))
   
7.           )
   
8.     (repeat (setq n (sslength ss))
   
9.       (setq
   
10.         obj (vlax-ename->vla-object (ssname ss (setq n (1- n))))
    
11.         )
    
12.       (vla-rotate obj cp (- ang))
    
13.       (vla-update obj)
    
14.       (vla-GetBoundingBox obj 'll 'ur) ;_ 计算包围盒
    
15.       (setq ll (vlax-safearray->list ll) ;_ 坐下角点
    
16.             ur (vlax-safearray->list ur) ;_ 右上角点
    
17.             )
    
18.       ;;_ 还原对象位置
    
19.       (vla-rotate obj cp ang)
    
20.       (setq pl (cons ll pl)
    
21.             pl (cons ur pl)
    
22.             )
    
23.       )
    
24.     (setq ll (apply 'mapcar (cons 'min pl)) ;_ 左下角点
    
25.           ur (apply 'mapcar (cons 'max pl)) ;_ 右上角点
    
26.           ul (list (car ll) (cadr ur) (caddr ll)) ;_ 左上角点
    
27.           lr (list (car ur) (cadr ll) (caddr ll)) ;_ 右下角点
    
28.           )
    
29.     ;;返回UCS方向的WCS坐标
    
30.     (mapcar '(lambda (x) (mapcar '- (trans x 1 0) org))
    
31.             (list ll ul ur lr)
    
32.             )
    
33.     )

(defun ucsbox (SS / XDIR ORG CP ANG N OBJ LL UR pl UL LR)<br />     (setq xdir (getvar 'ucsxdir)<br />           org  (getvar 'ucsorg)<br />           cp   (vlax-3d-point '(0.0 0.0 0.0))<br />           ang  (atan (cadr xdir) (car xdir))<br />           )<br />     (repeat (setq n (sslength ss))<br />       (setq<br />         obj (vlax-ename->vla-object (ssname ss (setq n (1- n))))<br />         )<br />       (vla-rotate obj cp (- ang))<br />       (vla-update obj)<br />       (vla-GetBoundingBox obj 'll 'ur) ;_ 计算包围盒<br />       (setq ll (vlax-safearray->list ll) ;_ 坐下角点<br />             ur (vlax-safearray->list ur) ;_ 右上角点<br />             )<br />       ;;_ 还原对象位置<br />       (vla-rotate obj cp ang)<br />       (setq pl (cons ll pl)<br />             pl (cons ur pl)<br />             )<br />       )<br />     (setq ll (apply 'mapcar (cons 'min pl)) ;_ 左下角点<br />           ur (apply 'mapcar (cons 'max pl)) ;_ 右上角点<br />           ul (list (car ll) (cadr ur) (caddr ll)) ;_ 左上角点<br />           lr (list (car ur) (cadr ll) (caddr ll)) ;_ 右下角点<br />           )<br />     ;;返回UCS方向的WCS坐标<br />     (mapcar '(lambda (x) (mapcar '- (trans x 1 0) org))<br />             (list ll ul ur lr)<br />             )<br />     )

yjr111

估计你的附图1.dwg中有点块引起，所谓点块，指由单独一个点做成的块

liuyun242

缺少块内部的外部参照 EXPLAINOFTITLE SUPERWORKS_SETTING

liuyun242

清除 附图1.dwg中的点块 EXPLAINOFTITLE SUPERWORKS_SETTING，应该就行了

liuyun242

其实就是一个空块，造成vla-GetBoundingBox 判断出错

liuyun242

用块编辑那2个空块，加点东西，再删掉就行了

yjr111

liuyun242

其实对vla-GetBoundingBox 做错误检查，也可以解决问题

lvbin2ooo

谢谢各位大侠。但是都好高深。。我目前的水平。。哎。。好人做到底吧。。

lvbin2ooo

liuyun242 发表于 2013-5-18 23:04
其实对vla-GetBoundingBox 做错误检查，也可以解决问题

大侠帮帮我如何做错误检查吧？