كيفية قراءة Excel في ماكرو SolidWorks

مؤلف: Florence Bailey
تاريخ الخلق: 26 مارس 2021
تاريخ التحديث: 24 شهر نوفمبر 2024
Anonim
SOLIDWORKS - Introduction to Macros
فيديو: SOLIDWORKS - Introduction to Macros

المحتوى

العمل بكفاءة أكبر في SolidWorks باستخدام قدرة Excel على تخزين قيم متعددة وتحديد العلاقات الوظيفية بينها. التحكم في معلمات SolidWorks ، مثل قيم البعد ، باستخدام أدوات مساعدة Excel VBA. على سبيل المثال ، يمكنك إنشاء تجميع باستخدام جدول بيانات Excel مضمن يتيح لك التحكم في أبعاد جزء ما. يمكنك تغيير قيم الخلية في ورقة العمل المضمنة ، ثم انقر فوق زر أمر لتشغيل ماكرو يقوم بتحديث التجميع. استكشف العديد من الخيارات لاستخدام صيغ Excel ووظائفها مع وحدات ماكرو SolidWorks.


الاتجاهات

SolidWorks هو نوع من برنامج رسم ثلاثي الأبعاد موجه بواسطة الكمبيوتر (Stockbyte / Stockbyte / Getty Images)

  1. فتح جبل في سوليدووركس. انقر بزر الماوس الأيمن على مجلد "التعليقات التوضيحية" في شجرة مشروع "FeatureManager" وحدد "إظهار أبعاد الأسماء" لتوفير وصول سهل إلى أبعاد محددة.

  2. سجل ماكرو. انتقل إلى قائمة "عرض" وحدد "أشرطة الأدوات" و "ماكرو" لعرض شريط أدوات ماكرو. انقر فوق الزر "Record Pause ماكرو" على شريط الأدوات.

  3. نفذ فقط الإجراءات التي تريد تسجيلها. انقر نقرًا مزدوجًا فوق كل بُعد لزيادة بُعده ، على سبيل المثال ، 1،2 سم. انقر فوق الزر "إعادة الإنشاء" أو اضغط على "Ctrl + B" لإعادة بناء التجميع. انقر فوق الزر "إيقاف ماكرو" على شريط الأدوات لإيقافه.

  4. أدخل اسمًا للماكرو ، مثل "الأبعاد" في حقل "اسم الملف" في مربع الحوار "ماكرو جديد". حدد "SW VBA Macros (* .swp)" في "حفظ كنوع "وانقر فوق" حفظ ".


  5. انقر فوق الزر "تحرير ماكرو" على شريط الأدوات وحدد واحدة جديدة. يجب أن يشتمل الرمز على شيء مشابه لما يلي:

    الفرعية الرئيسية ()

    تعيين swApp = CreateObject ("SldWorks.Application") تعيين الجزء = swApp.ActiveDoc Part.SelectByID "Shaft1 @ Sketch1 @ mygear-1 @ MyGearbox". Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0.0254 Part.SelectByID "Shaft2 @ Sketch1 @ mygear2-1 @ MyGearbox"،. Part.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0254 Part.SelectByID "MyDia1 @ Sketch1 @ mygear-1 @ MyGearbox". Part.Parameter ("MyDia1 @ Sketch1 @ mygear.Part"). SystemValue = 0.1016 Part.SelectByID "MyDia2 @ Sketch1 @ mygear2-1 @ MyGearbox" ،. Part.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection End Sub

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


    الفرعية الرئيسية ()

    Set swApp = CreateObject ("SldWorks.Application") Set Part = swApp.ActiveDoc Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0.0254 Part.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0254 Part.Parameter ("MyDia1 @ Sketch1 @ mygear.Part"). SystemValue = 0.1016 Part.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part") SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection End Sub

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

  8. انتقل إلى SolidWorks وانسخ كل رمز الماكرو بين السطور "Sub Main ()" و "End Sub" من الماكرو المسجل.

  9. ارجع إلى جدول بيانات Excel وانقر نقرًا مزدوجًا فوق زر الأمر الجديد أو انقر بزر الماوس الأيمن وحدد "عرض الرمز". قم بلصق رمز SolidWorks المنسوخ في سطر "End Sub".

  10. تعديل التعليمات البرمجية التالية للوصول إلى القيم في Excel.

    Private Sub CommandButton1_Click () Set swApp = CreateObject ("SldWorks.Application") Set Part = swApp.ActiveDoc Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part") SystemValue = Excel.Range ("B1") * 0.0254 Part SystemValue = Excel.Range ("B2") * 0.0254 Part.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = Excel.Range ("B3" ) * 0.0254 Part.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = Excel.Range ("B4") * 0.0254 Part.EditRebuild Part.ClearSelection End Sub

  11. انسخ ورقة عمل Excel والصقها في التجميع بحيث لا يتحكم ملف خارجي في القالب. حدد جميع الخلايا المطلوبة واضغط على "Ctrl + C" لنسخها جميعًا. ارجع إلى مجموعة SolidWorks واضغط على "Ctrl + V" للصق الخلايا المنسوخة. الآن ، أغلق أو احذف ملف Excel. تم تضمين جدول البيانات في التجميع ، لذلك لا تحتاج إلى الملف.

  12. انقر نقرًا مزدوجًا فوق جدول البيانات المضمن لتنشيطه. قم بتغيير قيم الخلايا وانقر فوق زر الأمر في ورقة العمل لتحديث التجميع. انقر خارج إطار ورقة العمل المدمجة لإلغاء تنشيط والعودة إلى التجميع.