احداثيات نقطة مرسومة - منتدى استراحات زايد

		منتدى استراحات زايد > استراحات اخرى > منتدى أخبار المواقع والمنتديات العربية والأجنبية
احداثيات نقطة مرسومة

:: متجر بي راقى لبيع اللوحات الجدارية (آخر رد :حسن سليمة) :: شركة تنظيف مكيفات بالدمام (آخر رد :العنود جابر) :: شركة تركيب كاميرات مراقبة بينبع (آخر رد :rwnaa_1) :: المنصات عبر الإنترنت من التقنيات المبتكرة (آخر رد :اسماعيل رضا) :: برامج الحفظ عبر الإنترنت المرونة (آخر رد :اسماعيل رضا) :: تطبيق كليك كاش click cash (آخر رد :جاسم الماهر) :: متجر ساكورا للهدايا: تمتع بتجربة تسوق استثنائية (آخر رد :نادية معلم) :: التداول والأسهم: دليل شامل لعالم الاستثمار (آخر رد :محمد العوضي) :: برامج الرشاقة السعيدة (آخر رد :دارين الدوسري) :: التسجيل في الضمان المطور: خطوة بسيطة نحو مستقبل آمن (آخر رد :مصطفيي)

LinkBack

أدوات الموضوع

انواع عرض الموضوع

08-05-2019, 06:43 AM

محروم.كوم

عضو ماسي

بيانات محروم.كوم

رقم العضوية : 503

تاريخ التسجيل : Dec 2007

الجنس : female

علم الدوله : الدوله : United Arab Emirates

المشاركات : 2,100,613

عدد الـنقاط :3341

تقييم المستوى : 2139

احداثيات نقطة مرسومة

<div>لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6
ما هو الكود اللازم لمعرفة احداثيات نقطة بداية مستقيم مرسوم ونقطة نهايته

هذا الكود نقلته من أحد المواضيع لمعرفة بعض خصائص مستقيم مرسوم
واشتغل معى تمام

كود PHP:

Private Sub Command4_Click()
Dim acadapp As AcadApplication
Dim newssett As AcadSelectionSet
Dim obj3 As AcadEntity
Set newssett = acadapp.ActiveDocument.SelectionSets.Add("kkkkk")
newssett.SelectOnScreen
For Each obj3 In newssett
If obj3.ObjectName = "AcDbLine" Then
Print " طول المستقيم "; obj3.Length
Print "زاوية ميله بالتقدير الدائرى "; obj3.angle
End If
Next obj3
acadapp.ActiveDocument.SelectionSets.Item("kkkkk").Delete

End Sub

ولما حاولت اضافة الجملتين التاليتين فى هذا الكود لمعرفة احداثيات نقطة بداية المستقيم ونقطة نهايته مع طوله وزاوية ميله
اعترض البرنامج

كود PHP:

Print "نقطة بدايته"; obj3.STARTX; obj3.STARTY
Print "نقطة نهايته"; obj3.ENDX; obj3.ENDY

فما هو الكود اللازم لمعرفة احداثيات نقطة بداية هذا المستقيم (الذى أشار اليه المستخدم فى صفحة الأوتوكاد) ونقطة نهايته
ولكم ألف شكر

__DEFINE_LIKE_SHARE__

إعلانات عشوائية

تعارف بلاك بيري	صور بلاك بيري	قروبات بلاك بيري	اخبار رياضية	العاب فلاش	اهداءات اغاني للهواتف	نغمات جوال
أغاني	مسلسلات رمضان	مسجات	سوق محروم	سيارات للبيع	ارقام سيارات للبيع	برودكاست

مواقع النشر (المفضلة)

« طريقة استرجاع الثيم القديم winrar | لهواتف الأندرويد الرسول القائد »

تعليمات المشاركة

لا تستطيع إضافة مواضيع جديدة

لا تستطيع الرد على المواضيع

لا تستطيع إرفاق ملفات

لا تستطيع تعديل مشاركاتك

BB code is متاحة

الابتسامات متاحة

كود [IMG] متاحة

كود HTML معطلة

Trackbacks are متاحة

Pingbacks are متاحة

Refbacks are متاحة

قوانين المنتدى

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
برنامج فحص حالة التسجيل في منتدى نقطة التطوير , تنبية عند فتح التسجيل فى نقطة التطوير	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	07-06-2015 11:40 PM
الأسهم السعودية تغلق مرتفعة بـ25 نقطة عند مستوي 8156.77 نقطة	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	08-19-2013 02:00 PM
#Bahrain 54نسيج \| السهلة الشمالية \| أحذر .. نقطة تفتيش !! نقطة تفتيش ح	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	07-17-2012 04:10 AM
نسيج \| نقطة تفتيش على الهاي وي قرب أنصار جاليري و نقطة تفتيش أخرى قرب	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	05-03-2012 01:50 AM
سوق مسقط: المؤشر يرتفع 17 نقطة(+0.3%) عند مستوى 6,655 نقطة	محروم.كوم	منتدى أخبار المواقع والمنتديات العربية والأجنبية	0	03-10-2010 11:00 PM

الساعة الآن 06:01 AM

RSS RSS 2.0 XML MAP HTML