插入块时出错（V

nathan.anderson · 发表于 2022-7-6 15:07:23

我创建了一个VBA例程，该例程根据活动图形中的一组块进行循环，以创建一个新图形，插入几个块并保存图形。该例程在第一次通过循环时运行良好，但在第二次通过时，我得到一个“运行时错误：-2145386445（80200033）文件服务器错误”。它在第一个插入块上被捕获。当我删除循环时，我可以为活动图形中的同一选择反复运行例程，没有任何问题，但如果我为运行例程进行了不同的选择，我就会出错。通过更改插入的块，我可以使其用于第二个选择。当我切换回第一个选择时，同样的错误会发生，直到我再次更改块。

设置docObj=ThisDrawing。应用文件。添加（“S:\Templates Active\acad electrical.dwt”）
文件=“c:\电缆项目\电缆-”&k
此图纸。另存为（文件）

插入PNT（0）=0#：插入PNT（1）=0#：插入PNT（2）=0#
设置blockRefObj=ThisDrawing。模型空间。InsertBlock（insertionPnt，border，1，1，1，0）

任何想法，任何帮助都将不胜感激。谢谢

内森

CmdrDuh · 发表于 2022-7-6 15:46:24

我也有类似的问题，必须为所有文件设置变量，我不能只传递路径

nathan.anderson · 发表于 2022-7-6 16:03:11

无论是变量还是路径，它都不会通过第一个插入块。

JohnM · 发表于 2022-7-6 16:15:34

我不怎么做VBA。我喜欢lisp或vlisp。我以前也遇到过类似的情况。如果我错了，请纠正我，但lisp或vba程序加载到激活图形中，而不是整个AutoCAD环境中。因此，您的程序被加载到第一个图形中，并执行代码以生成一个新的图形，该图形成为活动文档，其中没有加载代码，从而将焦点从第一个图形上移开，并导致代码停止。在过去，如果我想在两幅画之间进行交互，我必须使用脚本。在代码中，我编译了我需要的所有信息，并将其格式化为具有scr扩展名的文本文件。然后让它写文件。然后，代码中的最后一件事是调用执行脚本文件。

[编程交流] 插入块时出错（V

发表回复

精选推荐