Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
التسجيل
النتائج 1 إلى 8 من 8

طريقة ربط الاوتوكاد بالاكسيل

هذا الموضوع : طريقة ربط الاوتوكاد بالاكسيل داخل Autodesk AutoCadالتابع الي قسم البعد الثالث | 3D Programs : السلام عليكم هل ممكن طريقة ربط الاكسيل بالاتوكاد مع شرح مبسط لها وجزاكم الله خيرا...

  1. #1
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    Oct 2010
    المشاركات
    83
    Thanks
    0
    Thanked 0 Times in 0 Posts
    معدل تقييم المستوى
    10

    طريقة ربط الاوتوكاد بالاكسيل

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


  2. #2


    الصورة الرمزية 4MAX
    الإشراف العام

    الحالة
    غير متصل
    تاريخ التسجيل
    Jul 2009
    الدولة
    فى القلب
    العمر
    29
    المشاركات
    19,932
    Thanks
    983
    Thanked 241 Times in 199 Posts
    الصور
    6
    معدل تقييم المستوى
    462

    رد: طريقة ربط الاوتوكاد بالاكسيل

    وعليكم السلام ورحمه الله وبركاته

    اتمنى الطريقه دى تفيدك

    =====

    حل منقول

    قد تعلم أنّه بالإمكان إنشاء ما تشاء من مهام داخل أوتوكاد عن طريق إحدى اللغتين المضمّنتين داخله (الأوتوليسب و فيجوال بيسك للتطبيقات).
    لذا قُمتُ بإنشاء هذا الماكرو بلغة فيجوال بيسك للتطبيقات، يقوم بأضافة المعلومات الّتي أردتًها إلى الملف (من نوع Excel) و الّذي تحدّده بنفسك.
    علماً بأنّ عملية إضافة المعلومات ستتم لحظة حفظك لأيّ مشروع AutoCAD.
    لاحظ أنّه لإتمام العملية يتوجّب عليك ما يلي:
    - أن يكون لديك برنامج Excel (بالطبع! ).
    - أن تنشىء ملف Excel جديد و تحدّد له مبدئياً الاسم و المسار التاليَين "C:\MyDrawingsInfo.xls".
    - أن تتأكد من أنّك قمت بإعداد (تنصيب) نسختك من أوتوكاد على حاسوبك، مع اختيارك بيئة التطوير "أوتوكاد - فيجوال بيسك للتطبيقات" أو AutoCAD VBA، يحدث ذلك عادةً إذا قمت بإعداد أوتوكاد باستخدام الخيار "كامل" أو Full أو عن طريق الخيار "مخصص" أو Custom مع انتقاء المكون VBA Support، فإذا لم تكن قد فعلت ذلك، فإنّ عليك إعداد أوتوكاد من جديد.

    خطوات تطبيق البرنامج:
    - قم بتشغيل برنامج أوتوكاد و بعدها قم بتشغيل محرّر فيجوال بيسك و ذلك إمّا عن طريق القائمة Tools>Macro>Visual Basic Editor أو عن طريق مفاتيح الاختصار Ctrl+F11 أو بكتابة الأمر vbaide في نافذة أوامر أوتوكاد.
    - ستظهر لك واجهة البرنامج و ستجد على يسارك صندوق المشروع (Project - ACADProject)، قم بالنقر بزر الفأرة الأيمن على الأيقونة ThisDrawing و اختر من القائمة المنبثقة (View Code) لتجد أن نافذة كتابة الشيفرة قد ظهرت و هي فارغة، (أو بالنقر المزدوج بالزر الأيسر على الأيقونة).
    - قم بإضافة النص البرمجي التالي إلى تلك النافذة:

    شفرة:

    Private Sub AcadDocument_EndSave(ByVal FileName As String) SaveMyDrawingInfo End Sub Sub SaveMyDrawingInfo() Dim ExcelApp As Object Dim MyExcelFile As Object Dim Mysheet As Object On Error GoTo Err1 Set ExcelApp = CreateObject("excel.application") Set MyExcelFile = ExcelApp.Workbooks.Open("C:\MyDrawingsInfo.xls") Set Mysheet = MyExcelFile.Worksheets("Sheet1") Dim i As Long Dim CurrentFileFullName As String i = 1 CurrentFileFullName = Mysheet.Cells(i, 2) Do While CurrentFileFullName <> "" If CurrentFileFullName = ThisDrawing.FullName Then Mysheet.Cells(i, 3) = FileDateTime(ThisDrawing.FullName) GoTo SaveChangesAndQuit End If i = i + 1 CurrentFileFullName = Mysheet.Cells(i, 2) Loop Mysheet.Cells(i, 1) = ThisDrawing.Name Mysheet.Cells(i, 2) = ThisDrawing.FullName Mysheet.Cells(i, 3) = FileDateTime(ThisDrawing.FullName) SaveChangesAndQuit: MyExcelFile.Close savechanges:=True ExcelApp.Quit Err1: Set Mysheet = Nothing Set MyExcelFile = Nothing Set ExcelApp = Nothing End Sub
    - إحفظ مشروعك هذا عن طريق الأمر Save من قائمة File و اختر له الاسم المناسب (MyProject.dvb مثلاً) و المكان الّذي تريد.
    - أغلق نافذة فيجوال بيسك و توجّه إلى أوتوكاد، و قم بفتح عدّة مشاريع أوتوكاد و احفظها من جديد (Save).
    - و بعدها قم بتشغيل ملف الإكسل "C:\MyDrawingsInfo.xls" و الّذي أنشأته من قبل.

    ملاحظات:
    + عندما تقوم بحفظ ملف أوتوكاد، سيقوم البرنامج باختبار المعلومات المسجّلة سابقاً في ملف الإكسل، فإنْ اكتشف بأنّ الملف موجود سابقاً فإنّه سيعيد فقط إدخال قيمة تاريخ تعديل ملف الأوتوكاد هذا.
    + و إن لم يجدهُ، سيقوم بإضافة معلوماته في أول سطر فارغ يصل إليه.
    + إحرص على أن تضع ملف الإكسل في المسار الموافق لما هو مذكور سابقاً، و إن شئت قم بتعديل السطر البرمجي الذي يحدّد مسار و اسم الملف الجديد.
    + كي تستطيع استخدام البرنامج بشكل دائم، قم باختيار القائمة (Tools>AutoLISP>Load Application) أو بكتابة الأمر appload في نافذة أوامر أوتوكاد، ستظهر لديك نافذة (Load/Unload Applications)، قم بالنّقر على الزّر (Contents)، فتظهر لك النافذة (Startup Suite)، إنقر على الزّر (Add)، فيظهر لك صندوق الحوار (Add..)، عندها اختر ملف البرنامج الّذي أنشأته سابقاً "MyProject.dvb"، و عند العودة للنافذة السابقة ستجد بأنّ الملف قد أضيف، قم بإغلاق جميع النوافذ.
    + قم بإنهاء برنامج أوتوكاد و من ثمّ تشغيله، و قم بتجربة البرنامج عن طريق حفظ مشاريع أوتوكاد جديدة، لتجد بعدها بأنّ البرنامج أصبح يعمل مع بدء تشغيل أوتوكاد و لن تحتاج بعدها لأن تقوم بكلّ ما قد قمت به سابقاً.
    + إحرص على عدم محاولة ترك ملف الإكسل الخاص بالبرنامج مفتوحاً خلال عمليات حفظ ملفات أوتوكاد كي يتمكّن البرنامج من التعديل عليه دون حدوث مشاكل.
    + يمكن تطوير البرنامج بحيث يستطيع مثلاً أن يسألك عن رغبتك فعلاً في إضافة معلومات هذا الملف أو ذاك، أو أن يطلب منك تحديد مكان ملف الإكسل في كل مرّة فيما لو أردت أن تقوم بتحديد أكثر من ملف إكسل كتصنيف لأنواع الرسوم مثلاً، أو ...أو... .
    + عند رغبتك بإضافة ميّزة ما للبرنامج، أو عند حدوث أيّة مشكلة أو عند رغبتك في الاستفسار فلا تتردد بالإبلاغ...

    و في الختام أتمنّى لك و للجميع العلم الفائدة.

    نزولاً عند رغبتك فيمكن أن نجعل البرنامج يقوم بإضافة معلومات ملفّات الأوتوكاد الموجودة في مجلّد معيّن (F:\AutoCAD\Drawings مثلاً) دون غيرها.
    و بإمكانك تغيير مسار المجلد المثال كما تريد، فمثلاً أكتب بدلاً منه "D:\MyFiles" ليقوم البرنامج بإضافة معلومات الملفّات التي تخزنّها داخله فقط.
    عندها يكون من الأجدر بك (إن رغبت في ذلك) أن تقوم بتغيير مكان ملف الإكسل إلى نفس المجلّد فيصبح اسم الملف المثال (مع المسار) "F:\AutoCAD\Drawings\MyDrawingsInfo.xls".
    و لعمل ذلك يكفي أن تضيف إلى الشيفرة السّابقة السّطور البرمجيّة التالية:

    شفرة:

    Dim MyFolder As String MyFolder = "F:\AutoCAD\Drawings" If ThisDrawing.Path <> MyFolder Then GoTo Err1
    قبل السطر:

    شفرة:

    On Error GoTo Err1
    و أن تنقل ملف الإكسل إلى المجلد الجديد و تبدّل السطر البرمجي الخاص به إلى المسار الجديد "F:\AutoCAD\Drawings\MyDrawingsInfo.xls"
    لتصبح الشيفرة كاملةً كما يلي:

    شفرة:

    Private Sub AcadDocument_EndSave(ByVal FileName As String) SaveMyDrawingInfo End Sub Sub SaveMyDrawingInfo() Dim ExcelApp As Object Dim MyExcelFile As Object Dim Mysheet As Object '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Dim MyFolder As String MyFolder = "F:\AutoCAD\Drawings" If ThisDrawing.Path <> MyFolder Then GoTo Err1 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< On Error GoTo Err1 Set ExcelApp = CreateObject("excel.application") '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Set MyExcelFile = ExcelApp.Workbooks.Open("F:\AutoCAD\Drawings\MyDra wingsInfo.xls") '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Set Mysheet = MyExcelFile.Worksheets("Sheet1") Dim i As Long Dim CurrentFileFullName As String i = 1 CurrentFileFullName = Mysheet.Cells(i, 2) Do While CurrentFileFullName <> "" If CurrentFileFullName = ThisDrawing.FullName Then Mysheet.Cells(i, 3) = FileDateTime(ThisDrawing.FullName) GoTo SaveChangesAndQuit End If i = i + 1 CurrentFileFullName = Mysheet.Cells(i, 2) Loop Mysheet.Cells(i, 1) = ThisDrawing.Name Mysheet.Cells(i, 2) = ThisDrawing.FullName Mysheet.Cells(i, 3) = FileDateTime(ThisDrawing.FullName) SaveChangesAndQuit: MyExcelFile.Close savechanges:=True ExcelApp.Quit Err1: Set Mysheet = Nothing Set MyExcelFile = Nothing Set ExcelApp = Nothing End Sub
    ختاماً أتمنّى أن تكون قد نلت مبتغاك.
    ان لله عبادا اختصهم لقضاء حوائج الناس
    حببهم للخير وحبب الخير لهم
    اولئك هم الامنون من عذاب الله يوم القيامه
    =====

    بروا آبائكم يبروكم أبنائكم




    ĎΞs!GŖ

    مركز طريق الجرافيك التعليمي

  3. #3
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    Jun 2006
    الدولة
    مصر
    المشاركات
    268
    Thanks
    0
    Thanked 0 Times in 0 Posts
    معدل تقييم المستوى
    19

    رد: طريقة ربط الاوتوكاد بالاكسيل


  4. #4
    الصورة الرمزية F.WIN
    مصمم متميز

    الحالة
    غير متصل
    تاريخ التسجيل
    Sep 2011
    الدولة
    AlgeriA
    المشاركات
    2,119
    Thanks
    0
    Thanked 2 Times in 2 Posts
    الصور
    17
    معدل تقييم المستوى
    78

    رد: طريقة ربط الاوتوكاد بالاكسيل

    بارك الله فيكم اخوتي الكرام على مد العون
    وموفق ان شاء الله صاحب الموضوع







  5. #5
    مصمم متميز

    الحالة
    غير متصل
    تاريخ التسجيل
    May 2011
    الدولة
    banha-cairo
    العمر
    29
    المشاركات
    1,250
    Thanks
    0
    Thanked 17 Times in 14 Posts
    الصور
    8
    معدل تقييم المستوى
    48

    رد: طريقة ربط الاوتوكاد بالاكسيل

    مشكوووووووووووور اخى على المعلومات الرائعه

  6. #6
    الصورة الرمزية ابو احمد الجبوري
    مصمم مشارك

    الحالة
    غير متصل
    تاريخ التسجيل
    Aug 2011
    الدولة
    بغداد
    المشاركات
    173
    Thanks
    0
    Thanked 0 Times in 0 Posts
    معدل تقييم المستوى
    12

    رد: طريقة ربط الاوتوكاد بالاكسيل

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

  7. #7
    الصورة الرمزية احمد البدرى
    احباب طريق الجرافيك

    الحالة
    غير متصل
    تاريخ التسجيل
    Jan 2007
    الدولة
    Médinat El-Fayoum, Al Fayyum, Egypt, Egypt
    العمر
    47
    المشاركات
    6,352
    Thanks
    2
    Thanked 5 Times in 3 Posts
    الصور
    8
    معدل تقييم المستوى
    155

    رد: طريقة ربط الاوتوكاد بالاكسيل

    جزاكم الله خيرا على المعلومات القيمة جدا

  8. #8



    الصورة الرمزية محمود قحطان
    مدير قسم الأوتوكاد

    الحالة
    غير متصل
    تاريخ التسجيل
    Apr 2007
    الدولة
    السُّعودية- الدَّمام
    المشاركات
    1,783
    Thanks
    0
    Thanked 6 Times in 4 Posts
    الصور
    2
    معدل تقييم المستوى
    68

    رد: طريقة ربط الاوتوكاد بالاكسيل

    شُكرًا للإفادة.

    أجزمُ أنَّ لا شيءَ يُشبهني..
    أدوِّنُ بعضاً من عبثيةِ الرَّفضِ لأواري سوءات الآخرين.. !!

 

 

المواضيع المتشابهه

  1. مقدمة في الاوتوكاد
    بواسطة waleed_ali في المنتدى Autodesk AutoCad
    مشاركات: 2
    آخر مشاركة: 04 / 12 / 2012, 23 : 09 PM
  2. شكل الاوتوكاد
    بواسطة banafsag في المنتدى Autodesk AutoCad
    مشاركات: 4
    آخر مشاركة: 17 / 01 / 2012, 01 : 11 PM
  3. طلب مساعدة فى الاوتوكاد
    بواسطة love design في المنتدى Autodesk AutoCad
    مشاركات: 4
    آخر مشاركة: 30 / 09 / 2011, 36 : 05 PM
  4. الى محترفى الاوتوكاد
    بواسطة abonedall في المنتدى Autodesk AutoCad
    مشاركات: 6
    آخر مشاركة: 10 / 02 / 2009, 38 : 11 PM
  5. شرح طريقة لتغيير اختصارات الاوامر في الاوتوكاد
    بواسطة عبدالكريم مصطفى في المنتدى Autodesk AutoCad
    مشاركات: 5
    آخر مشاركة: 25 / 06 / 2008, 45 : 10 AM

المفضلات

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  
الساعة الآن 23 : 11 AM
Powered by vBulletin® Version 4.2.3
Copyright © 2017 vBulletin Solutions, Inc. All rights reserved.
Search Engine Optimization by vBSEO