النتائج 1 إلى 3 من 3

الموضوع: كيف احدد مسافة بين الخطوط في كود الفيجوال بيسيك في اوتوكاد

           
   
  1. #1

    كيف احدد مسافة بين الخطوط في كود الفيجوال بيسيك في اوتوكاد

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

    For i = 0 To Data1.Recordset.RecordCount
    MyPoint1(0) = Val(Text1.Text)
    MyPoint1(1) = Val(Text2.Text)
    MyPoint2(0) = Val(Text3.Text)
    MyPoint2(1) = Val(Text4.Text)
    acadDoc.ModelSpace.AddLine MyPoint1, MyPoint2
    Data1.Recordset.MoveNext
    If Data1.Recordset.EOF Then Exit Sub
    Next i
    اعظم خيرات الفكر معرفة الله

  2. #2
    السلام عليكم

    هذه مهمة للأخ محمد حمود فهو محترف VB .

  3. #3
    الكود يعود فعلا للاخ محمد حمود وقد حصلت عليه منه سابقا في احد المنتديات..
    نرجو منه الرد
    وتحياتنا له وللجميع
    اعظم خيرات الفكر معرفة الله

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

  1. كود لرسم خطوط متكررة في الفيجوال بيسك
    بواسطة عماد بلتاجي في المنتدى برمجة وتطوير أوتوكاد
    مشاركات: 7
    آخر مشاركة: 21-12-2013, 09:09
  2. مشاركات: 5
    آخر مشاركة: 09-06-2010, 12:09
  3. مساعدة كيف احدد موقع اي جوال
    بواسطة hatim008 في المنتدى المنتدى العام لنظام تحديد المواقع العالمي GPS
    مشاركات: 3
    آخر مشاركة: 27-09-2005, 05:00
  4. مشاركات: 4
    آخر مشاركة: 15-08-2004, 00:09
  5. مسابقة 70: أقصر مسافة بين نقطة ومستوى
    بواسطة يحيى مضيه في المنتدى مسابقات أوتوكاد
    مشاركات: 5
    آخر مشاركة: 29-06-2003, 12:22

الكلمات الدلالية لهذا الموضوع

مواقع المفضلات الاجتماعية

مواقع المفضلات الاجتماعية

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

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •