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