询问一个关于windows选择集的问题

2017forverd

2. Sub test()
   
3. Dim p1(0 To 2), p2(0 To 2), p3(0 To 2), p4(0 To 2) As Double
   
4. Dim ft(2) As Integer, fd(2)
   
5. 
   
6. p1(0) = 169.9: p1(1) = 14.8: p1(2) = 0
   
7. p2(0) = 244.7: p2(1) = 5.3: p2(2) = 0
   
8. p3(0) = 25.2: p3(1) = 14.8: p3(2) = 0
   
9. p4(0) = 99.7: p4(1) = 5.3: p4(1) = 0
   
10. 
    
11. ft(0) = 60
    
12. fd(0) = 0
    
13. ft(1) = 67
    
14. fd(1) = 1
    
15. 
    
16. Set myset1 = ThisDrawing.SelectionSets.Item("selet")
    
17. myset1.Select acSelectionSetWindow, p3, p4, ft, fd
    
18. myset1.Delete
    
19. 
    
20. End Sub
    

Sub test()<br /> Dim p1(0 To 2), p2(0 To 2), p3(0 To 2), p4(0 To 2) As Double<br /> Dim ft(2) As Integer, fd(2)<br /> <br /> p1(0) = 169.9: p1(1) = 14.8: p1(2) = 0<br /> p2(0) = 244.7: p2(1) = 5.3: p2(2) = 0<br /> p3(0) = 25.2: p3(1) = 14.8: p3(2) = 0<br /> p4(0) = 99.7: p4(1) = 5.3: p4(1) = 0<br /> <br /> ft(0) = 60<br /> fd(0) = 0<br /> ft(1) = 67<br /> fd(1) = 1<br /> <br /> Set myset1 = ThisDrawing.SelectionSets.Item("selet")<br /> myset1.Select acSelectionSetWindow, p3, p4, ft, fd<br /> myset1.Delete<br /> <br /> End Sub<br />

这代码哪里有问题吗？为什么一直提示point1的参数有问题？

zzyong00

p1 p2 p3都定义为variant数组了，只有p4定义对了