这篇博客介绍了如何通过VBS实现AutoCAD的批量替换块功能。首先，通过VBS获取用户输入的AutoCAD版本路径，接着自动生成BatchCAD.scr，然后调用accoreconsole.exe进行块替换。整个过程包括创建SmartTool.vbs文件，该文件与生成的DLL、DWG文件放在一起，双击运行即可批量处理。虽然代码存在一些不足，但最终实现了预期效果，作者表示后续会继续改进，并感谢谷歌搜索及大神博客提供的帮助。
3. vbs捏合所有，实现一键替换
一般来说，accoreconsole.exe位于AutoCAD的安装目录，因为本工具有可能会给不同的人员使用，有可能有的人使用AutoCAD2016，有的人使用AutoCAD2018，这样一来，即使默认AutoCAD都安装在C盘，路径也会不一样，所以，首先用vbs弹出一个输入框，由使用这输入AutoCAD版本，以方便找到accoreconsole.exe.
另外，为了确保BatchCAD.scr不被其他人修改，我用vbs自动生成一个BatchCAD.scr.
然后，此vbs调用accoreconsole.exe完成与其在同一目录下的所有dwg文件中的块替换。
我把这个vbs文件命名为SmartTool.vbs, 此文件和之前生成的CADSmart.dll / StandardBlock.dwg / 以及待替换的所有其他dwg文件放到一个文件夹内，这样的话，双击SmartTool.vbs，将会首先弹出输入AutoCAD版本的输入框（默认AutoCAD安装在C盘）。如下图：
输入正确的版本后，点击确定，等待直到出现All Done提示框，完成所有图纸中块的替换。
整个vbs代码如下：
Option Explicit
Dim acoreFn,fso
acoreFn=inputbox("Please Enter the Version of AutoCAD What You H
最低0.47元/天 解锁文章
扫一扫
739
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
