Autocad VBA初級教程 (第一課:入門)

    第一課：入門

1.為什么要寫這個教程
市面上ACAD VBA的書不多，它的幫助是英文版的，很多人看不懂。其實我轉(zhuǎn)行已經(jīng)好幾年了，而且手藝也慢慢生疏了，寫個教程對自己來說也是一次復習。

2.什么是Autocad VBA？
VBA是Visual Basic for Applications的英文縮寫，它是一個功能強大的開發(fā)工具，學好VBA可以成倍甚至成百、成萬倍提高工作效率，在工作中，有很多任務僅用ACAD命令不可能完成的，只要學好VBA就可以做到，相信到時候您一定會得到同事的佩服、老板的器重。

3、VBA有多難？
相信大家都知道Basic是的含義。應該承認，我的水平還不高，錯誤之處在所難免，如果大家發(fā)現(xiàn)錯誤一定要提出批評，以便及時更正。

4、怎樣學習VBA？
介紹大家一個學習公式：信心+恒心=開心。仔細閱讀本教程，完成例題，在學習的過程中一定要多思考，多想一些是什么、為什么。本教程將陸續(xù)發(fā)布在CAD世界論壇上，您不需要付費就可以學習。本作者在此鄭重承諾：關(guān)于本教程中有任何疑問，可以跟貼提問，只要有時間，本人一定會耐心解答。我不會發(fā)到任何人的郵箱中，您自己在論壇上找就可以了，請不要再向我索要這份教程。

5、現(xiàn)在我們開始編寫第一個程序：畫一百個同心圓
第一步：復制下面的紅色代碼
第二步：在模型空間按快捷鍵Alt+F8，出現(xiàn)宏窗口
第三步：在宏名稱中填寫C100，點“創(chuàng)建”、“確定”
第四步：在Sub c100()和End Sub之間粘貼代碼
第五步：回到模型空間，再次按Alt+F8，點擊“運行”

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 '開始循環(huán)
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '畫圓
Next i
End Sub

也許您還看不懂上面的代碼，這沒有關(guān)系，只要能把同心畫出來就可以了，祝您成功。