I've looked through the API help and I haven't had any luck. I'm working on batch transferring files into PDM standard however I need to prep the files before adding to PDM.
I've got all the tasks figured out except changing the column property in the revision table. Currently the property is set to Custom with a custom title:
Ideally I'd like a macro that would change that column to this:
I've tried recording the change and still no luck, any advice?
Hello,
Try this:
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swTable As SldWorks.TableAnnotation
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then MsgBox "Open a drawing": Exit Sub
If swModel.GetType <> swDocumentTypes_e.swDocDRAWING Then MsgBox "Open a drawing": Exit Sub
Set swDraw = swModel
Set swView = swDraw.GetFirstView
Set swTable = swView.GetFirstTableAnnotation
While Not swTable Is Nothing
If swTable.Type = swTableAnnotationType_e.swTableAnnotation_RevisionBlock Then
Debug.Print swTable.SetColumnType2(<Your Column Number>, swTableColumnTypes_e.swRevisionTableColumnType_Approved, True)
End If
Set swTable = swTable.GetNext
Wend
End Sub
For more information see: 2018 SOLIDWORKS API Help - SetColumnType2 Method (ITableAnnotation)
Note: For some reason SetColumnType3 doesn't work for me
Thank you so much, you literally saved me hours, that worked perfectly.
On that note I also used SetColumnTitle2 for changing the Column title from "Approved" to "Rev By".
Hello,
Try this:
For more information see: 2018 SOLIDWORKS API Help - SetColumnType2 Method (ITableAnnotation)
Note: For some reason SetColumnType3 doesn't work for me