بعد التحية
ارجو من الخ وسام السماح لي بالتعقيب و شرح الكود.
اولا: يجب النتباه بان VBA ليس برنامجا مستقلا بذاته و انما متاكمل مع تطبيقات ArcMap/ArcCatalog لذلك فان جميع المكتبات التي تحتاجها عند كتابة برنامج تكون معرفة مسبقا, و في حالة الاحتياج لتعريف مكتبات اضافية يمكنك ذلك من preferences
ثانيا: الشرح
Dim pMxDoc As IMxDocument تعريف الوثيقة الاساسية ل ArcMap(MXD)
Set pMxDoc = ThisDocument اسناد قيمة المتحول Pmxdoc ليتعامل مع الوثيقة النفتوحة
Dim pMap As IMap تعريف متحول للتعامل مع dataFrame
Set pMap = pMxDoc.FocusMap اسناد قيمة dataFrame الفعال للمتحول
Dim pLayer As ILayer تعريف متحول للتعامل مع الشرائح في الخريطة
Dim pMapLayers As IEnumLayer تعريف متحول من نوع مصففوفة لتخزين كل الشرائح
Set pMapLayers = pMap.Layers اسناد كل الرائح الموجودة في الخريطة للمتحول من نوع مصفوفة
Set pLayer = pMapLayers.Next اسناد اول قيمة في المصفوفوة للشريحة
Do Until pLayer Is Nothing قراءة كل القيم في المصفوفة و اظهار رسالة باسم الشريحة
MsgBox pLayer.Name سوف تنتهي القراءة عندما تنتهي الشرائح
Set pLayer = pMapLayers.Next
Loop
رد مع اقتباس