اضافة زر أمر على واجهة ال gis تعمل عمل add data

[عبدالله حسن]

[align=center]بسم الله الرحمن الرحيم
السلام عليكم

احتاج لعمل زر أمر على واجهة برنامج GIS مع الكود يعمل عمل Add Data

ولكم الشكر الجزيل[/align]

[ابراهيم عبد الفتاح ابومريم]

[align=center][/align]

[align=center][/align]

[align=center][/align]

[align=center][/align]

[align=center][/align]

[align=center][/align]

[align=center][/align]

[align=center][/align]

للتحميل بهئية ملف BDF
http://www.4shared.com/file/14458277...RC_GIS_92.html

[فهد المطلق]

هذا الكود البرمجي ل Add Data

Private Sub AddData_Click()

''Get IGxDialog interface
  Dim pGxDialog As IGxDialog
  Set pGxDialog = New GxDialog
  'Get IGxObjectFilter interface
  Dim pGxObjectFilter As IGxObjectFilter
  Set pGxObjectFilter = New GxFilterFeatureClasses
  'Set GxDialog properties
  Set pGxDialog.ObjectFilter = pGxObjectFilter
  pGxDialog.AllowMultiSelect = True
  pGxDialog.Title = "Add Feature Data"
  
  'Get IEnumGxObject
  Dim pEnumGxObject As IEnumGxObject
  'Display the GxDialog and set the EnumGxObject. Exit if user cancel the dialog
  If pGxDialog.DoModalOpen(PageLayoutControl1.hWnd, pEnumGxObject) = False Then Exit Sub
   Dim pFeatureLayer As IFeatureLayer
  Dim pFeatureClass As IFeatureClass
  Dim pGxDataset As IGxDataset
  
  'Get IGxObject interface
  Dim pGxObject As IGxObject
  pEnumGxObject.Reset
  Set pGxObject = pEnumGxObject.Next
  'Loop through the GxObjects
  Do While Not pGxObject Is Nothing
    'Query interface for IGxDataset interface
    Set pGxDataset = pGxObject
    'Get IFeatureClass interface
    Set pFeatureClass = pGxDataset.Dataset
    'Get IFeatureLayer interface
    Set pFeatureLayer = New FeatureLayer
    'Set layer properties
    Set pFeatureLayer.FeatureClass = pFeatureClass
    pFeatureLayer.Name = pFeatureClass.AliasName
    'Add the layer to the PageLayoutControl
    PageLayoutControl1.ActiveView.FocusMap.AddLayer pFeatureLayer

    'Add the layer name to the control
    
    Set pGxObject = pEnumGxObject.Next
  Loop
End Sub

[عبدالله حسن]

السلام عليكم ورحمة الله
شكرا جزيلا أخ ابراهيم على هذا الشر الجميل والواضح بالفعل قمت بتطبيق الخطوات التي ذكرتها وبحمد الله نجحت في إضافة هذه الأداة.
شكرا لكم وأدامكم الله ذخرا لهذه الأمة.

[عبدالله حسن]

السلام عليكم ورحمة الله
الأخ فهد شكرا جزيلا على هذه المشاركة الر ائعة ، لقد قمت بتجربة الكود ونجحت في ذلك وهو الآن على واجهة البرنامج، ولكن أخي السؤال الآن هو كيف يمكن أن أحول هذا البرنامج المكتوب بلغة VBA إلى برنامج بلاحقة dll بيث يتم وضعه مباشرة كأي أداة برمجية أخرى مثل 3D analyst على سبيل المثال.................
منتظرا ردكم ولكم جزيل الشكر وخالص الاحترام .................... دمتم لبناء وتطوير هذه الأمة...............

[فهد المطلق]

3Danalyst هذا أكستنشن يضم العديد من الاوامر الخاصة فية وليس مجرد إيقونة تنفذ امر محدد
dll يعتبر امتداد ملف نظام ولا اعرف دخله في الموضوع

VBA وهو البرنامج الفيجوال بيسك التطبيقي الموجود داخل الكثير من البرامج ومنها برنامج GIS . وهو يساعد المستخدمين على عمل واجهت برمجية تسهل عملية معقده ما، ولا يمكن إنتاج برامج مستقله من خلاله، وهناك برامج أخرى تقوم بعمل برامج مستقله exe. باستخدام الكائنات الهدفية الموجوده داخل البرنامج.

إذا عملت واجهة برمجية باستخدام VBA وتريد ربطها في ايقونه داخل واجهة ArcMap فراجع الرابط التالي
http://www.gisclub.net/vb/showthread.php?t=4740

والله الموفق

[عبدالله حسن]

السلام عليكم ورحمة الله وبركاته
أخي فهد شكرا لكريم عطفكم وسرعة ردكم ، أخي العزيز وأستاذي الكريم لقد قمت اليوم منذ الساعة العاشرة صباحا بكتابة برنامج صغير بلغة VBA ومن خلال دراسة المساعد في برنامج ARC MAp GIS تبين أنه من الممكن إضافة زر واجهة يعمل عمل البرنامج الذي كتبته شرط أن يكون ملف لاحقته dll ولذلك قمت بتحويل برنامجي الصغير من خلال برنامج Visual.net بلاقة dll ومن ثم أضرته إلى برنامج ARC MAp ونجحت العملية ولكن بالنسبة للأمر 3D فهو مبرمج بغة C++ ولذلك لم أتمكن من ذلك.
فهل بإمكانك أخي الكريم أن تزودني ببرنامج تقوم بكتابته من خلال ARC ENgine يقوم فقط بوظيفة عرض ثلاثي البعد
وشكرا لكم وأتمن لكم دوام الصحة والعافية وأدامكم الله ذخرا لهذه الأمة.

[عبدالله حسن]

السلام عليكم ورحمة الله وبركاته
الأخ العزيز فهد أدام الله ظلكم ، أنا حقا آسف على طلباتي الكثيرة من حضرتكم ولكن (الأخوة لبعض) أرجو الرد على سؤالي لكم وأنا في انتظار الرد وشكرا.