为什么这个程序在2002中不能正常运行呢??

yucheng413

Public Sub aaawe()
Dim obj As AcadBlockReference
Dim str As String
Dim point(2) As Double
point(0) = 100: point(1) = 100: point(2) = 0
str = "c:\wjct\tl\dxs.dwg"
Set obj = ThisDrawing.ModelSpace.InsertBlock(point, str, 1#, 1#, 1#, 1#)
End Sub
总是提示我插入块作用于Iacadmodelspace*对象错误

yulijin608

Set obj = ThisDrawing.ModelSpace.InsertBlock(point, str, 1#, 1#, 1#, 1)

yucheng413

谢过2楼的兄弟