Macro for Creating New Layers and Moving dims/annotations onto the New Layers

What I am trying to accomplish is to create four new layers on an existing SolidWorks drawing.  Once I have these layers I want to move all the dimensions on the sheet(s) onto one layer, tables onto another layer, other annotations onto a third layer, and the title block and border onto a forth layer.  I also want to change the document properties so new dims/tables/annotations will automatically go to the correct layer.

So far I have been able to find enough info to help me get the new layers added, the dimensions onto the Dimension layer, and the document options changed.

I still need to move all annotations onto an Annotation layer, tables onto a Table layer, and the title block/border, onto a Title Block layer.

Below is the code I have so far.  Any help on this would be great!

Brett

Sub main()

    Dim swApp               As SldWorks.SldWorks

    Dim swDwg               As SldWorks.DrawingDoc

    Dim swLayerMgr          As SldWorks.LayerMgr

    Dim AnnoLayer           As Integer

    Dim TblsLayer           As Integer

    Dim DimsLayer           As Integer

    Dim TitleBlockLayer     As Integer

    Dim boolstatus          As Boolean

    Dim i                   As Integer

    Dim NumShts             As Integer

    Dim swView          As SldWorks.View

    Dim swAnn           As SldWorks.Annotation

    Dim swDispDim       As SldWorks.DisplayDimension

    Dim swAnno          As SldWorks.Annotation

    Set swApp = Application.SldWorks

    Set swDwg = swApp.ActiveDoc

    Set swLayerMgr = swDwg.GetLayerManager

    AnnoLayer = swLayerMgr.AddLayer("Annotations", "Annotations Layer", 968742753, 0, 0)

    TblsLayer = swLayerMgr.AddLayer("Tables", "Tables Layer", 968742753, 0, 0)

    DimsLayer = swLayerMgr.AddLayer("Dimensions", "Dimensions Layer", 968742753, 0, 0)

    TitleBlockLayer = swLayerMgr.AddLayer("Title Block", "Title Block Layer", 968742753, 0, 0)

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingNote, "Annotations")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingBalloon, "Annotations")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingBendTable, "Tables")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingLinearDimension, "Dimensions")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingDiameterDimension, "Dimensions")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingRadiusDimension, "Dimensions")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingHoleDimension, "Dimensions")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingAngleDimension, "Dimensions")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingChamferDimension, "Dimensions")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingOrdinateDimension, "Dimensions")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingDatum, "Annotations")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingSurfaceFinishSymbol, "Annotations")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingGeometricTolerance, "Annotations")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingWeldSymbol, "Annotations")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingBillOfMaterial, "Tables")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingRevisionTable, "Tables")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingGeneralTable, "Tables")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingHoleTable, "Tables")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingArcLengthDimension, "Dimensions")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingPunchTable, "Tables")

    boolstatus = swDwg.Extension.SetUserPreferenceString(swUserPreferenceStringValue_e.swDetailingLayer, swUserPreferenceOption_e.swDetailingWeldTable, "Tables")

    NumShts = swDwg.GetSheetCount

    For i = 1 To NumShts        ' blindly go to the first sheet

        swDwg.SheetPrevious

    Next i

    For i = 1 To NumShts

        Set swView = swDwg.GetFirstView

        While Not swView Is Nothing

            Set swDispDim = swView.GetFirstDisplayDimension

            While Not swDispDim Is Nothing

                Set swAnn = swDispDim.GetAnnotation

                swAnn.Layer = "Dimensions"

                Set swDispDim = swDispDim.GetNext3

            Wend

            Set swView = swView.GetNextView

        Wend

        swDwg.SheetNext

    Next i

End Sub