[已解决][求助]用选择集选定一条直线后，怎么得出该直线的始终点坐标？

Public Sub ss()
Dim objSset As AcadSelectionSet
Randomize
Set objSset = ThisDrawing.SelectionSets.Add("adf" & Rnd())
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "Line"
    
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
objSset.SelectOnScreen groupCode, dataCode
Dim objL As AcadLine
For Each objL In objSset
   Debug.Print objL.StartPoint(0), objL.StartPoint(1), objL.StartPoint(2)
   Debug.Print objL.EndPoint(0), objL.EndPoint(1), objL.EndPoint(2)
Next
End Sub