社区 › AutoLISP/Visual LISP 编程技术 › 可不可以在一份图档里直接可以打外部块的原图档

wgij007 发表于 2019-11-26 15:23:29

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

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

satan421 发表于 2019-11-26 15:23:30

外部块是指什么，外部参照吗？
外部参照可以试试这个：
(defun C:XOP (/ ref_path)
(setq        ref_path
       (vla-get-path
           (vlax-ename->vla-object
             (cdr
             (assoc
               330
               (entget
                   (tblobjname
                     "block"
                     (cdr (assoc
                          2
                          (entget
                              (car (entsel "\n选取要打开的外部参照:"))
                          )
                          )
                     )
                   )
               )
             )
             )
           )
       )
)
(vla-open (vla-get-documents (vlax-get-acad-object)) ref_path)
(sendkeys "^{TAB}")
(princ)
)
(defun SendKeys        (keys / ws)
(setq ws (vlax-create-object "WScript.Shell"))
(vlax-invoke-method ws 'sendkeys keys)
(vlax-release-object ws)
(princ)
)

wgij007 发表于 2019-11-26 17:25:36

打开错误呀？？

wgij007 发表于 2019-11-26 17:33:43

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

satan421 发表于 2019-11-26 21:32:03

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

wgij007 发表于 2019-11-26 21:54:44

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

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

satan421 发表于 2019-12-1 00:16:48

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

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

wgij007 发表于 2019-12-3 23:58:56

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

谢谢，我试一下。

查看完整版本: 可不可以在一份图档里直接可以打外部块的原图档