为什么我不能读取选择集的参数

晶晶静静

Dim ssetObj As AcadSelectionSet
Dim FilterType(5) As Integer
Dim FilterData(5) As Variant
Dim element As AcadEntity
Dim qidian(2) As Double
Dim zhongdian(2) As Double Set ssetObj = ThisDrawing.SelectionSets.Add("ssetObj")

FilterType(0) = -4
FilterData(0) = "<or"
FilterType(2) = 8
FilterData(2) = "0"
FilterType(3) = 0
FilterData(3) = "Line"
FilterType(4) = 0
FilterData(4) = "Polyline"
FilterType(5) = -4
FilterData(5) = "or>" ssetObj.SelectOnScreen FilterType, FilterData

For Each element In ssetObj
If element.ObjectName = "AcDbLine" Or element.ObjectName = "AcDbPolyline" Then
element.color = acBlue
element.Update
qidian(0) = element.startPoint(0)
End If
Next 以上程序为了得到选择集直线的起点终点坐标 ，但是 qidian(0) = element.startPoint(0)我却得到报错的信息，用监视器监视element.startPoint是有参数的，我测试画的都是直线

雪山飞狐_lzh

If element.ObjectName = "AcDbLine" Or element.ObjectName = "AcDbPolyline" Then
element.Color = acBlue
element.Update
temp = element.StartPoint
qidian(0) = temp(0)
End If

晶晶静静

temp改设为数组么，还是什么变量呢？

晶晶静静

我把temp设置为acadpoint


然后按你说的写，可是出的错误是


错误“91”，对变量或with块变量未设置

雪山飞狐_lzh

dim temp


设置为变体

晶晶静静

谢谢！！！！