SolidWorks 宏模板 (SolidWorks Macro Template)

SolidWorks 宏模板是一个 SolidWorks 宏，可让您在将其安排为 SolidWorks Task Scheduler 中的自定义任务时指定参数值。SolidWorks 宏模板是一个文本文件，通常包含 Visual Basic 代码、SolidWorks API 调用和符号名称。当您安排 SolidWorks 宏模板作为 SolidWorks Task Scheduler 中的自定义任务运行时，您指定参数值来替换符号名称。

符号名称可以是文字串或数字。其格式如下：

SolidWorks 宏模板必须有 .swb 的文件扩展名。

若要生成宏模板，请执行以下操作：

1. 使用 Windows 记事本、Microsoft WordPad 或其他文本编辑器打开一个新文本文件。

2. 将 SolidWorks 宏复制并粘贴到文本文件中。

有关 SolidWorks 宏文件的信息，请参阅 SolidWorks API 和插件帮助主题。

3. 键入符号名称代替您要指定值的参数。
   
   例如：

   原始代码：	swApp.SetCurrentWorkingDirectory "c:\temp"
   修改的代码：	swApp.SetCurrentWorkingDirectory $$$TASK_WORKING_DIR$$$

4. 保存文本文件，文件扩展名为 .swb。

生成 SolidWorks 宏模板文件的备份，然后安排和运行，或将 SolidWorks 宏模板文件存储于非任务工作目录的位置。单击视图、选项、任务选项来查看任务工作目录。当运行使用 SolidWorks 宏模板的任务时，系统生成宏模板副本并以参数值（安排任务时指定的）替换符号名称。系统将文件以与原始 SolidWorks 宏模板相同的文件名保存在任务工作目录中。如果原始 SolidWorks 宏模板存储于任务工作目录，则系统会以新文件将其覆盖。

以下代码为 SolidWorks 宏模板的一个实例。该实例打开 SolidWorks 工程图文件并将其保存为 DXF 文件。当您安排宏模板为 SolidWorks Task Scheduler 中的自定义任务时，您指定参数来替换符号名称：$$$TASK_WORKING_DIR$$$, $$$TASK_FILE_TYPE$$$, $$$TASK_FILEPATH_NAME$$$, and $$$TASK_FILE_NAME$$$.

Dim swApp As Object
Dim swModel As Object
Dim ret As Boolean
Dim dummyRet As Long
Dim longstatus As Long
Dim errorFilePath As String
Dim nErrors As Long
Dim nWarnings as Long

Sub main()

errorFilePath = $$$TASK_WORKING_DIR$$$ ?+ ?"\" + "swTaskScheduler.error"
ErrorOut "Start logging any errors...", errorFilePath

Set swApp = CreateObject("SldWorks.Application")
swApp.SetCurrentWorkingDirectory $$$TASK_WORKING_DIR$$$

' Determine type of document
longstatus = 0

' $$$TASK_FILE_TYPE$$$ is case-sensitive!You must enter SW_DRAWING_TYPE or SW_DRAWING_TYPE_OLD
If ($$$TASK_FILE_TYPE$$$ = "SW_DRAWING_TYPE" OR $$$TASK_FILE_TYPE$$$ = "SW_DRAWING_TYPE_OLD") ?Then
Set swModel = swApp.OpenDoc6 ($$$TASK_FILE_PATHNAME$$$, 3, 1, "", dummyRet, longstatus)
ErrorOut "File is a drawing document.", errorFilePath
Else
ErrorOut "File is not a drawing document.", errorFilePath
End If

ret = True
' If document is read-only, locked, or view-only, then log an error
If (longstatus And 2) Then
ErrorOut "File is read-only.", errorFilePath
ret = False
ElseIf (longstatus And 4) Then
ErrorOut "File is locked by another user.", errorFilePath
ret = False
ElseIf (longstatus And 512) Then
ErrorOut "File is view-only.", errorFilePath
ret = False
End If

' Close the document if read-only, locked, or view-only
If (ret = False) Then
Set swModel = Nothing
swApp.CloseDoc $$$TASK_FILE_NAME$$$
End If
Set swModel = swApp.ActivateDoc ($$$TASK_FILE_NAME$$$)
If Not swModel Is Nothing Then
' If document is a drawing, then...
If ($$$TASK_FILE_TYPE$$$ = "SW_DRAWING_TYPE" OR $$$TASK_FILE_TYPE$$$ = "SW_DRAWING_TYPE_OLD") ?Then
' Strip off SolidWorks drawing file extension (.slddrw)
' and add DXF file extension (.dxf)
sPathName = swModel.GetPathName
sPathName = Left(sPathName, Len(sPathName) - 6)
sPathName = sPathName + "dxf"
' Save as file as DXF
bRet = swModel.SaveAs4(sPathName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, nErrors, nWarnings)
End If
Else
ErrorOut "Document was not or could not be opened.", errorFilePath
End If

' Exit the SolidWorks software
swApp.ExitApp
Set swApp = Nothing
End Sub

Function ErrorOut(errorString As String, errorFilePath As String)
Open errorFilePath For Append As #5
Print #5, errorString
Close #5
End Function

相关主题

任务选项
运行自定义任务