请教一个根据遍历对象确定对象类型的问题
我要实现的功能：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
你需要这个 Dim Pnt
Pnt = ent.StartPoint
Debug.Print "StartPoint:" & Pnt(0) & Pnt(1)
Pnt = ent.EndPoint
Debug.Print "EndPoint:" & Pnt(0) & Pnt(1)
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赋值给该变量。我就是卡在这 mikewolf2k 发表于 2018-3-5 11:21
Dim Pnt
Pnt = ent.StartPoint
Debug.Print "StartPoint:" & Pnt(0) & Pnt(1) ...
错。是我没注意pnt的数组格式。已经解决。谢谢大能
页:
[1]