大家好,欢迎来到IT知识分享网。
要想采用VBA进行二次开发,读懂宏程序指令的含义,首先必须明白宏程序的大概的运行工作原理。
下面以宏录制工具录得的新建零件文件宏程序为例,简要的说明宏工作的原理。
程序用到的变量进行声明:
采用Dim方法进行变量声明,Dim为Dimension的缩写,后面加上所需变量的名字。
例如:Dim swApp as Object,它的作用是定义了变量的名称为swApp,类型为Object。本例中分别定义了Object,Boolean,Long三种变量类型,关于变量的数据类型在此不详做介绍,计划后面会有文章进行详细介绍。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
程序入口:
Sub main()
sub是一个关键字,表示这是一个过程;main()是一个函数名,是主程序的意思,也表示程序入口,VB默认是从Main()过程开始执行。
main函数中包含的是当宏启动时首先执行的代码,如用户窗体的浮现等。
程序链接
Set swApp = Application.SldWorks
此指令的功能是开始或链接一个solidworks程序,后面的程序代码中将以swApp表示solidworks程序,通过这个指令将宏代码和solidworks软件建立了联系。
功能注释
‘ New Document
功能性注释文字,程序运行时不执行,仅说明后面的代码功能,这里说明的是后续功能执行的是新文档。
dim 指令为重新定义变量。
swSheetWidth = 0在这里没有实际意义,可以注释掉。
API的调用
Set Part = swApp.NewDocument(“H:\sw工程图模板\文件模板\零件模板.prtdot”, 0, swSheetWidth, swSheetHeight)
新文件的创建,根据默认的设定模板生成新文件。
Dim swPart As PartDoc
定义变量
Set swPart = Part
swApp.ActivateDoc2 “零件1”, False, longstatus
Set Part = swApp.ActiveDoc
设为当前活动文件
‘Dim myModelView As Object
‘Set myModelView = Part.ActiveView
‘myModelView.FrameState = swWindowState_e.swWindowMaximized
无效录制代码,可以注释掉。
‘ Save As
longstatus = Part.SaveAs3(“C:\Users\KZ\Desktop\新建文件夹\零件1.SLDPRT”, 0, 0)
新文件保存功能执行。
宏程序启动后首先运行的代码都会在这里,主程序的代码有时比较简单,也可能只有一个窗口的浮现功能。
程序结束
End Sub
End Sub是一个过程的结束代码,每一个SUB中必须应对一个END SUB。
SW新建文件的宏程序运行过程大概就是这样子,只是帮助理解大概的VBA程序运行原理。
欢迎点赞、关注、评论区交流。
免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/93399.html