shijibao01

路人甲

注册日期2004-10-08
发帖数44
QQ
铜币250枚
威望0点
贡献值0点
银元0个

加关注写私信

阅读：5040回复：11

请教版主在AE中实现数据的符号化

楼主^#

更多发布于：2005-08-15 19:28

请问如何在AE中实现数据的符号化在开发帮助中的例子，经过改变但是不能使用主要是因为使用了arcGIS中的对象库，在AE中找不到，我现在想问一下在AE中怎么实现数据符号化，感激不仅

喜欢0 评分0

举报回复

hover_crj 路人甲注册日期2006-08-02 发帖数14 QQ 铜币145枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2009-08-13 11:41 <P>在9.2版本以下是有读取serverstyle的BUG.</P> <P>我以前做项目的时候也遇到过。</P> <P>后来，找了ESRI的技术支持，在用ESRI的工具MakeServerStyleset转换符号库的时候用正版的License之后就不会出错了。建议你试试。</P>
	举报回复(0) 喜欢(0) 评分

hikeryu 路人甲注册日期2008-01-03 发帖数18 QQ 铜币159枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2009-07-27 18:12 <P>栅格数据能实现吗</P>
	举报回复(0) 喜欢(0) 评分

zhousky

论坛版主

注册日期2003-08-01
发帖数281
QQ
铜币1027枚
威望3点
贡献值0点
银元0个

加关注写私信

3楼^#

发布于：2006-12-09 11:20

我们在AE中读取style(呵,不是serverstyle,也不是在AO中读的噢)符号库文件,在此基础上开发了类arcgis符号库管理器,如有兴趣,可以QQ联系:171567188,我发给你DEMO

不要看我噢

举报回复喜欢评分

xuyunhe 路人甲注册日期2003-08-25 发帖数59 QQ 铜币374枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2006-12-07 13:29 ok
	举报回复(0) 喜欢(0) 评分

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

5楼^#

发布于：2005-08-18 10:25

是的，9。1已经解决这个bug了

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

shijibao01 路人甲注册日期2004-10-08 发帖数44 QQ 铜币250枚威望0点贡献值0点银元0个加关注写私信	6楼^# 发布于：2005-08-17 21:26 <P>6楼的说得对，5楼的同胞，我的符号库中已经确定有符号了</P> <P>我在安装了Desktop的机器使用也会出现问题</P> <P>经过修改后问题解决</P> <P>但是当我将程序打包后安装到一台只有runtime的机器上后，上面提到的问题又出现了</P> <P>难道正的是ArcEngine的Bug</P> <P>郁闷郁闷</P>
	举报回复(0) 喜欢(0) 评分

木白林

路人甲

注册日期2004-03-19
发帖数319
QQ
铜币824枚
威望0点
贡献值0点
银元0个

加关注写私信

7楼^#

发布于：2005-08-17 09:59

我的Styles没有在arcgis\bin\styles目录下，而是直接的arcgis\styles目录下，而且里面的也全是*.ServerStyle，是不是没有装arcgis desktop的原因？

心情卡片一起分享...

举报回复喜欢评分

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

8楼^#

发布于：2005-08-17 09:27

你确定你的servestyle里已经有符号了吗？
你是不是没有安装arcgis desktop？
在9。0版本没有安装arcgis desktop，arcengine显示符号是有问题的

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

shijibao01

路人甲

注册日期2004-10-08
发帖数44
QQ
铜币250枚
威望0点
贡献值0点
银元0个

加关注写私信

9楼^#

发布于：2005-08-16 22:43

我今天晚上又进行了试验
我把我的符号库文件拷到arcgis\bin\styles目录下后再利用makeserverstyleset.exe工具进行转换后程序执行到
 Set pStyleItem = pEnumStyleGall.Next Do While Not pStyleItem Is Nothing 不会在出现pstyleitem一直是空值
但是在程序的运行过程中却出现了这样的问题
参见下面这段程序红色部分
Private Sub RendererLayers()
'On Error Resume Next
Dim pFeatureCount As Long
Dim pFeature As IFeature
Dim pGeoLayer As IGeoFeatureLayer
Dim pStyleStorage As IStyleGalleryStorage
Dim pStyleGalleryItem As IStyleGalleryItem
Dim pEnumStyleGalleryItem As IEnumStyleGalleryItem
Dim pStyleGallery As IStyleGallery
Dim pDefaultStyle As IStyleGalleryItem
Dim SymPointColor As IRgbColor
Dim SymLineColor As IRgbColor
Dim SymFillColor As IRgbColor
Dim pdefaultsymbol As ISimpleMarkerSymbol
Dim pdefaultsymbol1 As ISimpleLineSymbol
Dim pdefaultsymbol2 As ISimpleFillSymbol
Dim pGeoFeaLayer As IGeoFeatureLayer
Dim pQueryFilter As IQueryFilter
Dim pFeaCursor As IFeatureCursor
Dim StylePath As String
Dim PrendererValue As String
Dim i, j, k, L, Flag As Integer
Dim StyleFlag, ValExit As Boolean
Dim pUVRenderer As IUniqueValueRenderer
Dim pSymbolType As ISymbol
 
 If pFeatureLayers(0) Is Nothing Then Exit Sub
 
 Set pStyleGallery = New ServerStyleGallery
 ' pStyleGallery.ImportStyle "D:\Program Files\ArcGIS\Styles\Esri.ServerStyle"
 Set pStyleStorage = pStyleGallery
 'MsgBox pStyleStorage.FileCount
 pStyleStorage.TargetFile = "D:\Program Files\ArcGIS\Styles\symbol.ServerStyle"
 '''''''''''''''''查找符号库
 For j = 0 To pStyleStorage.FileCount - 1
 If UCase(pStyleStorage.File(j)) = UCase(App.Path) ; "\SYMBOL.SERVERSTYLE" Then
 StyleFlag = True
 Else
 'MsgBox pStyleStorage.File(j)
 StyleFlag = False
 End If
 Next j
 ''''''''''''''''''''''''''''设置默认符号
 Set pDefaultStyle = New ServerStyleGalleryItem
 Set pdefaultsymbol = New SimpleMarkerSymbol
 Set pdefaultsymbol1 = New SimpleLineSymbol
 Set pdefaultsymbol2 = New SimpleFillSymbol
' If Not StyleFlag Then
' StylePath = App.Path ; "\symbol.ServerStyle"
' pStyleStorage.AddFile StylePath
' End If
 ''''''''''''''''设置以那个字段来作为符号化的标准，以及字段的数量
 Set pUVRenderer = New UniqueValueRenderer
 pUVRenderer.FieldCount = 1
 pUVRenderer.Field(0) = "名称"
 
 
 
 Dim pFeatureLayer As IFeatureLayer
 Dim pFeatureClass As IFeatureClass
 
 For i = 0 To UBound(pFeatureLayers)
 Set pFeatureLayer = pFeatureLayers(i)
 Set pFeatureClass = pFeatureLayer.FeatureClass
 
 Select Case UCase(pFeatureClass.AliasName)
 
 
 '/////////////////改进
 Case "SDE.DBO.WNNJS"
 Set pUVRenderer = New UniqueValueRenderer
 pUVRenderer.FieldCount = 1
 pUVRenderer.Field(0) = "JLX"
 Case "SDE.DBO.WPPGD"
 Set pUVRenderer = New UniqueValueRenderer
 pUVRenderer.FieldCount = 1
 pUVRenderer.Field(0) = "GXLX"
 Case Else
 Set pUVRenderer = New UniqueValueRenderer
 pUVRenderer.FieldCount = 1
 pUVRenderer.Field(0) = "JDLX"
 ''/////////////////////////////////
 
 End Select
 '////////////////////确定当前图层是用那种符号类型
 'Set pEnumStyleGalleryItem = New EnumServerStyleGalleryItem
 
 
 Select Case pFeatureClass.ShapeType
 Case 1
 Set pSymbolType = New SimpleMarkerSymbol
 Flag = 0
 Set pEnumStyleGalleryItem = pStyleGallery.Items("marker symbols", "", "")
 Case 3
 Set pSymbolType = New SimpleLineSymbol
 Flag = 1
 Set pEnumStyleGalleryItem = pStyleGallery.Items("line symbols", "", "")
 Case 4
 GoTo 30000
 Set pSymbolType = New SimpleFillSymbol
 Set pEnumStyleGalleryItem = pStyleGallery.Items("fill symbols", "", "")
 
 End Select
 
 
 
 Set pGeoLayer = pFeatureLayer
 
 pFeatureCount = pFeatureClass.FeatureCount(Nothing)
 
 
 Set pFeaCursor = pFeatureClass.Search(Nothing, False)
 
 
 For k = 0 To pFeatureCount - 1
 Dim tempval As String
 Set pFeature = pFeaCursor.NextFeature
 If UCase(pFeature.Class.AliasName) = "SDE.DBO.WPPGD" Then
 If Not IsNull(pFeature.Value(pFeature.Fields.FindField("GXLX"))) Then
 PrendererValue = Trim(pFeature.Value(pFeature.Fields.FindField("GXLX")))
 Else
 PrendererValue = ""
 End If
 ElseIf UCase(pFeature.Class.AliasName) = "SDE.DBO.WNNJS" Then
 If Not IsNull(pFeature.Value(pFeature.Fields.FindField("JLX"))) Then
 PrendererValue = Trim(pFeature.Value(pFeature.Fields.FindField("JLX")))
 Else
 PrendererValue = ""
 End If
 Else
 If Not IsNull(pFeature.Value(pFeature.Fields.FindField("JDLX"))) Then
 PrendererValue = Trim(pFeature.Value(pFeature.Fields.FindField("JDLX")))
 Else
 PrendererValue = ""
 End If
 End If
 
 If tempval <> PrendererValue Then
 tempval = PrendererValue
 ValExit = False
 Else
 ValExit = True
 End If
 Dim pValueCount As Integer
 pValueCount = 0
 For pValueCount = 0 To pUVRenderer.ValueCount - 1
 If pUVRenderer.Value(pValueCount) = PrendererValue Then
 ValExit = True
 Exit For
 End If
 Next pValueCount
 
 If Not ValExit Then
 ' pUVRenderer.AddValue
 pUVRenderer.AddValue PrendererValue, "类型", pSymbolType
 pUVRenderer.Label(PrendererValue) = PrendererValue
 pUVRenderer.Symbol(PrendererValue) = pSymbolType
 End If
 Next k
 
 For L = 0 To pUVRenderer.ValueCount - 1
 Dim val As String
 val = pUVRenderer.Value(L)
 If val <> "" Then
 pEnumStyleGalleryItem.Reset
 Set pStyleGalleryItem = pEnumStyleGalleryItem.Next
 Do While Not pStyleGalleryItem Is Nothing
 If pStyleGalleryItem.Name = val Then
 pUVRenderer.Symbol(val) = pStyleGalleryItem.Item
 'Set pGeoLayer = pFeatureLayer
 'Set pGeoLayer.Renderer = pUVRenderer
 Exit Do
 Else
 Select Case Flag
 Case 0
 Set pGeoLayer = pFeatureLayer
 Set SymPointColor = New RgbColor
 SymPointColor.RGB = vbGreen
 Set pDefaultStyle = New ServerStyleGalleryItem
 
 Set pdefaultsymbol = New SimpleMarkerSymbol
 pdefaultsymbol.Color = SymPointColor
 pdefaultsymbol.Size = 4
 pdefaultsymbol.Style = esriSMSCircle
 pDefaultStyle.Item = pdefaultsymbol
 
 pUVRenderer.Symbol(val) = pdefaultsymbol
 
 Case 1
 Set pGeoLayer = pFeatureLayer
 Set SymLineColor = New RgbColor
 SymLineColor.RGB = vbGreen
 Set pDefaultStyle = New ServerStyleGalleryItem
 
 Set pdefaultsymbol1 = New SimpleLineSymbol
 pdefaultsymbol1.Color = SymLineColor
 pdefaultsymbol1.Width = 1
 pdefaultsymbol1.Style = esriSLSSolid
 pDefaultStyle.Item = pdefaultsymbol1
 
 pUVRenderer.Symbol(val) = pdefaultsymbol1
 End Select
 End If
 Set pStyleGalleryItem = pEnumStyleGalleryItem.Next
 <st1:place w:st="on">Loop</st1:place>
 End If
 
 Next L
 Set pGeoLayer.Renderer = pUVRenderer
 Set pUVRenderer = Nothing
 
30000: Next i
 frmmain.MapControl1.ActiveView.ContentsChanged
 
 frmmain.MapControl1.ActiveView.Refresh
 frmmain.MapControl1.ActiveView.PartialRefresh esriViewGeography, Nothing, Nothing
在代码中绿色部分运行时出现
automation error
请教版主这个问题是怎么回事
你遇到过这样的问题吗？
有人说是arcgis的bug是这样的吗？

举报回复喜欢评分

您需要登录后才可以回帖，登录或者注册

请教版主在AE中实现数据的符号化

最新喜欢：