برای این که در خاموش یا روشن کردن لایه ها به صورت سریع، در این تمرین این امکان را در arcmap فراهم می کنیم.
1.برای باز کردن مدل شی گرای arcmap، از مسیر c:\arcobjects\diagrams فایل پی دی اف arcmap object model را باز کنید. مدل شی گرا به صورت زیر است.
2.برای استفاده از کلاس map، بر روی بخش map class را تمرکز کنید. نتیجه به صورت زیر می شود.
3. برای شی خوانی راحتر، از مسیر c:\arcobjects\diagrams فایل map layer object model را باز کنید. نتیجه به صورت زیر می شود.
4. برنامه arcmap راباز کنید و برنامه ex11a.mxd از تمرین های فصل 11 را کلیک کنید.
5.برای گذرواژه، عبارت Carter را وارد کنید.
6.بر روی نوارابزار crime analysis، روی clear crime راست کلیک کنید و view source را انتخاب کنید.
7. برای تعیین نقشه فعال، دو خط زیر را اضافه کنید.
dim pmxdoc as imxdocument
set pmxdoc = thisdocument
dim pmap as imap
set pmap = pmxdoc.focusmap
8.متغیر ilayer را تعریف کنید.
dim player as ilayer
9. برای شمارش بر روی لایه های فعال در نقشه، کد زیر را وارد کنید.
for i=0 to pmap.layercount-1
next i
10.در داخل لوپ، شمارش برای هر لایه در نقشه کد زیر را وارد کنید.
set player = pmap.layer(i)
11.برای خاموش کردن هر لایه، کد زیر را اضافه کنید.
player.visible=false
کدهای اضافه شده به صورت زیر می شود.
13. پس از لوپ، برای به هنگام کردن تغییرات در لایه، کد زیر را وارد کنید.
pmxdoc.updatecontents
موقعیت این تابع در زیر آماده است.
14.معرفی متغیر نقشه به صورت زیر انجام می شود.
dim pactiveView as iactiveview
set pactiveview = pmxdoc.activeview
15.برای به هنگام سازی نقشه کد زیر را وارد کنید.
pactiveview.refresh
16. visual basic editor را ببندید.
17.تمامی لایه ها رو روشن کنید.
18. بر روی clearcrime کلیک کنید. خواهید دید که لایه ها خاموش خواهند شد.
19. اگر می خواهید تغییرات را ذخیره کنید بر روی save کلیک کنید.
