@李·麦克,
只需快速查询一下。我尝试使用xref reload命令,但出现以下错误:
命令:xrr
; 错误:自动化错误。文件访问错误
我已经完成了该文件的电子传输,然后将所有x-references放置到相应的文件夹中。当我打开图形时,它会打开,但没有x参考,表示找不到x参考。因此,当例程运行时,显然无法找到要重新加载的x引用。但是,如果我将x参考复制到与图形相同的文件夹中,则在打开图形时会自动加载x参考,并且可以使用xrr例程卸载和重新加载。
我使用以下例程卸载x参考,而不是将其分离:
- (defun c:xru (/ tData XName);Identify/Unload Xref
- (defun *error* (msg)
- (princ " ")
- )
- (while
- (setq tData (entget (car (entsel " Select Item to Test for Xref"))))
- (if
- (setq XName (cdr (assoc 2 tData)))
- (if (assoc 1 (tblsearch "BLOCK" XName))
- (progn
- (command ".xref" "u" XName)
- (prompt (strcat " Xref " XName " unloaded" ))
- )
- (princ " Block Selected - Try Again")
- );if
- (princ " Entity in Base Drawing - Try Again")
- );if
- );while
- (princ)
- )
如果您能就如何解决此问题提供任何建议,我们将不胜感激。
|