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

 2016/9/1 (木)    

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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.