ESRI ArcGIS应用与开发如何在AE的Scene中设置一个FeatureLayer的高度直，以便形成拉伸效果？||做专业的GIS技术交流论坛

gjianguo 路人甲注册日期2004-08-13 发帖数9 QQ 铜币146枚威望0点贡献值0点银元0个加关注写私信	阅读：2064回复：5 如何在AE的Scene中设置一个FeatureLayer的高度直，以便形成拉伸效果？楼主^# 更多只看楼主倒序阅读发布于：2004-10-12 17:11 如何在AE的Scene中设置一个FeatureLayer的高度直，以便形成拉伸效果？<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
	喜欢0 评分0 最新喜欢：举报回复

gjianguo 路人甲注册日期2004-08-13 发帖数9 QQ 铜币146枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2004-10-13 11:53 <P>楼上大哥　如果有关联　我就不用这么麻烦的贴上！！可能小弟不才　没有找到位置　你能否帮我找一下　告诉我一下</P>
	举报回复(0) 喜欢(0) 评分

gis

管理员

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

加关注写私信

2楼^#

发布于：2004-10-13 10:22

你可以看看自带的例子，有关联的

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

举报回复喜欢评分

gjianguo

路人甲

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

加关注写私信

3楼^#

发布于：2004-10-13 10:09

1. 在Arcgis Engine 中有设置FeatureLayer拉伸的函数<PRE>Public Sub SetLayerExtrusionString(sLayer, sExtrusionExpression As String)</PRE><PRE> On Error GoTo err</PRE><PRE> If Not TypeOf Application Is ISxApplication Then Exit Sub</PRE><PRE> </PRE><PRE>' in ArcScene VBA...</PRE><PRE>' get the document</PRE><PRE> Dim pSxDoc As ISxDocument</PRE><PRE> Set pSxDoc = Application.Document</PRE><PRE> </PRE><PRE>' get the Scene from the Document:</PRE><PRE> Dim pScene As IScene</PRE><PRE> Set pScene = pSxDoc.Scene</PRE><PRE> </PRE><PRE>' get the layer in the scene:</PRE><PRE> Dim pLayer As ILayer</PRE><PRE> Set pLayer = GetLayer(sLayer) </PRE><PRE> </PRE><PRE>' get layer extensions:</PRE><PRE> Dim pLayerExts As ILayerExtensions</PRE><PRE> Set pLayerExts = pLayer</PRE><PRE> </PRE><PRE>' get the 3D properties from extension:</PRE><PRE>' layer must have it if it is in scene:</PRE><PRE> Dim i As Long</PRE><PRE> For i = 0 To pLayerExts.ExtensionCount - 1</PRE><PRE> Dim p3DProps As I3DProperties</PRE><PRE> Set p3DProps = pLayerExts.Extension(i)</PRE><PRE> If (Not p3DProps Is Nothing) Then</PRE><PRE> Exit For</PRE><PRE> End If</PRE><PRE> Next</PRE><PRE> p3DProps.ExtrusionExpressionString = sExtrusionExpression</PRE><PRE> p3DProps.ExtrusionType = esriExtrusionMinZ</PRE><PRE> </PRE><PRE>' Tell the scene graph to invalidate the layer and redraw:</PRE><PRE> Dim pSG As ISceneGraph</PRE><PRE> Set pSG = pScene.SceneGraph</PRE><PRE> pSG.Invalidate pLayer, True, True</PRE><PRE> pSG.RefreshViewers</PRE><PRE> </PRE><PRE> Exit Sub</PRE><PRE> </PRE><PRE>err:</PRE><PRE>End Sub</PRE> 我想问下怎样实现一个把一个featurelayer中某个字段如要拉伸的值关联起来!? 即sExtrusionExpression 这个变量是不是就是featurelayer的字段值!!

举报回复喜欢评分

gjianguo 路人甲注册日期2004-08-13 发帖数9 QQ 铜币146枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2004-10-13 08:29 楼上兄弟!我没有用过8.3 以前也没有做过ao 的开发!!请你能否简单的介绍一下步骤!!!非常感激!!
	举报回复(0) 喜欢(0) 评分

tianjuan980106 路人甲注册日期2004-03-21 发帖数89 QQ 铜币494枚威望0点贡献值0点银元0个加关注写私信	5楼^# 发布于：2004-10-12 23:00 <P>这个在ae中和在８。３的ao中，是没有任何区别的</P>
	举报回复(0) 喜欢(0) 评分

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

如何在AE的Scene中设置一个FeatureLayer的高度直，以便形成拉伸效果？

最新喜欢：