摘要:
ArcMap下用VBA操作图层基本的过程了。 1 Private Sub UIButtonControl1_Click() 2 Dim pApp As IApplication 3 Set pApp = Application 4 Dim pDoc As IMxDocument 5 Set pDoc = pApp.Document 6 Dim pMap As IMap 7 Set pMap = pDoc.FocusMap 8 Dim pLayer As ILayer 9 Set pLayer = pDoc.SelectedLayer 10 11 If (pLayer Is... 阅读全文