[求助]：请大家帮我看看我的错在哪儿？

gold digger

首先申明我是菜鸟。第一次编程还是照作书本抄的但是运行是却出现了错误，高手们能给我指出错误吗？不胜感谢！
Public Sub FirstEg()
ThisDrawing.Application.Documents.Add
Dim textpoint(0 To 2) As Double
Dim texthight As Double
Dim textstr As String
Dim textobject As AcadText
textpoint(0) = 20
textpoint(1) = 40
textpoint(2) = 0
TextHeight = 10
textstr = "我想成为VBA高手"
Set textobject = ThisDrawing.ModelSpace.AddText_
(textstr,textpoint,textheight)
ThisDrawing.SaveAs ("firstvba.dwg")
End Sub

一生有你

程序中有一处拼写错误，把textheight写成texthight,还有就是addtext函数和内容应放在同一行，这样就可以了
Public Sub FirstEg()
ThisDrawing.Application.Documents.Add
Dim textpoint(0 To 2) As Double
Dim textheight As Double
Dim textstr As String
Dim textobject As AcadText
textpoint(0) = 20
textpoint(1) = 40
textpoint(2) = 0
textheight = 10
textstr = "我想成为VBA高手"
Set textobject = ThisDrawing.ModelSpace.AddText(textstr, textpoint, textheight)
ThisDrawing.SaveAs ("firstvba.dwg")
End Sub

自由的鱼

以后再出现错误就直接把错误帖上来，这样分析起来就更快~

chengdu8115

太好了，老师多多！