ArcObjects実践ーオブジェクト・モデル・ダイアグラムの読み方とヘルプの活用ー

Size: px

Start display at page:

Download "ArcObjects実践ーオブジェクト・モデル・ダイアグラムの読み方とヘルプの活用ー"

つづるあいきょう
5 years ago
Views:

1 ArcObjects ESRI 1

2 ArcObjects COM OMD 2

3 ArcObjects ArcGIS Desktop COM Component Object Model COM VBA Visual Basic Visual C++ 3

4 COM 1 GarbageTruck RaceCar IDrive Fuel IDrive Fuel Accelerate Brake Accelerate Brake IGarbage Dump IRace LapTime PickUp PitStop 4

5 Map Name Scale Layers Projection 5 AddLayer DeleteLayer Map

6 COM COM 1. Dim < > As < > Dim pcar As IDrive 6 2. Set RaceCar Set pcar = New RaceCar IDrive Fuel Accelerate 3. / Brake pcar.accelerate IRace pcar.fuel = "Full" pcar.pitstop LapTime PitStop

7 QueryInterface QI IDrive RaceCar Dim pcar As IDrive Set pcar = New RaceCar pcar.accelerate IDrive RaceCar Fuel Accelerate Brake Dim prace As IRace Set prace = pcar prace.pitstop pcar.accelerate IRace LapTime PitStop **pcar prace Q I 7

8 OMD ArcMap ArcCatalog ArcScene UML Unified Modeling Language PDF arcgis arcexe82 ArcObjects Developer Kit Object Model Diagrams 8

9 OMD ArcGIS Object Model.pdf 9

10 OMD Application Framework ArcCatalog ArcMap ArcMap Editor ArcObjects Controls Display Geocoding Geodatabase Geodatabase Supplemental Geometry IMS Labeling and Annotation Map Layer Network Output Raster Spatial Reference Styles TIN 3D Analyst Extension Spatial Analyst Extension StreetMap Europe Extension StreetMap USA Extension

11 11 OMD

12 12 OMD

13 CoClass New Dim pmap As IMap Set pmap = New Map Dim pmap As IMap Set pmap = pmxdoc.focusmap 3D 13

14 Class New Dim prow As IRow Set prow = ptable.createrow 3D 14

15 Abstract Class Abstract Class 2D 15

16 16 OMD

17 * Bird Abstract Farm CoClass * Chicken CoClass Nest CoClass Egg Class 17 Wing * Class

18 ArcMap Application MxDocument Map * Layer * FeatureClass Feature 18 FeatureLayer

19 19 OMD

20 , 1 I IMxDocument IMap ILayer 20

21 Right Write read write 21

22 Write ByVal pmap.name = Set ByRef Set Set pmap.spatialreference = pspatialref 22

23 Read Name String Dim strname As String strname = Application.Name MsgBox strname Document IDocument Dim pdoc As IDocument Set pdoc = Application.Document MsgBox pdoc.title 23

24 Abstract Class 24

25 COM COM 1. Dim < > As < > Dim pcar As IDrive Set RaceCar Set pcar = New RaceCar IDrive Fuel Accelerate 3. / Brake pcar.accelerate IRace pcar.fuel = "Full" pcar.pitstop LapTime PitStop

26 QueryInterface QI IDrive RaceCar Dim pcar As IDrive Set pcar = New RaceCar pcar.accelerate IDrive RaceCar Fuel Accelerate Brake Dim prace As IRace Set prace = pcar prace.pitstop pcar.accelerate IRace LapTime PitStop **pcar prace Q I 26

27 ArcObjects QI Dim pdoc As IDocument Set pdoc = Application.Document MsgBox pdoc.title Dim pmxdoc As IMxDocument Set pmxdoc = pdoc 'QI Dim player As ILayer Set player = pmxdoc.selectedlayer 27

28 ? OMD Application IApplication ThisDocument IDocument MxDocument Application IApplication IMxApplication Application ThisDocument IDocument IMxDocument MxDocument 28

29 ArcObjects Developer Help > > ArcGIS Getting Started Object Model Overviews Object Model Diagrams Technical Documents Utilities ArcObjects Controls ArcObjects Component Help Samples 29

30 ArcObjects Developer Help ArcObjects Component Help 30

31 ArcObjects Component Help 31

32 32

33 33

34 34

35 35

36 Read/Write? 36

37 37

38 MxDocument > Map > Layer???? Dim pmxdoc As IMxDocument Set pmxdoc = ThisDocument Dim pmap As IMap Set pmap = pmxdoc.focusmap Dim player As ILayer Set player = pmap.layer(1) MxDocument * Map * Layer 38 player FeatureLayer If TypeOf player Is IFeatureLayer Then FeatureLayer MsgBox " " End If

39 MxDocument > Map > Layer MxDocument ThisDocument IDocument Map IMxDocument IDocument IMxDocument QI Dim pmxdoc As IMxDocument Set pmxdoc = ThisDocument 'QI 39

40 MxDocument > Map > Layer Map Map = IMxDocument FocusMap Dim pmap As IMap Set pmap = pmxdoc.focusmap * 40

41 MxDocument > Map > Layer Layer IMap Layer Dim player As ILayer Set player = pmap.layer(1) * 41

42 MxDocument > Map > Layer Layer Layer ILayer Layer TypeOf FeatureLayer IFeatureLayer RasterLayer IRasterLayer I??Layer??Layer If TypeOf player Is IFeatureLayer Then MsgBox Dim pflayer As IFeatureLayer Set pflayer = player 'QI End If 42 Map Layer OMD

43 More? VBA ArcObjects 43

ArcObjects スタートアップガイド

第 1 章イントロダクション ArcObjects スタートアップガイド 1 第 1 章イントロダクション目次はじめに... 3 イントロダクション... 5 ArcObjects とは... 7 開発支援機能... 10 ArcObjects SDK のインストール... 11 アドインの作成... 13 アドインとは... 14 アドインの作成...15 プロジェクトの作成... 15.NET

ArcObjects実践 ーオブジェクト・モデル・ダイアグラムの読み方とヘルプの活用ー

ArcObjects実践ーオブジェクト・モデル・ダイアグラムの読み方とヘルプの活用ー