カートグラフィック ライン シンボルのテンプレート

Dim pMultiLayerLineSymbol As IMultiLayerLineSymbol
Set pMultiLayerLineSymbol = pSimpleRenderer.Symbol

Dim pCartographicLineSymbol As ICartographicLineSymbol
Set pCartographicLineSymbol = pMultiLayerLineSymbol.Layer(0)

Dim pLineProperties As ILineProperties
Set pLineProperties = pCartographicLineSymbol

Dim pTemplate As ITemplate
Set pTemplate = pLineProperties.Template

pTemplate.ClearPatternElements
pTemplate.AddPatternElement 1, 1    '黒1,白1
pTemplate.AddPatternElement 1, 1
pTemplate.AddPatternElement 1, 1
pTemplate.AddPatternElement 3, 1    '黒3,白1
pTemplate.AddPatternElement 3, 1
pTemplate.AddPatternElement 3, 1
pTemplate.AddPatternElement 1, 1
pTemplate.AddPatternElement 1, 1
pTemplate.AddPatternElement 1, 1