ماهي خطوات عمل سنتر لاين للمساحات الطولية

[جهاد محمد قربة]

الأخ حمود الطيب
لقد أمضيت وقتا للبحث عن كود VBA يساعد في ذلك ولكوني لم أجربه فأنا أرسله كما هو وهو منسوخ من أحد المواقع الفرنسية لتحديد نفطة الوسط على طول عنصر خطي شخصيا بدأت الاهتمام حديثا بهذه المواضيع التي تستطيع هي لوحدها أن تبين القدرات الهائلة لنظم المعلومات الجغرافية أي البرمجة وأنتم تعلمون أن الVBA هي أحدى الطرق المتاحة التي آمل أن يتم توجيه أعضاء المنتدى اليها والى باقي الطرق كذلك ودمتم
Dim pPolycurve as IPolyCurve
Dim pPoint as IPoint
Dim dblX as Double
Set pPoint = New Point
Set pPolycurve = [Shape]
pPolycurve.QueryPoint 0, 0.5, True, pPoint
dblX = pPoint.X
__esri_field_calculator_splitter__
dblX