Line Symbols

作者:独木舟日期:2009-02-23

字体大小: 小中大

'******************************************************************
'***********                    ***********************************
'*******       Line Symbols        ******************************
'***********                    ***********************************
'******************************************************************
Public Function MakeNewSimpleLineSymbol() As ISymbol
  Dim pSimpSym As ISimpleLineSymbol
  Set pSimpSym = New SimpleLineSymbol
  With pSimpSym
    .Color = RandomColor
    .Width = m_dSize
    .Style = esriSLSDashDot
  End With
  
  Set MakeNewSimpleLineSymbol = pSimpSym
End Function

Public Function MakeNewMarkerLineSymbol() As ISymbol
  Dim pMarkSym As IMarkerLineSymbol
  Set pMarkSym = New MarkerLineSymbol
  With pMarkSym
    .Width = m_dSize
    Set .MarkerSymbol = MakeNewSimpleMarkerSymbol
  End With
  
  SetStdLineProperties pMarkSym, pMarkSym.MarkerSymbol.SIZE, pMarkSym.MarkerSymbol.SIZE * 2
  
  Set MakeNewMarkerLineSymbol = pMarkSym
End Function

Public Function MakeNewHashLineSymbol() As ISymbol
  Dim pHashSym As IHashLineSymbol
  Set pHashSym = New HashLineSymbol
  With pHashSym
    .Width = m_dSize
    Set .HashSymbol = MakeNewSimpleLineSymbol
  End With
  
  SetStdLineProperties pHashSym, pHashSym.HashSymbol.Width, pHashSym.HashSymbol.Width * 2
  
  Set MakeNewHashLineSymbol = pHashSym
End Function

Public Function MakeNewCartographicLineSymbol() As ISymbol
  Dim pCartSym As ICartographicLineSymbol
  Set pCartSym = New CartographicLineSymbol
  With pCartSym
    .Color = RandomColor
    .Width = m_dSize
    .Cap = esriLCSRound
    .Join = esriLJSMitre
  End With
  
  SetStdLineProperties pCartSym, pCartSym.Width, pCartSym.Width * 2
  
  Set MakeNewCartographicLineSymbol = pCartSym
End Function

Public Function MakeNewPictureLineSymbol() As ISymbol
  Dim pPicSym As IPictureLineSymbol
  Set pPicSym = New PictureLineSymbol
  With pPicSym
    .Width = m_dSize
    .CreateLineSymbolFromFile esriIPictureBitmap, m_sPicFile
  End With
  
  Set MakeNewPictureLineSymbol = pPicSym
End Function

Public Function MakeNewMultiLayerLineSymbol() As ISymbol
  Dim pMultiSym As IMultiLayerLineSymbol
  Set pMultiSym = New MultiLayerLineSymbol
  With pMultiSym
    .Width = m_dSize
    m_dSize = m_dSize / 2
    .AddLayer MakeNewSimpleLineSymbol
    m_dSize = m_dSize * 2
    .AddLayer MakeNewMarkerLineSymbol
  End With
  
  Set MakeNewMultiLayerLineSymbol = pMultiSym
End Function

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags: GIS Code

相关日志:

评论: 1 | 引用: 0 | 查看次数: -

山友[2009-10-04 08:16 AM |

]

作者的文章很好，深受启发。

发表评论

昵　称:
密　码:	游客发言不需要密码.
内　容:	正在加载编辑器...
验证码:
选　项:	禁止表情转换禁止自动转换链接禁止自动转换关键字

虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.

Line Symbols

作者:独木舟 日期:2009-02-23

作者:独木舟日期:2009-02-23