可以自动加载vba代码文件,然后执行该文件中的宏后卸载该文件。
Imports ZWCAD
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServices
Public Class ZwApps
<CommandMethod("callVBA")> _
Public Sub callVBA()
Dim fileName As String = "d:\Project.zpvb"
Dim ZwApp As Object = Application.ZcadApplication '.RunMacro()
ZwApp.LoadZPVB(fileName)
ZwApp.RunMacro("test")
ZwApp.UnloadZPVB(fileName)
End Sub
End Class