批量绑定外部参照

IronLord

各位大神，本人由于工作需要，想做一个可以批量绑定外部参照的小程序，如下，运行时不报错，但是不能实现绑定功能，请问是什么原因？希望各位大神不吝赐教，谢谢！
(arxload "acetutil.arx" nil)
(vl-load-com)
(defun c:plbd (/ OLDECHO APP DWGNAME2 path num dwgname OLDLSP doc ent)
  (setq OLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq path
         (strcat
           (vl-string-right-trim
                 "\\"
                 (strcase (acet-ui-pickdir
                            "选择目录"
                            (vl-string-right-trim "\\" (getvar "dwgprefix"))
                            "批量修改"
                            )
                          )
                 )
           "\\"
           )
        )
  (setq OLDLSP (getvar "ACADLSPASDOC"))
  (setvar "ACADLSPASDOC" 0)
  (setvar "BINDTYPE" 1)
  (setq dwgname (vl-directory-files path "*.dwg"))
  (setq num 0)
  (if (/= dwgname nil)
    (progn
      (setq APP (vlax-get-acad-object))
      (repeat (length dwgname)
        (setq DWGNAME2 (strcase (strcat path (nth num dwgname))))
        (setq doc (vla-open (vla-get-documents app) DWGNAME2))
       
        (command "-xref" "bind" "*")
        (command "ZOOM" "ALL")
       
        (vla-save doc)
        (vla-close doc :vlax-false)
        (setq num (1+ num))
        )
      (vlax-release-object doc)
      (vlax-release-object APP)
     )
    (prompt "\n所选目录中为有任何图形！！")
   )
  (setvar "ACADLSPASDOC" OLDLSP)
  (setvar "cmdecho" OLDECHO)
  (princ)
)

SHUNDocker

感谢楼主分享学习！！！

SHUNDocker

如果你的参照中有被卸载或是未找到参照的情况，这种批量绑定一定会失败的。建议在绑定之前，需要判断所有外部参照的状态，若为卸载状态，应直接拆离，未找到参照文件那种，这就要好好研究了

SHUNDocker

问问，处理结果怎样呢？？？

IronLord

SHUNDocker 发表于 2021-3-16 10:56
问问，处理结果怎样呢？？？

图纸外部参照设置没问题，每张图纸单独绑定都没问题，我自己怀疑是中间command那两句在程序在运行的时候没执行，应该是我调用的方式有问题，还不清楚怎么解决。

greatxs

可以可以正合我意

xk15c

做一个有用的人

SHUNDocker

SHUNDocker 发表于 2021-3-15 16:22
如果你的参照中有被卸载或是未找到参照的情况，这种批量绑定一定会失败的。建议在绑定之前，需要判断所有外 ...

当外部参照的状态没有问题时，你是单独绑单个外部参照还是批量绑外部参照呀

SHUNDocker

SHUNDocker 发表于 2021-3-15 16:22
如果你的参照中有被卸载或是未找到参照的情况，这种批量绑定一定会失败的。建议在绑定之前，需要判断所有外 ...

我加载后，是这个：no function definition: ACET-UI-PICKDIR。
是需要调用(arxload "acetutil.arx" nil)里的acetutil.arx吗，分享一个来，一起调试

IronLord

SHUNDocker 发表于 2021-3-17 09:23
我加载后，是这个：no function definition: ACET-UI-PICKDIR。
是需要调用(arxload "acetutil.arx" nil ...

你用的是多少的cad？我用2020本身就带啊

SHUNDocker

IronLord 发表于 2021-3-17 20:13
你用的是多少的cad？我用2020本身就带啊

用的cad2012版，很老了

hbwr123

http://bbs.xdcad.net/thread-714057-1-2.html

你的代码可以参考这个帖，把核心代码替换下试试

greatxs

有用有用号

jddjdd

CAD的文件命令下有一个电子传递的命令--选择文件表图签--点添加文件选择你需要批量绑定的文件--选好之后双击右侧传递设置中默认的STANDARD进入如下命令框--按需要选择设置，这里可以根据需要将参照文件和被参文件按照相对路径放置到你需要的目录下，或者勾选右侧的绑定外部参照，选择绑定，再在路径选项下选择将所有文件放入一个文件夹中。按确定返回上级菜单再次确定即可导出参照文件和被参文件或者导出绑定好的CAD文件用于传递。

晨曦CAD

报错的原因应该是新开了一个DWG文档，LISP代码是不能跨文档运行的
在

2. (setq doc (vla-open (vla-get-documents app) DWGNAME2))

(setq doc (vla-open (vla-get-documents app) DWGNAME2))

执行时，原文档程序发生中断，打开一个新文档，此时ActiveDocument是新文档，新文档打开完毕后，原文档自动获得Focus，后续代码在原文档中继续执行。

最近也在研究这个问题，可以用

1. (vla-sendCommand doc "xref ")

复制代码

向新打开的文档发送要执行的程序，但是并没有完全解决。在CAD2010上多文档可以连续执行，但是在CAD2014上，向新文档发送完命令后需要手动ctrl+tab切换文档才可以连续执行，猜测是某个系统变量影响的，哪位有思路告知一下