写晕了，迷路了，请各位高人指点迷津

zhaomc520

自己正写一个lsp，遇到了问题，百思不得其解，请请各位高人指点迷津。

就是如何在所有打开的图纸中调用xref命令实现所有打开图纸的外部引用文件自动reload

然后再调用一次，实现邦定所有引用文件。

好像vlr函数能实现，但是小弟用不好，请指教

rongyifei

(defun c:test ()
  (setq doc (vla-get-activeDocument (vlax-get-acad-object))
 n   0
  )
  (while (< n (vla-get-count (vla-get-blocks doc)))
    (setq block (vla-item (vla-get-blocks doc) n))
    (if
      (= (vla-get-isxref block) :vlax-true)
       (vla-reload block)
    )
    (setq n (1+ n))
  )
)

上面代码可一次更新当前图档中所有外部参照,稍加修改就可以实现你所说的功能!

zhaomc520

谢谢楼上的兄弟

还记得这个吧，

(defun c:test ()
  (setq docs (vla-get-Documents (vlax-get-acad-object))
  )
  (vlax-for cendoc docs
    (vla-purgeall cendoc)
    (vla-save cendoc)
  )
)

大侠能否辛苦一下，把这两个lisp的功能整合一下，就是可以实现下面的功能：

在已经打开的所有dwg文件中自动循环完成：重载所有引用文件再邦定所有引用，然后purge一下，并原名保存，最后自动关闭，直到autocad中没有已经打开的图纸为止。

拜托大侠了，小弟最近一直在做这个工作，没有进展。

rongyifei

(defun c:test ()
      (setq docs (vla-get-Documents (vlax-get-acad-object))
      )
      (vlax-for cendoc docs
 (vla-purgeall cendoc)
 (vla-save cendoc)
 (if (= (vla-get-active cendoc) :vlax-true)
   (vlax-for block (vla-get-blocks cendoc)
     (if
       (= (vla-get-isxref block) :vlax-true)
        (vla-reload block)
     )
   )
   (vla-close cendoc)
 )
      )
    )

这是我提供的代码,不过有下面两个限制:

1.只能重载当前活动窗口中的外部引用,本人试过很多次都无法重载其他窗口中的外部引用,不知道是本人的水平问题,还是ACAD本身的局限!

2.无法关闭当前活动窗口,我试过很多方法,都无法实现,除非直接退出ACAD,不知道还有没有其他方法!