تعلم التحكم ببرنامج أتوكاد من خلال فجوال بيزك واصنع برنامجك الخاص خطوة بخطوة

Admin عدد المساهمات : 591 تاريخ التسجيل : 01/11/2011

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

Admin عدد المساهمات : 591 تاريخ التسجيل : 01/11/2011

الدرس الأول

· افتح مشروع فجوال بيزك جديد يحوي إطاراً واحداً Form1 وموديول واحد Module1 وخزنه في أي مكان تختاره وسمه VBcad .
· حيث سنعتمد في دروسنا القادمة على تطوير هذا المثال خطوة بخطوة ليكون شاملاً بإذن الله .
· الآن قم بعمل زر Command1 وأضفه للفورم وقم بتغيير خاصية caption ليصبح (Open New Drawing) . وقم بعمل زر Command2 وأضفه للفورم وقم بتغيير خاصية caption ليصبح (Close New Drawing ) وقم بعمل زر Command3 وأضفه للفورم وقم بتغيير خاصية caption ليصبح (Exit) .
· يجب الآن تحميل مكتبة كائن الأوتوكاد ضمن المشروع ونقوم بعمل ذلك من قائمة Project نختار References
، ثم نبحث في مربع الحوار الذي يظهر لدينا عن مكتبة الأتوكاد ذات الإصدار
المرتبط بالنسخة المحملة على جهازك (2000-2004-2007-2009....) ونفعل هذا
الخيار Autocad 2009 Type Library ثم موافق .
· نفتح صفحة الموديول Module1 ونكتب السطر التالي :

كود PHP:

Public Acadapp As AcadApplication

حيث Acadapp
متحول تم تعريفه ليمثل تطبيق أو كائن الأتوكاد ...أي أن هذا المتحول وكأنه
برنامج الأتوكاد نفسه سنتعامل مع الأتوكاد من خلاله (وإن كان التعبير غير
دقيق).
· الآن في حدث النقر Click على زر (Open New Drawing) نكتب السطر التالي :

كود PHP:

Private Sub Command1_Click()
Set Acadapp = CreateObject("AutoCAD.Application.17")
Acadapp.Documents.Add
Acadapp.Visible = True
Acadapp.WindowState = acMax
End Sub

الشرح :
- نقوم أولا بفتح تطبيق أو كائن أتوكاد (Object) من خلال وظيفة CreateObject وإسناد هذا الكائن إلى المتحول Acadapp من خلال وظيفة Set . وهنا أصبح المتحول Acadapp يمثل التطبيق المفتوح وسنتعامل مع التطبيق أو الكائن من خلاله . وهنا نلاحظ الجملة "AutoCAD.Application.17" وهي لنسخ الكاد بعد 2004 أما قبل 2004 نكتب "AutoCAD.Application.16"
- من خلال هذا المتحول (الذي سنتعامل معه وكأنه تطبيق الأتوكاد ) نقوم بفتح ملف جديد من خلال السطر

كود PHP:

Acadapp.Documents.Add

- نقوم بعد ذلك بجعل تطبيق الأتوكاد ظاهراً على الشاشة من خلال

كود PHP:

Acadapp.Visible = True

- يمكن التحكم بنافذة برنامج الأتوكاد من خلال :

كود PHP:

Acadapp.WindowState = acMax

الآن إحفظ العمل وشغل البرنامج واضغط زر (Open New Drawing) ولاحظ النتيجة .

Admin عدد المساهمات : 591 تاريخ التسجيل : 01/11/2011

يتبع....

» توقيف عشرة مثليين من الجنسين خلال حفل تعارف في عمان
» تحذيرات أمريكية من عملية خطيرة في تونس خلال أربعة أسابيع
» هل تعلم ان للكرش فوائد ؟
» تعلم واحتراف أساسيات اللغة الألمانية
» تعلم قواعد واساسيات اللغة الانجليزية