📄 sample vba code.mht
字号:
s/定制ArcMap和ArcCatalog/sample_vba_code.htm#howSub4Anc=
hor"><IMG=20
height=3D11 alt=3D"expand/collapse item"=20
src=3D"file:///C:/Documents%20and%20Settings/YAZI/桌面/Dechms=
/customizing_arcmap_and_arccatalog/small_arrow_up.gif"=20
width=3D11 border=3D0 name=3DimEx></A> =
在ArcMap中检查文本元素=
0340;拼写</H3></DIV>
<DIV class=3Dsubcontent id=3DhowSub4Content>
<H3>描述</H3>
<P class=3DBreak></P>
<P></P>使用本例代码子调&#=
29992;MicrosoftWord来检查ArcMap中文本=
的拼写。首先，要选&=
#20013;从哪开始检查文本&#=
65292;然后，单击新建的=
5353;钮检查拼写。如果=
340;写或语法有错误，ë=
58;会弹出对话框提醒߰=
0;改正。=20
<P =
class=3DBreak></P>在本例中你将向=
;工具栏添加一个新的=
按钮，并添加源代码&=
#12290;=20
<P class=3DBreak></P>
<H3>如何操作</H3>
<P class=3DBreak></P>
<P></P>
<OL>
<LI>启动ArcMap.=20
<P class=3DBreak></P>
=
<LI>打开一个现存的地Þ=
70;文件（.mxd），或将图&#=
23618;添加到空白的地图=
5991;件。=20
<LI>添加一些文字。=20
<P class=3DBreak></P>
<LI>=93Tools=94菜单-->=93Customize=94。=20
<P class=3DBreak></P>
<LI>点击=93Commands=94标签。=20
<P class=3DBreak></P>
=
<LI>点击=93Save=94组合框旁的=
9979;箭头，并选择新命=
196;将要保存的地图。=20
<P class=3DBreak></P>
=
<LI>滚动=93类别=94列表框，=
;点击=93UIControls=94。=20
<P class=3DBreak></P>
<LI>点击=93New UIControl=94。=20
<P class=3DBreak></P>
=
<LI>点击选择一个UIControl类=
411;。=20
<P class=3DBreak></P>
<LI>点击=93Create=94。=20
<P class=3DBreak></P>
=
<LI>将=93Commands=94列表框中新建=
;的=93Project.UIButtonControl1=94拖动到任&#=
24847;工具栏上。=20
<P class=3DBreak></P>
<LI>点击=93Create=94。=20
<P class=3DBreak></P>
=
<LI>右击刚制作好的按ż=
62;，点击=93View Source=94。=20
<P =
class=3DBreak></P>这样便打开了Visual =
Basic Editor。=20
<P class=3DBreak></P>
<LI>在Visual Basic Editor中, =
"工具"-->"引用"=20
<P class=3DBreak></P>
=
<LI>滚动可用的引用并Ű=
73;择Microsoft Word 9.0 Object Library.=20
<P class=3DBreak></P>
<LI>点击确定.=20
<P class=3DBreak></P>
=
<LI>在代码窗口中，点Ñ=
87;程序框旁的下三角ᦀ=
8;在窗体的右边），选=
;择=93Click=94。=20
<P =
class=3DBreak></P>这样便为你的过=
;程提供了头尾的代码=
。=20
<P class=3DBreak></P>
=
<LI>复制以下代码并粘ũ=
48;在Click事件过程中。=20
<P class=3DBreak></P>
<P></P><PRE class=3Dcode><CODE>
Dim pDoc As IMxDocument
Set pDoc =3D ThisDocument
Dim pGC As IGraphicsContainerSelect
If pDoc.ActiveView Is pDoc.PageLayout Then
Set pGC =3D pDoc.PageLayout
Else
Set pGC =3D pDoc.FocusMap
End If
Dim pTE As ITextElement
'Hard coded, check the first selected element
Set pTE =3D pGC.SelectedElement(0)
Dim sz As String
sz =3D pTE.Text
Dim wdApp As Word.Application
Dim wdDoc As Document
Set wdApp =3D New Word.Application
Set wdDoc =3D wdApp.Documents.Add
wdApp.Selection.Text =3D sz
wdApp.Dialogs(wdDialogToolsSpellingAndGrammar).Show
' if Cancel button is clicked, there will be one character
If Len(wdApp.Selection.Text) > 1 Then
pTE.Text =3D wdApp.Selection.Text
Else
wdApp.Quit
Set wdApp =3D Nothing
Exit Sub
End If
wdDoc.Close wdDoNotSaveChanges
wdApp.Quit
Set wdApp =3D Nothing
pDoc.ActiveView.Refresh</CODE></PRE><BR>
<P class=3DBreak></P>
<P></P>
<P></P>
<LI>关闭Visual Basic Editor.=20
<P class=3DBreak></P>
<P></P>
<LI>在ArcMap窗口中, =
用选择工具选择一段&=
#25991;本。=20
<P></P>
=
<LI>点击新的按钮运行ý=
40;写检查宏命令。 </LI></OL>
<P class=3DBreak></P>
<P></P>
<TABLE cellPadding=3D5 width=3D"85%" border=3D0>
<TBODY>
<TR>
<TD>
<H3>提示</H3>
<UL>
=
<LI>请确定VB中的代码是=
0197;以上步骤中的格式=
986;现。例如，你可能Ƃ=
56;要自己加些回车。 =
</LI></UL>
<P></P>
<P class=3DBreak></P>
<P></P></TD></TR></TBODY></TABLE></DIV>
<DIV class=3Dsubhead id=3DhowSub5><A name=3DhowSub5Anchor></A>
<H3><A onclick=3D"expandIt('howSub5')"=20
href=3D"file:///C:/Documents%20and%20Settings/YAZI/桌面/Dechm=
s/定制ArcMap和ArcCatalog/sample_vba_code.htm#howSub5Anc=
hor"><IMG=20
height=3D11 alt=3D"expand/collapse item"=20
src=3D"file:///C:/Documents%20and%20Settings/YAZI/桌面/Dechms=
/customizing_arcmap_and_arccatalog/small_arrow_up.gif"=20
width=3D11 border=3D0 name=3DimEx></A> =
计算区域内要素的数&=
#37327;</H3></DIV>
<DIV class=3Dsubcontent id=3DhowSub5Content>
<H3>描述</H3>
<P class=3DBreak></P>
<P></P>本范例使用一个空&#=
38388;查询过滤器来计算=
1306;域内要素的数量<SPAN=20
xmlns:user=3D"http://www.esri.com/ContentStudio"=20
xmlns:msxsl=3D"urn:schemas-microsoft-com:xslt">。首先&#=
65292;点击工具栏上自创=
4314;的按钮，然后在要#=
745;数的要素周围拖出Ç=
68;个矩形框。程序</SPAN>=20
The program retrieves the cursor's locations based on a filter, then =
loops=20
through a counting procedure of all the features. The number of points, =
lines,=20
and areas are totaled and reported to the user in a message box.=20
<P class=3DBreak></P>
<P></P>In this sample, you will be adding a control button and writing =
the code=20
for it.
<P class=3DBreak></P>
<P></P>
<H3>如何操作</H3>
<P class=3DBreak></P>
<P></P>
<OL>
<LI>启动ArcMap.=20
<P class=3DBreak></P>
<P class=3DBreak></P>
=
<LI>打开一个现存的地Þ=
70;文件（.mxd），或将图&#=
23618;添加到空白的地图=
5991;件。=20
<P class=3DBreak></P>
<LI>=93Tools=94菜单-->=93Customize=94。=20
<P class=3DBreak></P>
<LI>点击=93Commands=94标签。=20
<P class=3DBreak></P>
=
<LI>点击=93Save=94组合框旁的=
9979;箭头，并选择新命=
196;将要保存的地图。=20
<P class=3DBreak></P>
=
<LI>滚动=93类别=94列表框，=
;点击=93UIControls=94。=20
<P class=3DBreak></P>
<LI>点击=93New UIControl=94。=20
<P class=3DBreak></P>
=
<LI>点击选择一个UIControl类=
411;。=20
<P class=3DBreak></P>
<LI>点击=93Create=94。=20
<P class=3DBreak></P>
=
<LI>将=93Commands=94列表框中新建=
;的=93Project.UIToolControl1=94拖动到任=
847;工具栏上。=20
<P class=3DBreak></P>
<LI>点击=93Create=94。=20
<P class=3DBreak></P>
=
<LI>右击刚制作好的按ż=
62;，点击=93View Source=94。=20
<P =
class=3DBreak></P>这样便打开了Visual =
Basic Editor。=20
<P class=3DBreak></P>
=
<LI>在代码窗口中，点Ñ=
87;程序框旁的下三角ᦀ=
8;在窗体的右边），选=
;择=93Click=94。=20
<P =
class=3DBreak></P>这样便为你的过=
;程提供了头尾的代码=
。=20
<P class=3DBreak></P>
=
<LI>复制以下代码并粘ũ=
48;在Click事件过程中。=20
<P class=3DBreak></P>
<P></P>
<P></P><PRE class=3Dcode><CODE>Dim pMxDoc As IMxDocument
Set pMxDoc =3D ThisDocument
Dim pEnv As IEnvelope
Dim pRubber As IRubberBand
Set pRubber =3D New RubberEnvelope
Dim pActiveView As IActiveView
Set pActiveView =3D pMxDoc.FocusMap
Set pEnv =3D pRubber.TrackNew(pActiveView.ScreenDisplay, Nothing)
Dim pSpatialFilter As ISpatialFilter
Set pSpatialFilter =3D New SpatialFilter
Set pSpatialFilter.Geometry =3D pEnv
pSpatialFilter.SpatialRel =3D esriSpatialRelIntersects
Dim lPoints As Long, lPolylines As Long, lPolygons As Long
Dim pLayer As IFeatureLayer
Dim pFeatureCursor As IFeatureCursor
Dim pFeature As IFeature
Dim i As Long
For i =3D 0 To pMxDoc.FocusMap.LayerCount - 1
If (TypeOf pMxDoc.FocusMap.Layer(i) Is IGeoFeatureLayer) Then
Set pLayer =3D pMxDoc.FocusMap.Layer(i)
pSpatialFilter.GeometryField =3D pLayer.FeatureClass.ShapeFieldName
Set pFeatureCursor =3D pLayer.Search(pSpatialFilter, True)
Set pFeature =3D pFeatureCursor.NextFeature
Do Until (pFeature Is Nothing)
Select Case pFeature.Shape.GeometryType
Case esriGeometryPoint
lPoints =3D lPoints + 1
Case esriGeometryPolyline
lPolylines =3D lPolylines + 1
Case esriGeometryPolygon
lPolygons =3D lPolygons + 1
End Select
Set pFeature =3D pFeatureCursor.NextFeature
Loop
End If
Next i
MsgBox "Features Found:" & vbCrLf & lPoints & " Points " =
& vbCrLf & _
lPolylines & " Polylines " & vbCrLf & lPolygons & " =
Polygons "</CODE></PRE><BR>
<P class=3DBreak></P>
<P></P>
<P></P>
<P></P>
<LI>关闭Visual Basic Editor.=20
<P class=3DBreak></P>
=
<LI>点击在ArcMap中新建的Toolbut=
ton,然后拖动鼠标选中Š=
01;计数的区域。 </LI></OL>
<P class=3DBreak></P>
<P></P>
<P></P>
<TABLE cellPadding=3D5 width=3D"85%" border=3D0>
<TBODY>
<TR>
<TD>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -