منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لى سؤال بسيط بعد [b]ربط الأوتوكاد بالفيجوال بيسك6[/b]
ما هو الكود اللازم لمعرفة احداثيات نقطة بداية مستقيم مرسوم ونقطة نهايته
هذا الكود نقلته من أحد مواضيع الأستاذة/ سميرة عبد الله [url=https://www.geospatialtechnology.com/member/13011-samira2009][/url]
لمعرفة بعض خصائص مستقيم مرسوم

كود :

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

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

كود :

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

Print "نقطة نهايته"; obj3.ENDX; obj3.ENDY 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اسلام الكبابى