ESRI ArcGIS应用与开发根据比例设置图层可见||做专业的GIS技术交流论坛

skyseesea 路人甲注册日期2005-02-23 发帖数103 QQ 铜币443枚威望0点贡献值0点银元0个加关注写私信	阅读：1646回复：3 根据比例设置图层可见楼主^# 更多只看楼主倒序阅读发布于：2006-06-07 10:56 用什么代码来是实现根据比例设置图层可见?
	喜欢0 评分0 最新喜欢：举报回复

skyseesea 路人甲注册日期2005-02-23 发帖数103 QQ 铜币443枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2006-06-07 13:29 <P>ArcGis ArcObjects中如何实现</P> <P>设置图层显示的比例尺范围</P>
	举报回复(0) 喜欢(0) 评分

gis

管理员

注册日期2003-07-16
发帖数15947
QQ554730525
铜币25339枚
威望15364点
贡献值0点
银元0个

加关注写私信

2楼^#

发布于：2006-06-09 15:00

在开发帮助里看看DocumentProperties Sample
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Option Explicit Private Sub chkTOC_Click() <CODE>'Toggle TOC visibility</CODE> <CODE>If</CODE> chkTOC.Value = 1 <CODE>Then</CODE> ArcReaderControl1.TOCVisible = <CODE>True Else</CODE> ArcReaderControl1.TOCVisible = <CODE>False End If End Sub Private Sub</CODE> cmdLoad_Click() <CODE>'Open a file dialog for selecting map documents</CODE> CommonDialog1.DialogTitle = "Select Published Map Document" CommonDialog1.Filter = "Published Map Documents (*.pmf)|*.pmf" CommonDialog1.ShowOpen <CODE>'Exit if no map document is selected</CODE> <CODE>Dim</CODE> sFilePath <CODE>As String</CODE> sFilePath = CommonDialog1.FileName <CODE>If</CODE> sFilePath = "" <CODE>Then Exit Sub</CODE> <CODE>'Load the specified pmf</CODE> <CODE>If</CODE> ArcReaderControl1.CheckDocument(sFilePath) = <CODE>True Then</CODE> ArcReaderControl1.LoadDocument sFilePath <CODE>Else</CODE> MsgBox "This document cannot be loaded!" <CODE>Exit Sub End If</CODE> <CODE>'Determine whether permission to toggle TOC visibility</CODE> <CODE>If</CODE> ArcReaderControl1.HasDocumentPermission(esriARDocumentPermissionsViewTOC) = <CODE>True Then</CODE> chkTOC.Enabled = <CODE>True If</CODE> ArcReaderControl1.TOCVisible = <CODE>True Then</CODE> chkTOC.Value = 1 <CODE>Else</CODE> chkTOC.Value = 0 <CODE>End If Else</CODE> MsgBox "You do not have permission to toggle TOC visibility!" <CODE>End If</CODE> RichTextBox1.Text = "" <CODE>End Sub Private Sub</CODE> cmdMapProperties_Click() <CODE>'Determine whether a document is loaded</CODE> <CODE>If</CODE> ArcReaderControl1.CurrentViewType = esriARViewTypeNone <CODE>Then</CODE> MsgBox "You must load a map document first!" <CODE>Exit Sub End If Dim</CODE> i <CODE>As Integer Dim</CODE> j <CODE>As Integer Dim</CODE> pMap <CODE>As</CODE> IARMap <CODE>Dim</CODE> pLayer <CODE>As</CODE> IARLayer <CODE>Dim</CODE> sProps <CODE>As String Dim</CODE> pExtent <CODE>As</CODE> esriARExtentType sProps = "Map and Layer Properties" ; Chr(10) ; Chr(10) <CODE>'Loop through each map in the document (Chr(9)->tab, Chr(10)->new line)</CODE> <CODE>For</CODE> i = 0 <CODE>To</CODE> ArcReaderControl1.ARPageLayout.ARMapCount - 1 <CODE>'Get the IARMap interface</CODE> <CODE>Set</CODE> pMap = ArcReaderControl1.ARPageLayout.ARMap(i) <CODE>'Get map properties</CODE> sProps = sProps ; UCase(pMap.Name) ; Chr(10) ; _ "Description:" ; pMap.Description ; Chr(10) ; _ "Spatial Reference:" ; Chr(9) ; pMap.SpatialReferenceName ; Chr(10) ; _ "Units:" ; Chr(9) ; Chr(9) ; ArcReaderControl1.ARUnitConverter.EsriUnitsAsString(pMap.DistanceUnits, esriARCaseAppearanceUnchanged, <CODE>True</CODE>) ; Chr(10) <CODE>'Get map extent type</CODE> pExtent = ArcReaderControl1.ARPageLayout.MapExtentType(pMap) <CODE>If</CODE> pExtent = esriARExtentTypeFixedExtent <CODE>Then</CODE> sProps = sProps ; "Extent Type:" ; Chr(9) ; "Fixed Extent" ; Chr(10) <CODE>ElseIf</CODE> pExtent = esriARExtentTypeFixedScale <CODE>Then</CODE> sProps = sProps ; "Extent Type:" ; Chr(9) ; "Fixed Scale" ; Chr(10) <CODE>Else</CODE> sProps = sProps ; "Extent Type:" ; Chr(9) ; "Automatic" ; Chr(10) <CODE>End If</CODE> sProps = sProps ; Chr(10) <CODE>'Loop through each layer in the map</CODE> <CODE>For</CODE> j = 0 <CODE>To</CODE> pMap.ARLayerCount - 1 <CODE>'Get the IARLayer interface</CODE> <CODE>Set</CODE> pLayer = pMap.ARLayer(j) <CODE>'Get the layer properties</CODE> sProps = sProps ; pLayer.Name ; Chr(10) ; _ "Description:" ; Chr(9) ; pLayer.Description ; Chr(10) ; _ "Minimum Scale:" ; Chr(9) ; pLayer.MinimumScale ; Chr(10) ; _ "Maximum Scale:" ; Chr(9) ; pLayer.MaximumScale ; Chr(10) ; Chr(10) <CODE>Next</CODE> j sProps = sProps ; Chr(10) ; Chr(10) <CODE>Next</CODE> i RichTextBox1.Text = sProps <CODE>End Sub Private Sub</CODE> cmdProperties_Click() <CODE>'Show map properties</CODE> <CODE>If</CODE> ArcReaderControl1.CurrentViewType = esriARViewTypeNone <CODE>Then</CODE> MsgBox "You must load a map document first!" <CODE>Else</CODE> ArcReaderControl1.ShowARWindow esriARWindowsFileProperties, <CODE>True End If End Sub Private Sub</CODE> Form_Load() <CODE>'Load command button images from the resource editor</CODE> <CODE>Dim</CODE> pBitmap <CODE>As</CODE> IPictureDisp <CODE>Set</CODE> pBitmap = LoadResPicture("Load", vbResBitmap) cmdLoad.Picture = pBitmap <CODE>Set</CODE> pBitmap = LoadResPicture("Properties", vbResBitmap) cmdProperties.Picture = pBitmap cmdMapProperties.Picture = pBitmap chkTOC.Enabled = <CODE>False End Sub</CODE>

举报回复喜欢评分

skyseesea 路人甲注册日期2005-02-23 发帖数103 QQ 铜币443枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2006-07-10 14:05 <P> Thanks </P>
	举报回复(0) 喜欢(0) 评分

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

根据比例设置图层可见

最新喜欢：