[اسلام الكبابى]

لى سؤال بسيط بعد [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]ونقطة نهايته
ولكم ألف شكر