cad图纸打开后如何自动加载 外部块

diadblo

现在我在D:/12 文件夹里面有几个外部块,  1.dwg,2.dwg,3.dwg.....,我现在想一打开新或旧的Cad图纸,,如何图纸没有这几个外部块就会自动加载在块库里面,如何用VBa代码实现?

mikewolf2k

如果按照你的要求，就需要在文件打开时候执行操作，但是并没有文件打开的事件。比较接近是文件激活，监视文件激活事件，遍历所有图块，在指定的位置是否存在指定的块，不存在就添加。如果再考虑得周全些，存在的话再检查下存在的块的内容是不是跟外部文件一样。
这种要求不是一个好的应用，很多因素会导致结果未必是所预期的，结果并不可靠，而且会导致程序变慢。建议采用其它方式手工加载。

xinxirong

在acaddoc.lsp添加