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

<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

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