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


       

Outcomes