亲爱的大家，
我已经成功地在Excel VBA中创建了一个应用程序，通过它我们可以循环访问多个AutoCAD文件，并对每个文件运行特定的LISP。我想分享它，这样可能会对许多人有所帮助。
如何使用:-
1 .)制作LISP文件，并将其保存在计算机中的任何位置(文件夹)。在lisp文件的末尾，您必须添加一个命令，以便在每次加载LISP时运行它。例如，在下面的例子中，在LISP代码之后，我添加了一个对LISP函数的调用:-
- (defun c:MyLISP()
- .....
- .....
- .....
- (princ)
- )
- (C:MyLISP)
2。)打开AutoCAD应用程序。只有应用程序需要打开，但不要打开任何文件。
3。)打开Excel文件。如果您的计算机上安装了AutoCAD 2014，请直接转到步骤7。
4。)按Alt+F11。将会打开Microsoft Visual Basic for Applications窗口。
5。)转到“工具”菜单，选择“参考”选项。在所附的截图中，“AutoCAD 2014类型库”被选中。如果您有不同的AutoCAD版本，请取消选中此选项，并查找和检查各自的“AutoCAD xxxx类型库”。
6。)关闭窗口并保存文件。
7。)按下“Sheet1”上的按钮。它会要求选择要选择的AutoCAD文件，您可以一次选择多个文件。选择完成后，按“打开”。
8。)现在，它将要求您选择LISP文件(您希望在每个AutoCAD文件上运行该文件)。选择LISP文件，然后按“打开”。)你的工作完成了！！！
现在，程序将打开每个AutoCAD文件并逐个加载lisp文件。因为您已经在LISP文件的末尾添加了对LISP函数的调用，所以它将在加载后自动执行。
应逐个打开文件，执行LISP文件，保存并关闭文件。
我希望这有所帮助。
533yfwm00ld.jpg
本帖以下内容被隐藏保护；需要你回复后，才能看到！ 游客，如果您要查看本帖隐藏内容请 回复 | 
置顶卡
