社区 › VBA/VB/ActiveX/API 编程技术 › 自参照问题怎么解决，谢谢

铁塔设计 发表于 2014-11-20 23:44:54

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

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

查看完整版本: 自参照问题怎么解决，谢谢