哪位大佬能告诉我，为什么在autocad中运行，没有反应
Public Sub createblockTK()
Dim objblock As AcadBlock
Dim ptbase(2) As Double
Dim pt1(11) As Double
Dim objlwp As AcadLWPolyline
pt1(0) = 0: pt1(1) = 0: pt1(2) = 0:
pt1(3) = -1229: pt1(4) = 0: pt1(5) = 0:
pt1(6) = -1229: pt1(7) = 881: pt1(8) = 0:
pt1(9) = 0: pt1(10) = 881: pt1(11) = 0:
ptbase(0) = 0: ptbase(1) = 0: ptbase(2) = 0
Set objblock = ThisDrawing.Blocks.Add(ptbase, "图框")
objblock.AddLightWeightPolyline pt1
End Sub