|
发表于 2004-4-28 11:39:00
|
显示全部楼层
这下我服了:))))
这是我原来错的那个 哈
Public Sub CommandButton1_Click()
Dim vlinecount As Integer
For i = 0 To myss.count - 1 `myss 为所有直线的那个选择集
If lineco(i, 0) = lineco(i, 2) Then
vlinecount = vlinecount + 1
End If
Next
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("123")
ReDim ssobjs(0 To vlinecount -1) As AcadLine
i = 0
For Each llll In myss
If lineco(i, 0) = lineco(i, 2) Then
Set ssobjs(i) = llll `这里有问题
End If
i = i + 1
Next
ssetObj.AddItems ssobjs
ssetObj.Delete
myss.Delete
End Sub |
|