三、 從一個簡單的例子開始: HELLO WORLD
Public Sub HelloWorld()
Dim insPoint(0 To 2) As Double '聲明插入點
Dim textHeight As Double       '聲明文字高度
Dim textStr As String          '聲明字符串
Dim textObj As AcadText        '聲明文字對象
insPoint(0) = 2      '設(shè)置插入點的 x 坐標
insPoint(1) = 4      '設(shè)置插入點的 y 坐標
insPoint(2) = 0      '設(shè)置插入點的 z 坐標

textHeight = 1                  '強文字高度設(shè)置為 1.0
textStr = "Hello World!"        '設(shè)置字符串

   '創(chuàng)建 Text 對象
Set textObj = ThisDrawing.ModelSpace.AddText _
                           (textStr, insPoint, textHeight)

'根據(jù)文字的邊界框縮放視圖
Dim ptLeftBottom As Variant
Dim ptRightUp As Variant
textObj.GetBoundingBox ptLeftBottom, ptRightUp
ZoomWindow ptLeftBottom, ptRightUp
End Sub

     這是幫助里的一個例子，我略作修改。這段代碼在當前文件的模型空間創(chuàng)建文字，并按文字的邊界框縮放視圖。本例在模型空間創(chuàng)建文字對象，把ThisDrawing.ModelSpace.AddText 改為ThisDrawing.PaperSpace.AddText , 可以在激活的圖紙空間中創(chuàng)建文字；而靈活的做法是改為：ThisDrawing.ActiveSpace.AddText，在當前激活的空間中創(chuàng)建文字，一般建議在當前激活空間中創(chuàng)建對象，把選擇權(quán)給用戶。Addxxx類的方法用于模型空間MSPACE、圖紙空間paperspace、塊block。
   VBA中的點用double型數(shù)組表示，需要點參數(shù)的方法傳入數(shù)組名就可以了。從VBA返回的點是variant變量，可以直接當數(shù)組應(yīng)用。

   把代碼粘貼到VBA工程的公共模塊，就可以從工具--宏-選擇運行它。 只有是公共模塊中的無參數(shù)的公共過程sub才能從宏菜單運行，這個過程就是宏，用戶界面。

    工程開始前進行模塊規(guī)劃重要，下面是一些建議：
1、每個功能比如自動中心線粗糙度等各設(shè)一個實現(xiàn)模塊，模塊設(shè)置為私有；設(shè)置一個公共模塊作為界面，界面過程宏調(diào)用實現(xiàn)模塊中的過程）通用的過程或函數(shù)放入私有模塊。
2、盡量少用全局變量，盡可能縮小變量的作用范圍。

如果初學編程，學會調(diào)試程序，這個很重要。可以用這個簡單的例子學習怎么調(diào)試程序。在VBA集成環(huán)境中可設(shè)置變量表達式監(jiān)視、設(shè)置斷點、單步運行、運行至光標處等。表達式監(jiān)視窗口可以顯示表達式的類型、值等，結(jié)合斷點，可以順藤摸瓜找出錯誤。除了邏輯錯誤，由于VBA的類型檢查不嚴格，如果把某個方法的返回值賦值給錯誤類型的接收者、引用不存在的屬性等，都可能出現(xiàn)可以運行，但結(jié)果不對。