帮忙看下这个程序那里错了,谢谢,我是新手不太懂? Public Function helloworld() ThisDawing.Appliation.Documents.Add Dim insPoint(0 To 2) As Double Dim textheight As Double Dim textstr As String insPoint(0) = 2 insPoint(1) = 4 insPoint(2) = 0 textheirht = 1 textstr = "Helloworld" Set text0bj = ThisDrawing.ModelSpace.AddText_(text, strinspoint, textheirht) ThisDrawing.SaveAs ("hello.dwg") End Function查看更多0个回答 . 4人已关注