询问一个关于windows选择集的问题
Sub test()
Dim p1(0 To 2), p2(0 To 2), p3(0 To 2), p4(0 To 2) As Double
Dim ft(2) As Integer, fd(2)
p1(0) = 169.9: p1(1) = 14.8: p1(2) = 0
p2(0) = 244.7: p2(1) = 5.3: p2(2) = 0
p3(0) = 25.2: p3(1) = 14.8: p3(2) = 0
p4(0) = 99.7: p4(1) = 5.3: p4(1) = 0
ft(0) = 60
fd(0) = 0
ft(1) = 67
fd(1) = 1
Set myset1 = ThisDrawing.SelectionSets.Item("selet")
myset1.Select acSelectionSetWindow, p3, p4, ft, fd
myset1.Delete
End Sub
这代码哪里有问题吗？为什么一直提示point1的参数有问题？
p1 p2 p3都定义为variant数组了，只有p4定义对了
页:
[1]