哪位大佬能告诉我，为什么在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