———CAD繪圖教程之浩辰CAD編程初級(jí)教程我們都知道CAD軟件是可以進(jìn)行CAD圖形繪制的工具，其實(shí)關(guān)于CAD軟件我們也有一些簡(jiǎn)潔的編程，今日我們就給大家介紹一下CAD編程初級(jí)教程中的CBA編程。

市面上CADVBA的書不多，許多人看不懂。其實(shí)我轉(zhuǎn)行已經(jīng)好幾年了，而且手藝也漸漸生疏了，寫個(gè)教程對(duì)自己來說也是一次復(fù)習(xí)。

VBA編程是什么？

VBA是VisualBasicforApplications的英文縮寫，它是一個(gè)功能強(qiáng)大的開發(fā)工具，學(xué)好VBA可以成倍甚至成百、成萬倍提高工作效率，在工作中，有許多任務(wù)僅用GCAD命令不行能完成的，只要學(xué)好VBA就可以做到，信任到時(shí)候您肯定會(huì)得到同事的佩服、老板的器重。

VBA編程難嗎？

信任大家都知道Basic是的含義。應(yīng)當(dāng)承認(rèn)，我的水平還不高，錯(cuò)誤之處在所難免，假如大家發(fā)覺錯(cuò)誤肯定要提出批判，以便準(zhǔn)時(shí)更正。

VBA編程如何來學(xué)習(xí)呢？

介紹大家一個(gè)學(xué)習(xí)公式：信念+恒心=快樂。認(rèn)真閱讀本教程，完成例題，在學(xué)習(xí)的過程中肯定要多思索，多想一些是什么、為什么。本教程將間續(xù)發(fā)布在CAD世界論壇上，您不需要付費(fèi)就可以學(xué)習(xí)。本在此嚴(yán)肅承諾：關(guān)于本教程中有任何疑問，可以跟貼提問，只要有時(shí)間，本人肯定會(huì)急躁解答。我不會(huì)發(fā)到任何人的郵箱中，您自己在論壇上找就可以了，請(qǐng)不要再向我索要這份教程。

VBA編程教學(xué)實(shí)例

現(xiàn)在我們開頭編寫第一個(gè)程序：畫一百個(gè)同心圓

第一步：復(fù)制下面的紅色代碼

其次步：在模型空間按快捷鍵Alt+F8，消失宏窗口

第三步：在宏名稱中填寫C100，點(diǎn)“創(chuàng)建”、“確定”

第四步：在Subc100()和EndSub之間粘貼代碼

第五步：回到模型空間，再次按Alt+F8，點(diǎn)擊“運(yùn)行”

Subc100()

Dimcc(0To2)AsDouble'聲明坐標(biāo)變量

cc(0)=1000'定義圓心座標(biāo)

cc(1)=1000

cc(2)=0

Fori=1To1000Step10'開頭循環(huán)

Call

ThisDrawing.ModelSpace.AddCircle(cc,i*10)'畫圓

Nexti

EndSub

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

以上內(nèi)容，就是我們今日來給大家介紹的關(guān)于CAD編程初級(jí)教程中的VBA編程了，上面不僅介紹了什么事VBA編程，以及VBA編程的相關(guān)內(nèi)容，還用實(shí)例給大家做了說明哦！

我們都知道CAD軟件是可以進(jìn)行CAD圖形繪制的工具，其實(shí)關(guān)于CAD軟件我們也有一些簡(jiǎn)潔的編程，今日我們就給大家介紹一下CAD編程初級(jí)教程中的CBA編程。

市面上CADVBA的書不多，許多人看不懂。其實(shí)我轉(zhuǎn)行已經(jīng)好幾年了，而且手藝也漸漸生疏了，寫個(gè)教程對(duì)自己來說也是一次復(fù)習(xí)。

VBA編程是什么？

VBA是VisualBasicforApplications的英文縮寫，它是一個(gè)功能強(qiáng)大的開發(fā)工具，學(xué)好VBA可以成倍甚至成百、成萬倍提高工作效率，在工作中，有許多任務(wù)僅用GCAD命令不行能完成的，只要學(xué)好VBA就可以做到，信任到時(shí)候您肯定會(huì)得到同事的佩服、老板的器重。

VBA編程難嗎？

信任大家都知道Basic是的含義。應(yīng)當(dāng)承認(rèn)，我的水平還不高，錯(cuò)誤之處在所難免，假如大家發(fā)覺錯(cuò)誤肯定要提出批判，以便準(zhǔn)時(shí)更正。

VBA編程如何來學(xué)習(xí)呢？

介紹大家一個(gè)學(xué)習(xí)公式：信念+恒心=快樂。認(rèn)真閱讀本教程，完成例題，在學(xué)習(xí)的過程中肯定要多思索，多想一些是什么、為什么。本教程將間續(xù)發(fā)布在CAD世界論壇上，您不需要付費(fèi)就可以學(xué)習(xí)。本在此嚴(yán)肅承諾：關(guān)于本教程中有任何疑問，可以跟貼提問，只要有時(shí)間，本人肯定會(huì)急躁解答。我不會(huì)發(fā)到任何人的郵箱中，您自己在論壇上找就可以了，請(qǐng)不要再向我索要這份教程。

VBA編程教學(xué)實(shí)例

現(xiàn)在我們開頭編寫第一個(gè)程序：畫一百個(gè)同心圓

第一步：復(fù)制下面的紅色代碼

其次步：在模型空間按快捷鍵Alt+F8，消失宏窗口

第三步：在宏名稱中填寫C100，點(diǎn)“創(chuàng)建”、“確定”

第四步：在Subc100()和EndSub之間粘貼代碼

第五步：回到模型空間，再次按Alt+F8，點(diǎn)擊“運(yùn)行”

Subc100()

Dimcc(0To2)AsDouble'聲明坐標(biāo)變量

cc(0)=1000'定義圓心座標(biāo)

cc(1)=1000

cc(2)=0

Fori=1To1000Step10'開頭循環(huán)

Call

ThisDrawing.ModelSpace.AddCircle(cc,i*10)'畫圓

Nexti

EndSub

或許您還看不懂上面的代碼，這沒有關(guān)