تحويل صورة تحتوي على خطوط كنتورية الى جدول اكسل Excel table

**سعد شاكر محمد** · 12-02-2009, 10:07 PM

تحويل صورة تحتوي على خطوط كنتورية الى جدول اكسل Excel table
تحصل في اغلب الاحيان على خارطة كنتورية مطبوعة على ورقة ناتجة عن مسوحات قديمه ليس لديك اي معلومات حقلية عنها سوى كونها خارطة تحتوي على خطوط كنتورية موضح عليها قيمة الخطوط والفترة الكتتورية ومقياس الرسم. وطلب منك ان تحول هذة الخارطة الى جدول اكسل يمثل هذه الخارطة ويحتوي على احداثيات النقاط التي تمر بها الخطوط بالابعاد الثلاثة X,Y,Z لحفضها في الحاسوب ومن ثم استخدامها في برامج sufer ,land desktop لاعادة رسمها ثانية اوتحويلها الى سطح لكي تستخدم لاغراض رسم المقاطع الطولية او العرضية او رسم مجسم للمنطقة التي تمثله هذة الخارطة ولانجاز ذلك نتبع الخطوات ادناه
1- نقوم بعمل scan لهذه الخارطة بلاجهزة المتوفرة وحفظها على شكل صورة تحمل الامتداد .tif
2- نفتح برنامج الاوتوكاد وندرج الصورة من القائمة Insert ->raster image reference
3- نستخدم اوامر scale & Align لوضع الصورة بالمقياس الحقيقي والاتجاه الحقيقي للخارطة وكانك ترسم مقياس 1/1 اي تحقيق الطول الحقيقي الموجود على الخارطة هو نفسه على شاشة الاوتوكاد
4- باستخدام الامر spline قم برسم الخطوط الكنتورية وذلك بتتبع مسار الخط الكنتوري, وقبل رسم اي خط كنتوري افتح طبقة تحمل اسم هو قيمة الخط الكنتوري اي عندما تكون قيمة الخط الكنتوري هو 30 على سبيل المثال فسيكون اسم الطبقة هو 30 وهكذا(يمكن تسهيل عملية رسم الخطوط باستخدام برنامج يقوم بتحويل Raster to Vector وهو برنامج يرسم مباشر ة الخط الكنتوري الموجود في الصورة)
5- استخدم الامر Draw Point measure وذللك لتقسيم كل خط كنتوري الى نقاط معلوم البعد بينها وهذا البعد يعتمد على الطبيعة الطوبوغرافية للمنطقة التي تمثلها الخارطة بحيث يكون البعد قصير في المناطق الجبلية وطويل في المناطق المنبسطة,يجب الانتباه بان تنفذ الامر measure بعد فتح الطبقة التي يوجد فيها كل خط لضمان وجود النقاط بنفس هذه الطبقة حيث سيمثل اسم الطبقة الارتفاع لهذه النقاط كما سترى لاحقا.

6- بعد الانتهاء من تقسيم كل الخطوط
اذهب الى القائمة ToolsAutolispVisual lisp editor new file وقم بكتابة الكود التالي او يمكن كتابة الكود مسبقا على ملف txt ثم خزنه بالامتداد .lsp وفتحه داخل الاوتوكاد عن طريق القائمة ToolsAutolisp Visual lisp editoropen
7- بعدظهور الكود في معلج الا وتولسب نذهب ال Toolsload text in editor بعد ذلك اغلق نافذة المعالج سوف تظهرعبارة Type exprt to .start في سطر الاوامر

8- نكتب الامر exprt من سطر الاوامر, سيطلب منك هذا الامر باختيار النقاط مرة واحدة وذلك بعمل zoom ثم ننهي البرنامج ونغلق الاوتوكاد وسنجد فايل اكسل اسمه saad.xls على القرص C: يحتوي على اربعة اعمدة هي id,x,y,z لكل النقاط التي تم اختيارها .
9- الكودالتالي مكتوب بلغة Auolisp
وهي لغة برمجية تنفذ داخل الاوتوكاد اكتبه بدقة عالية لان اي خلل في كتابة الكود سوف لن ينفذ البرنامج.
المهندس سعد شاكر محمد (العراق -بغداد)
والكود مرفق ضمن الفايل المضغوط ادناة