求助AcadObject与Object的使用
假如 Dim x(1 To 9) As Object 改成 Dim x(1 To 9) As AcadObject 就会出错，在x(j).Delete这一步VBA直接就崩溃了。这是什么原因？Sub 主程序()
Dim i&, j&, d As Double
Dim pt1(2) As Double, pt2(2) As Double, pt3(2) As Double
Dim x(1 To 9) As Object
pt1(0) = 0: pt1(1) = 0
'p8，p9竖向对称线
pt2(0) = pt1(0) + 200
pt2(1) = pt1(1) - 100
pt3(0) = pt2(0)
pt3(1) = pt1(1) + 2000
d = 1.2 '板厚度
Call 调用(pt1, x, i, d)
For j = 1 To i
x(j).Mirror pt2, pt3
x(j).Delete
Next j
End SubSub 调用(ByVal pt1, ByRef x, ByRef i, ByVal d)
Dim y, g(1 To 16) As Double
g(1) = pt1(0) + 50: g(2) = pt1(1) - 15
g(3) = g(1): g(4) = pt1(1)
g(5) = g(3) - 50: g(6) = g(4)
g(7) = g(5): g(8) = g(4) - 116
g(9) = g(5) + 30: g(10) = g(8)
g(11) = g(9): g(12) = g(10) - 36
g(13) = g(11) + 30: g(14) = g(12)
g(15) = g(13): g(16) = g(14) + 15
i = i + 1
Set x(i) = ThisDrawing.ModelSpace.AddLightWeightPolyline(g)
y = x(i).Offset(-d)
i = i + 1
Set x(i) = y(0)
Erase y
End Sub
看不出有什么问题，x最好定义成acadentity
改成AcadEntity后运行直接崩了
是在主程序调用完“调用”程序后，运行到x(j).Delete这一步，删除偏移对象时崩溃。
我在想是不是这样的原因：
调用程序中定义的x和y是vaity类型，在执行偏移时y变成数组，里面存储的图形都是object类型，传回给主程序x数组是acadEntity类型，object类型里存放的信息是大于acadEntity的，在执行x(j).Delete时删除的数据不彻底导致VBA崩溃。
页:
[1]