AnsweredAssumed Answered

Macro Insert Rev Table (With Caps Checked Rev Symbol Unchecked)

Question asked by James Dickson on Apr 3, 2020
Latest reply on Apr 4, 2020 by James Dickson

This macro inserts the revision table just fine. My question is there a way to make the "All Uppercase" box checked and uncheck the "Unable symbol when adding new revision" box unchecked.


Thank for any help you can give



Private Sub Insert_Rev_Block()

    Dim swApp As SldWorks.SldWorks
    Dim swDraw As SldWorks.DrawingDoc
    Dim currentsheet As SldWorks.Sheet
    Dim SwModel As SldWorks.ModelDoc2
    Dim revTableAnno As SldWorks.RevisionTableAnnotation
    Dim boolstatus As Boolean
    Dim longstatus As Long, longwarnings As Long

        Set swApp = Application.SldWorks
        Set SwModel = swApp.ActiveDoc
        Set swDraw = SwModel        
        ' Insert a revision table
        Set revTableAnno = currentsheet.InsertRevisionTable2(True, 0, 0, swBOMConfigurationAnchor_TopRight, sTemplatepath & sNewRevTable, swRevisionTable_CircleSymbol, True)
        boolstatus = SwModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swRevisionTableSymbolShape, 0, swRevisionTableSymbolShape_e.swRevisionTable_CircleSymbol)

End Sub