第二課  編程基礎

本課主要任務是對上一課的例程進行詳細分析

下面是源碼：
Sub c100()
Dim cc(0 To 2) As Double '聲明坐標變量
cc(0) = 1000 '定義圓心座標
cc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '開始循環
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '畫圓
Next i
End Sub

先看第一行和最后一行：
Sub C100()
……
End Sub
C100是宏的名稱，也叫過程名稱，當用戶執行C100時程序將運行sub　和end sub之間的所有指令。

第二行：
Dim cc(0 To 2) As Double '聲明坐標變量
后半段“'聲明坐標變量”自動變為綠色字體，它是代碼語句的注釋，它不會影響程序運行，它的作用是告訴閱讀者程序員的想法。對于簡單的程序，一般不需要寫注釋，如果要編寫非常復雜的程序，最好要多加注釋，越詳細越好，對于程序員來說，這是一個好習慣。
電腦真正編譯執行的是這條語句：Dim cc(0 To 2) As Double
它的作用就是聲明變量。
Dim是一條語句，可以理解為計算機指令。
它的語法：Dim變量名 As 數據類型
本例中變量名為CC，而括號中的0 to 2聲明這個CC是一個數組，這個數組有三個元素：CC(0)、CC(1)、CC(2)，如果改為CC(1 to 3)，則三個元素是CC(1)、CC(2)、CC(3)，有了這個數組，就可以把坐標數值放到這個變量之中。
Double是數據類型中的一種。ACAD中一般需要定義坐標時就用這個數據類型。在ACAD中數據類型的有很多，下面兩個是比較常用的數據類型，初學者要有所理解。
Long（長整型），其范圍從 -2,147,483,648 到 2,147,483,647。
Variant  它是那些沒被顯式聲明為其他類型變量的數據類型，可以理解為一種通用的數據類型，這是最常用的。

下面三條語句
cc(0) = 1000 '定義圓心座標
cc(1) = 1000
cc(2) = 0
它們的作用是給CC變量的每一個元素賦,值其順序是X、Y、Z坐標。

For i = 1 To 1000 Step 10 '開始循環
……
Next i  '結束循環
這兩條語句的作用是循環運行指令，每循環一次，i值要增加10，當i加到 1000時，結束循環。
i也是一個變量，雖然沒有聲明i變量，程序還是認可的，VB不是C語言，每用一個變量都要聲明，不聲明就會報錯。簡單是簡單了，這樣做也有壞處，如果不小心打錯了一個字母，程序不會報錯，如果程序很長，那就會出現一些意想不到的錯誤。
step后面的數值就是每次循環時增加的數值，step后也可以用負值。
例如：For i =1000 To 1 Step -10
很多情況下，后面可以不加step 10
如：For i=1 to 100，它的作用是每循環一次i值就增加1
Next i語句必須出現在需要結束循環的位置，不然程序沒法運行。

下面看畫圓命令：
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)
Call語句的作用是調用其他過程或者方法。
ThisDrawing.ModelSpace是指當前CAD文檔的模型空間
AddCircle是畫圓方法
Addcicle方法需要兩個參數：圓心和半徑
CC就是圓心坐標，i*10就是圓的半徑，本例中，這些圓的半徑分別是10、110、210、310……

本課到此結束，下面請完成一道思考題：
1.以(4,2)為圓心，畫5個同心圓，其半徑為1-5