المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : تحويل صورة تحتوي على خطوط كنتورية الى جدول اكسل 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
وهي لغة برمجية تنفذ داخل الاوتوكاد اكتبه بدقة عالية لان اي خلل في كتابة الكود سوف لن ينفذ البرنامج.
المهندس سعد شاكر محمد (العراق -بغداد)
والكود مرفق ضمن الفايل المضغوط ادناة

Maddd Mannn
02-22-2010, 09:25 AM
مشكورييييييييييييييييين

فهد الظلام
12-19-2010, 09:49 AM
تسلم يديك

wladn
12-21-2010, 11:15 AM
100/100

zuhair
12-21-2010, 05:24 PM
شكرا يااستاذ

diaagis
01-15-2011, 02:34 PM
زادك الله بسطة فى العلم والجسد...........

والله من وراء القصد .......................................

topo_kech
01-27-2011, 09:44 PM
مشكووووووووووووووووووووووووور

arwa hosam gaber
02-03-2011, 04:20 PM
جزاك الله خيرا

أكرم كيلاني
02-05-2011, 02:12 PM
مشكووووووووووور
مع غني لا احب سياسة الرد قبل التجربة
عموما شكرا علي المجهود

ahmed90
02-06-2011, 01:01 AM
جزاك الله خيرا

tarek12ahmed
02-08-2011, 11:16 PM
شكرا ويارب يكون نافع

الطير المسافر
02-10-2011, 04:49 PM
مشكور جدا والله يا غالى

عبدالغنى
02-13-2011, 07:58 PM
مشكووووووووووووووووووووووووووووور

شادي--
02-24-2011, 11:30 PM
شكرا شكرا

siryn2003
03-12-2011, 04:47 PM
شكراااااااااااااااااااا

sssshhhh
03-12-2011, 07:17 PM
thanks very very big :a11:

momo_lovely599
03-12-2011, 10:30 PM
الله ينور

محمدفتحي
03-15-2011, 11:06 AM
جزاك الله خيرا

mahmoud hosni
03-30-2011, 02:46 AM
شكرا

himahima86
04-05-2011, 10:27 PM
مشكور

said_khaled
04-06-2011, 04:05 PM
شكرا أخى الحبيب

medo diab 2500
04-06-2011, 08:50 PM
الله يباركلك يا دكتور

Ahmed Waheed Shalaby
04-10-2011, 11:23 PM
موضوع غاية فى الروعة
شكرا جزيلا لك
وجزاك الله خيرا
سلمت يداك

MOHMMEDELADELY
04-11-2011, 04:24 PM
الله ينور

Mohmad Omer
04-16-2011, 12:44 PM
رعاك الله

حسام بوشكش
04-20-2011, 08:58 AM
[السلام عليكم
جزاك الله خيرا

katsuyama
04-29-2011, 04:32 PM
thanxxxxxxxxxxxxxxxx soooooooooooo muchhhhhhhhhhhhhhhhhh

عبدالرحمن بدر
05-01-2011, 06:40 PM
جزيت خيرا

mitatou
05-03-2011, 01:00 PM
bravo

nourman91
05-12-2011, 03:05 PM
:a40: جزاك الله خيرا

mody77
05-13-2011, 05:49 PM
شكرا جزيلا............................................. ............

شوقي
05-30-2011, 10:32 AM
مشكور

شوقي
05-30-2011, 10:33 AM
:a11:مشكور يا باشمهندس

romarioooooo
06-15-2011, 01:13 PM
goooooooooooooooooooooooooooooooooooooood

locy
06-18-2011, 03:50 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
وهي لغة برمجية تنفذ داخل الاوتوكاد اكتبه بدقة عالية لان اي خلل في كتابة الكود سوف لن ينفذ البرنامج.
المهندس سعد شاكر محمد (العراق -بغداد)
والكود مرفق ضمن الفايل المضغوط ادناة





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

locy
06-18-2011, 03:56 PM
احتاج الى رسم الخارطة (خارطة العراق عن طريق برنامج اكسل) اذا استطاع احد ان يجد مثل هذا البرنامج الر جاء ارساله الى هذا الايميل
loiza_j@yahoo.com

نصار القرعاني
07-03-2011, 08:33 PM
مشكوووووووووووووووووووووووووووووور

شوقي
07-04-2011, 03:28 PM
مشكوررر ويسلمو يديك

محمد ابوعبدالله
10-11-2011, 09:26 PM
شششكرااااااااااا

محمد ابوعبدالله
10-11-2011, 09:27 PM
شششكراا

tamr9800
10-17-2011, 02:14 PM
موضوع فى غاية الروعه

wmanr
10-19-2011, 10:30 AM
مشكورا على العمل الرائع

عبدالمجيد 1985
10-25-2011, 04:08 AM
مشكوووور

علاء عبد الغني
12-01-2011, 12:41 AM
بارك الله فيكم وفي مجهوداتكم