[讨论]engine中如何读取arcgis符号库中符号

如题：在engine开发中如何读取arcgis符号库中符号呢？在ao 用 ISymbolSelector。在engine如何读取呢，请高手指教，谢谢!!!!!!!!

'******************************************************************************************* '名    称：SetMarkerSymbol '功能描述：设置并绘制点符号 '传入参数： pMapControl     MapControl的指针 '          StyleFilePath   样式库 '          SymbolName      符号名称 '          StyleCategory   符号样式的类型(这里为SZFlood) '          x               点符号的横坐标 '          y               点符号的横坐标 '返回参数：    无 '创建日期：    2005.03.01 '最后更新日期：2005.03.04 '******************************************************************************************* Public Sub SetMarkerSymbol(pMapControl As IMapControl2, StyleFilePath As String, SymbolName As String, StyleCategory As String, X As Long, Y As Long)          On Error GoTo err_Handle     '首先定义一个地物类对象     Dim pGeom As IGeometry     Set pGeom = pMapControl.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y)     If pGeom.IsEmpty Then       Exit Sub     End If        '定义一个点对象，并根据数据     Dim pElement As IMarkerElement     Dim pE As IElement     Set pElement = New MarkerElement     Set pE = pElement     pE.Geometry = pGeom          '根据样式文件和符号名称获取符号     Dim pMarkerSymbol As IMarkerSymbol     Set pMarkerSymbol = GetMarkerSymbol(StyleFilePath, SymbolName, StyleCategory)     '设置线符号类型     pElement.Symbol = pMarkerSymbol          '在MapControl中显示符号     Dim pGraphicContainer As IGraphicsContainer     Set pGraphicContainer = pMapControl.ActiveView     pGraphicContainer.AddElement pElement, 0     pMapControl.ActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing          Exit Sub err_Handle:     MsgBox "函数SetLineSymbol出错（" + Err.Description + "）", vbInformation, "提示"      End Sub

'******************************************************************************************* Public Function GetMarkerSymbol(StyleFilePath As String, SymbolName As String, SymbolCatagory As String) As IMarkerSymbol On Error GoTo EH:    Set GetMarkerSymbol = GetSymbolFromStyleLib(StyleFilePath, SymbolName, "Marker Symbols", SymbolCatagory)    Exit Function EH:    MsgBox "函数GetMarkerSymbol出错（" + Err.Description + "）", vbInformation, "提示" End Function

'*************************************************************************************************** '名    称：GetSymbolFromStyleLib '功能描述：从符号库中获取指定的符号 '传入参数：styleFilePath  － 符号库文件路径 '         SymbolName     － 符号名称 '         SymbolClass    － 符号类型（点状符号、线状符号、面状符号、注记符号） '         SymbolCatagory － 符号属性，这里为SZFlood '返回参数：无 '创建日期：2005.03.01 '最后更新日期：2005.03.01 '*************************************************************************************************** Private Function GetSymbolFromStyleLib(StyleFilePath As String, SymbolName As String, SymbolClass As String, SymbolCatagory As String) As ISymbol     On Error GoTo EH:                '确认符号名不为空     If Trim(StyleFilePath) = "" Then         MsgBox "符号库文件名为空", vbOKOnly, "提示"         Set GetSymbolFromStyleLib = Nothing         Exit Function     End If          '     Dim pSymbolGallery As IStyleGallery     Set pSymbolGallery = New StyleGallery            Dim pStyleStore As IStyleGalleryStorage     Set pStyleStore = pSymbolGallery     '删除已有的符号库     RemoveStyleFiles pStyleStore     pStyleStore.AddFile StyleFilePath          '确认pSymbolGallery不为空     If pSymbolGallery Is Nothing Then         Set GetSymbolFromStyleLib = Nothing         Exit Function     End If          Dim pEnumStyleItem As IEnumStyleGalleryItem     Set pEnumStyleItem = pSymbolGallery.Items(SymbolClass, StyleFilePath, SymbolCatagory)          pEnumStyleItem.Reset     Dim pStyleItem As IStyleGalleryItem          '获取符号库中的符号     Dim bSymbol As Boolean     bSymbol = False     pEnumStyleItem.Reset     Set pStyleItem = pEnumStyleItem.Next     Do While Not pStyleItem Is Nothing         If pStyleItem.Name = SymbolName Then             Set GetSymbolFromStyleLib = pStyleItem.Item             bSymbol = True             Exit Do         End If         Set pStyleItem = pEnumStyleItem.Next     Loop     If bSymbol = False Then        MsgBox "符号库中没有该符号", vbOKOnly, "提示"        Set GetSymbolFromStyleLib = Nothing     End If     Exit Function EH:     MsgBox "函数GetSymbolFromStyleLib出错（" + Err.Description + "）", vbInformation, "提示"      End Function

2楼兄弟

Dim pSymbolGallery As IStyleGallery     Set pSymbolGallery = New StyleGallery 在engine里不支持呀，有别的方法吗？？？

我也是遇到了相似的问题，有那位做过engine中载入符号库的请指点一下~

关注中

我前段时间用ARCENGINE对ARCGIS的符号管理器进行了重现.

用ServerStyleGallery 组件类试一下吧

ServerStyleGallery

没用！

关注中！

cumtyinpc

能说一下你实现的完整思路吗？

我试了一下ServerStyleGallery没能做出来