自参照问题怎么解决，谢谢

铁塔设计

Sub ss()

Dim DCC As AcadBlockReference
Dim VR(0 To 2) As Double
VR(0) = 0
VR(1) = 0
VR(2) = 0
For i = 1 To 4
Set DCC = ThisDrawing.ModelSpace.InsertBlock(VR, "D:\" & i & ".dwg", 1#, 1#, 1#, 0)

Next i
End Sub