我对VBA可以说一点都不懂，以前对VL比较有兴趣，现在也想学学VBA，这不想弄个简单的程序都写不下去了，大家指点一下，先看看程序：
Sub Example_TextString()
' This example creates a text object in model space.
' It then returns the text string for that object.
Dim textObj As AcadText
Dim text As String
Dim basePnt As Variant
' Define the text object
ThisDrawing.Utility.GetEntity textObj, basePnt, "Select an object"
text = ThisDrawing.Utility.GetString("Enter new string")
......
置顶卡
