AnsweredAssumed Answered

Insert Revision Table and Set Anchor Position Macro

Question asked by Grant Kirkland on May 4, 2018
Latest reply on May 7, 2018 by Grant Kirkland

I'm trying to create a macro which will insert a revision table and set the anchor to the bottom left corner.


No matter what I do it inserts the revision table at the anchor on the top right corner. What gives?


Option Explicit



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



Sub main()



Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swDraw = swModel



Set currentsheet = swDraw.GetCurrentSheet

swDraw.ActivateSheet (currentsheet.GetName)



' Insert a revision table

Set revTableAnno = currentsheet.InsertRevisionTable2(True, 0, 0, swBOMConfigurationAnchor_BottomLeft, "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\English\standard revision block.sldrevtbt", swRevisionTable_CircleSymbol, True)

boolstatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swRevisionTableSymbolShape, 0, swRevisionTableSymbolShape_e.swRevisionTable_CircleSymbol)



End Sub