三、 從一個簡單的例子開始: 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      '設置插入點的 x 坐標
insPoint(1) = 4      '設置插入點的 y 坐標
insPoint(2) = 0      '設置插入點的 z 坐標

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

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

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

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

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

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

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