社区 › VB › 为什么我不能读取选择集的参数

晶晶静静 发表于 2005-6-24 09:56:00

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

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) = ""
                       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 发表于 2005-6-24 11:06:00

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

晶晶静静 发表于 2005-6-24 11:35:00

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

晶晶静静 发表于 2005-6-24 11:41:00

我把temp设置为acadpoint
然后按你说的写，可是出的错误是
错误“91”，对变量或with块变量未设置

雪山飞狐_lzh 发表于 2005-6-24 12:04:00

dim temp
设置为变体

晶晶静静 发表于 2005-6-24 14:58:00

谢谢！！！！

查看完整版本: 为什么我不能读取选择集的参数