[求助]绑定文件中所有外部参照

carrot1983

;| (xblk-xbdcr key) = 全图外部参照绑定(插入).-ok!--by lxx.2007.1
key = T 插入; nil 绑定;
测试:
(xblk-xbdcr T)
(xblk-xbdcr nil)
|;
(defun xblk-xbdcr (inskey / lst)
  (vl-load-com)
  (princ "\n 全图外部参照绑定(插入).--by lxx.2007.1")
  (setq inskey (if inskey :vlax-true :vlax-false))
  (setq *doc (vla-get-activedocument(vlax-get-acad-object)))
  (vlax-for x (vla-get-blocks *doc)
    (if (= :vlax-true (vla-get-isxref x))
      (setq lst(cons x lst))
    )
  )
  (mapcar (FUNCTION (LAMBDA(x)(vla-bind x inskey)))lst)
)

rodger

不知道楼主是不是说有很多图纸要绑定外部参照，如果是我这有个lisp可以批量绑定，命令是allbind，不过在你绑定之前先把图纸复制出去再绑定，否则它把所有图纸绑定后你以后修改就麻烦了．

jadekylin

rodger发表于2007-12-2 15:37:00不知道楼主是不是说有很多图纸要绑定外部参照，如果是我这有个lisp可以批量绑定，命令是allbind，不过在你绑定之前先把图纸复制出去再绑定，否则它把所有图纸绑定后你以后修改就麻烦了．38460

好像不能在CAD2007里运用哦，能否改进一下啊？

zfylxy

愿闻其详。

dshilunls

怎么用法啊，12楼的高手解释一下。

我试了，不行啊？！

zfylxy

愿闻其详。

zfylxy

太不厚道了

duotu007

看看可以不

bybyby

12楼的程序很好用啊，帮我解决了大问题，谢谢

tele137

看不到版主的解答。