‹#›
© 2008 Autodesk
ADSK_BLack_BAR.png
ADN Webcasts 2008
SymBBAuto
Sub CreateTitleBorder()
    Dim symMgr As McadSymbolBBMgr
    Set symMgr = Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
   
    Dim symTBMgr As McadTitleBorderMgr
    Set symTBMgr = symMgr.TitleBorderMgr
   
    ' create new descriptor and context
    Dim symTBDesc As McadTitleBorderDescriptor
    Set symTBDesc = symTBMgr.NewDescriptor
   
    Dim symTBCtx As McadTitleBorderContext
    Set symTBCtx = symTBMgr.NewContext
   
    ' you find the available formats in the TitleBorderStandard
    Dim symStandard As McadStandard
    Set symStandard = symMgr.StandardMgr.CurrentStandard
   
    Dim symTBStandard As McadTitleBorderStandard
    Set symTBStandard = symStandard.TitleBorderStandard
   
    ' simply use the first available format
    symTBDesc.Border.Name = symTBStandard.PaperFormats(0, 1)
    symTBDesc.Title.Name = symTBStandard.TitleBlocks(0, 1)
   
    ' do some settings
    symTBCtx.BaseScale = True
    symTBCtx.Rescale = True
   
    ' create the title border
    Dim symTB As McadTitleBorder
    Set symTB = symTBMgr.CreateTitleBorder(symTBDesc, symTBCtx)
End Sub