Tworzenie szablonu makr SOLIDWORKS

Szablon makr SOLIDWORKS to makro SOLIDWORKS, które pozwala określać wartości parametrów, gdy szablon ten zostanie zaplanowany do wykonania jako dostosowane zadanie w Harmonogramie zadań SOLIDWORKS. Szablon makr SOLIDWORKS jest plikiem tekstowym, który standardowo zawiera kod Visual Basic, odwołania do interfejsu API SOLIDWORKS oraz nazwy tokenów. Przy planowaniu uruchomienia szablonu makr SOLIDWORKS jako dostosowanego zadania w Harmonogramie zadań SOLIDWORKS należy określić wartości parametrów, które zastąpią nazwy tokenów.

Nazwy tokenów mogą być ciągami tekstowymi lub numerycznymi. Mają one następujący format:

Typ parametru Format nazwy tokena
Ciąg $$$<nazwa_tokena>$$$
Numer ###<nazwa_tokena>###

Plik szablonu makr SOLIDWORKS musi mieć rozszerzenie .swb.

Aby utworzyć szablon makr, należy:

  1. Otworzyć nowy plik tekstowy przy użyciu aplikacji Notatnik Windows, Microsoft WordPad lub innego edytora tekstu.
  2. Skopiować i wkleić makro SOLIDWORKS do tego pliku tekstowego.
    Aby uzyskać informacje o plikach makr SOLIDWORKS, należy zapoznać się z częścią Tematy Pomocy dla SOLIDWORKS API i dodatków.
  3. Wpisać nazwy tokenów w miejsce parametrów, których wartości chcemy określić. Na przykład:
    Pierwotny kod: swApp.SetCurrentWorkingDirectory "c:\temp"
    Zmodyfikowany kod: swApp.SetCurrentWorkingDirectory $$$TASK_WORKING_DIR$$$
  4. Zapisać plik tekstowy z rozszerzeniem .swb.
    Przed zaplanowaniem i uruchomieniem pliku szablonu makr SOLIDWORKS należy utworzyć jego kopię zapasową lub umieścić plik szablonu makr SOLIDWORKS w lokalizacji innej niż katalog roboczy zadań. Kliknąć Widok > Opcje > Opcje zadań , aby wyświetlić katalog roboczy zadań. Gdy zadanie wykorzystujące szablon makr SOLIDWORKS zostanie uruchomione, system utworzy kopię szablonu makr i zastąpi nazwy tokenów wartościami parametrów, które określiliśmy podczas planowania zadania. System zapisze ten plik w katalogu roboczym zadań pod tą samą nazwą co pierwotny szablon makr SOLIDWORKS. Jeżeli pierwotny szablon makr SOLIDWORKS jest zapisany w katalogu roboczym zadań, wówczas system zastąpi go nowym plikiem.
    Poniższy kod stanowi przykład szablonu makr SOLIDWORKS. Dokonuje on otwarcia dokumentu rysunku SOLIDWORKS i zapisania go jako pliku DXF. Przy planowaniu uruchomienia szablonu makr jako dostosowanego zadania w Harmonogramie zadań SOLIDWORKS należy określić parametry, które zastąpią nazwy tokenów: $$$TASK_WORKING_DIR$$$, $$$TASK_FILE_TYPE$$$, $$$TASK_FILEPATH_NAME$$$ i $$$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! Należy wpisać 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