请教一个根据遍历对象确定对象类型的问题

13912193507

我要实现的功能：
1.在CAD窗口中选择部分图形对象（此处仅以直线、圆、圆弧、多段线为例）；
2.判断选中对象是什么类型，各有多少个；
3.如果是直线，获取各直线的起点和终点坐标
   如果是圆，获取圆的圆心坐标和半径。

问题就出在第三步，请专家在我的程序基础上补充获取直线端点坐标的程序。补充出来我就能做下来的了。
Dim linn%, cirn%, arcn%, recn%
Private Sub CommandButton1_Click()
    Dim sset As AcadSelectionSet '定义选择集对象
    Set sset = ThisDrawing.SelectionSets.Add("ss1") '新建一个选择集
    Me.hide
    sset.SelectOnScreen '提示用户选择
    Call Enttest(sset)
    MsgBox "直线有" & linn
    MsgBox "圆有" & cirn
    MsgBox "圆弧有" & arcn
    MsgBox "多段线有" & recn
    sset.Delete '删除选择集

End Sub
Sub Enttest(x As AcadSelectionSet)  '功能：统计选择集中各种对象的数量
    Dim ent As AcadEntity
    linn = 0: arcn = 0: cirn = 0: recn = 0  '为直线、圆弧、圆、多段线的数量变量
    For Each ent In x
        If TypeOf ent Is AcadLine Then
            linn = linn + 1
        '请在这补充获取直线端点坐标的程序
        ElseIf TypeOf ent Is AcadCircle Then
            cirn = cirn + 1
        ElseIf TypeOf ent Is AcadArc Then
            arcn = arcn + 1
        ElseIf TypeOf ent Is AcadLWPolyline Then
            recn = recn + 1
        End If
    Next ent

End Sub

zzyong00

你需要这个

mikewolf2k

    Dim Pnt
             Pnt = ent.StartPoint
         Debug.Print "StartPoint:" & Pnt(0) & Pnt(1)
             Pnt = ent.EndPoint
         Debug.Print "EndPoint:" & Pnt(0) & Pnt(1)

13912193507

mikewolf2k 发表于 2018-3-5 11:21
Dim Pnt
             Pnt = ent.StartPoint
         Debug.Print "StartPoint:" & Pnt(0) & Pnt(1) ...

ent为AcadEntity类型，不是acadline，并无startpoint和endpoint属性。会提示出错，也不能定义一个变量为acadline类型，然后将ent赋值给该变量。我就是卡在这

13912193507

mikewolf2k 发表于 2018-3-5 11:21
Dim Pnt
             Pnt = ent.StartPoint
         Debug.Print "StartPoint:" & Pnt(0) & Pnt(1) ...

错。是我没注意pnt的数组格式。已经解决。谢谢大能