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

yuming2004

用选择集选定一条直线后，怎么得出该直线的始终点坐标？，这两天为了这个都想破脑袋了都没弄出来，谢谢大家的帮忙。

问题已经解决了，谢谢zzyong00，十分感谢。

雪山飞狐_lzh

仔细看看对象模型的帮助

zzyong00

2. Public Sub ss()
3. Dim objSset As AcadSelectionSet
4. Randomize
5. Set objSset = ThisDrawing.SelectionSets.Add("adf" & Rnd())
6.     Dim gpCode(0) As Integer
7.     Dim dataValue(0) As Variant
8.     gpCode(0) = 0
9.     dataValue(0) = "Line"
10.    
11.     Dim groupCode As Variant, dataCode As Variant
12.     groupCode = gpCode
13.     dataCode = dataValue
14. objSset.SelectOnScreen groupCode, dataCode
15. Dim objL As AcadLine
16. For Each objL In objSset
17.    Debug.Print objL.StartPoint(0), objL.StartPoint(1), objL.StartPoint(2)
18.    Debug.Print objL.EndPoint(0), objL.EndPoint(1), objL.EndPoint(2)
19. Next
20. End Sub

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

yuming2004

谢谢你们两位，特别是楼上的，我马上去试试