可不可以在一份图档里直接可以打外部块的原图档

wgij007

可不可以在一份图档里直接可以打外部块的原图档，相当用XR里面打开那样，有时图档里的外部块很多，不好找，谢谢。

satan421

外部块是指什么，外部参照吗？
外部参照可以试试这个：

1. (defun C:XOP (/ ref_path)
   
2.   (setq        ref_path
   
3.          (vla-get-path
   
4.            (vlax-ename->vla-object
   
5.              (cdr
   
6.                (assoc
   
7.                  330
   
8.                  (entget
   
9.                    (tblobjname
   
10.                      "block"
    
11.                      (cdr (assoc
    
12.                             2
    
13.                             (entget
    
14.                               (car (entsel "\n选取要打开的外部参照:"))
    
15.                             )
    
16.                           )
    
17.                      )
    
18.                    )
    
19.                  )
    
20.                )
    
21.              )
    
22.            )
    
23.          )
    
24.   )
    
25.   (vla-open (vla-get-documents (vlax-get-acad-object)) ref_path)
    
26.   (sendkeys "^{TAB}")
    
27.   (princ)
    
28. )
    
29. (defun SendKeys        (keys / ws)
    
30.   (setq ws (vlax-create-object "WScript.Shell"))
    
31.   (vlax-invoke-method ws 'sendkeys keys)
    
32.   (vlax-release-object ws)
    
33.   (princ)
    
34. )
    

(defun C:XOP (/ ref_path)<br />   (setq        ref_path<br />          (vla-get-path<br />            (vlax-ename->vla-object<br />              (cdr<br />                (assoc<br />                  330<br />                  (entget<br />                    (tblobjname<br />                      "block"<br />                      (cdr (assoc<br />                             2<br />                             (entget<br />                               (car (entsel "\n选取要打开的外部参照:"))<br />                             )<br />                           )<br />                      )<br />                    )<br />                  )<br />                )<br />              )<br />            )<br />          )<br />   )<br />   (vla-open (vla-get-documents (vlax-get-acad-object)) ref_path)<br />   (sendkeys "^{TAB}")<br />   (princ)<br /> )<br /> (defun SendKeys        (keys / ws)<br />   (setq ws (vlax-create-object "WScript.Shell"))<br />   (vlax-invoke-method ws 'sendkeys keys)<br />   (vlax-release-object ws)<br />   (princ)<br /> )<br />

wgij007

打开错误呀？？

wgij007

好了，第二次打开就可以的，，还有一个问题能不能打开后直接到跳到外部块的窗口，而不是又返回原来的窗口，能帮忙解决吗

satan421

已经加了这个功能了，我测试在CAD2016中是可以的，你装个高版本CAD试试，2010以上的。

wgij007

satan421 发表于 2019-11-26 21:32
已经加了这个功能了，我测试在CAD2016中是可以的，你装个高版本CAD试试，2010以上的。

好的，我用2006的，非常感谢。

satan421

wgij007 发表于 2019-11-26 21:54
好的，我用2006的，非常感谢。

发现有个xopen命令，就是这个功能。

wgij007

satan421 发表于 2019-12-1 00:16
发现有个xopen命令，就是这个功能。

谢谢，我试一下。