求助AcadObject与Object的使用

qwh923820

假如 Dim x(1 To 9) As Object 改成 Dim x(1 To 9) As AcadObject 就会出错，在x(j).Delete这一步VBA直接就崩溃了。这是什么原因？

1. Sub 主程序()
   
2. Dim i&, j&, d As Double
   
3. Dim pt1(2) As Double, pt2(2) As Double, pt3(2) As Double
   
4. Dim x(1 To 9) As Object
   
5. 
   
6. pt1(0) = 0: pt1(1) = 0
   
7. 
   
8. 'p8，p9竖向对称线
   
9. pt2(0) = pt1(0) + 200
   
10. pt2(1) = pt1(1) - 100
    
11. pt3(0) = pt2(0)
    
12. pt3(1) = pt1(1) + 2000
    
13. 
    
14. d = 1.2    '板厚度
    
15.    
    
16. Call 调用(pt1, x, i, d)
    
17. 
    
18. For j = 1 To i
    
19.     x(j).Mirror pt2, pt3
    
20.     x(j).Delete
    
21. Next j
    
22. 
    
23. End Sub
    
24. 
    
25. 
    
26. 
    
27. Sub 调用(ByVal pt1, ByRef x, ByRef i, ByVal d)
    
28. Dim y, g(1 To 16) As Double
    
29. 
    
30. g(1) = pt1(0) + 50: g(2) = pt1(1) - 15
    
31. g(3) = g(1): g(4) = pt1(1)
    
32. g(5) = g(3) - 50: g(6) = g(4)
    
33. g(7) = g(5): g(8) = g(4) - 116
    
34. g(9) = g(5) + 30: g(10) = g(8)
    
35. g(11) = g(9): g(12) = g(10) - 36
    
36. g(13) = g(11) + 30: g(14) = g(12)
    
37. g(15) = g(13): g(16) = g(14) + 15
    
38. i = i + 1
    
39. Set x(i) = ThisDrawing.ModelSpace.AddLightWeightPolyline(g)
    
40. y = x(i).Offset(-d)
    
41. i = i + 1
    
42. Set x(i) = y(0)
    
43. Erase y
    
44. End Sub

Sub 主程序()<br /> Dim i&, j&, d As Double<br /> Dim pt1(2) As Double, pt2(2) As Double, pt3(2) As Double<br /> Dim x(1 To 9) As Object<br /> <br /> pt1(0) = 0: pt1(1) = 0<br /> <br /> 'p8，p9竖向对称线<br /> pt2(0) = pt1(0) + 200<br /> pt2(1) = pt1(1) - 100<br /> pt3(0) = pt2(0)<br /> pt3(1) = pt1(1) + 2000<br /> <br /> d = 1.2    '板厚度<br />     <br /> Call 调用(pt1, x, i, d)<br /> <br /> For j = 1 To i<br />     x(j).Mirror pt2, pt3<br />     x(j).Delete<br /> Next j<br /> <br /> End Sub<br /> <br /> <br /> <br /> Sub 调用(ByVal pt1, ByRef x, ByRef i, ByVal d)<br /> Dim y, g(1 To 16) As Double<br /> <br /> g(1) = pt1(0) + 50: g(2) = pt1(1) - 15<br /> g(3) = g(1): g(4) = pt1(1)<br /> g(5) = g(3) - 50: g(6) = g(4)<br /> g(7) = g(5): g(8) = g(4) - 116<br /> g(9) = g(5) + 30: g(10) = g(8)<br /> g(11) = g(9): g(12) = g(10) - 36<br /> g(13) = g(11) + 30: g(14) = g(12)<br /> g(15) = g(13): g(16) = g(14) + 15<br /> i = i + 1<br /> Set x(i) = ThisDrawing.ModelSpace.AddLightWeightPolyline(g)<br /> y = x(i).Offset(-d)<br /> i = i + 1<br /> Set x(i) = y(0)<br /> Erase y<br /> End Sub

zzyong00

看不出有什么问题，x最好定义成acadentity

qwh923820

zzyong00 发表于 2018-7-19 13:35
看不出有什么问题，x最好定义成acadentity

改成AcadEntity后运行直接崩了

qwh923820

zzyong00 发表于 2018-7-19 13:35
看不出有什么问题，x最好定义成acadentity

是在主程序调用完“调用”程序后，运行到x(j).Delete这一步，删除偏移对象时崩溃。

我在想是不是这样的原因：
调用程序中定义的x和y是vaity类型，在执行偏移时y变成数组，里面存储的图形都是object类型，传回给主程序x数组是acadEntity类型，object类型里存放的信息是大于acadEntity的，在执行x(j).Delete时删除的数据不彻底导致VBA崩溃。