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,白１ pTemplate.AddPatternElement 3, 1 pTemplate.AddPatternElement 3, 1 pTemplate.AddPatternElement 1, 1 pTemplate.AddPatternElement 1, 1 pTemplate.AddPatternElement 1, 1
カートグラフィック ライン シンボルのテンプレート
2016/9/1 (木)
![Pinterest](https://www.pinterest.com/pin/create/button/?url=https%3A%2F%2Fwww.wingfield.gr.jp%2Farchives%2F7865&media=https://www.wingfield.gr.jp/cgi-bin/wp/wp-content/uploads/2012/06/WINGFIELD-since1981_Square-200x200.png&description=[vb title="VBA"] Dim pMultiLayerLineSymbol As IMultiLayerLineSymbol Set pMultiLayerLineSym){kind=link}