AutoCADVBA學習資源
學習AutoCADVBA的資源在國內來說大多都是全英為主，因此在學習過程中若英文能力不足會有一到跨不過的牆，但大抵來說，只要掌握VBA的程式撰寫過程以及掌握物件使用就能在AutoCADVBA中遊刃有餘囉~
筆者目前有接觸過且比較常見的物件有以下:
例如：
在模型空間中(ModelSpace)的(0,0,0)~(10,10,0)中畫個直線(line)
Sub test()
Dim lineobj as aAcadLine '必須先宣告lineobj是一個"線"
dim spt(2) as double
dim ept(2) as double
spt(0)=0 'X
spt(1)=0 'Y
spt(2)=0 'Z
ept(0)=10 'X
ept(1)=10 'Y
ept(2)=0 'Z
Set lineobj=thisdrawing.modelspace.addline(spt,ept) '在(0,0,0)~(10,10,0)畫條直線
End Sub
spt只是我設定的一個代號，要取什麼高興就好，我只是用Start Point 來代表我的起點。
同理，ept就是End Point。
thisdrawing 代表這個圖面
modelspace 代表模型空間
addline(point1,pointt2) 為新增線段的方法
沒有錯，VBA就是如此簡單，其實只要懂他的語法你就能好好愛上它了~!!
學習這些物件的資源在哪裡?
1.在google中打入關鍵字 "Autocadvba 你要幹嘛 " 就會出現一些的範例給你參考著用，有時候可能要打成英文的，就會有很多Autodesk knowledge的範例跳出來給你看，因此一點簡單的英文也是必須的!!!
2.在VBA 編輯器中的物件類別(F2)或者是點圖中的那個圖打入關鍵字modelspace(模型空間)就會出現很多跟他有關的指令，慢慢挑，慢慢選，挑一個喜歡的去用
筆者目前有接觸過且比較常見的物件有以下:
- line
- polyline
- circle
- arc
- text
- mtext
- leader
- mleader
- hatch
例如：
在模型空間中(ModelSpace)的(0,0,0)~(10,10,0)中畫個直線(line)
Sub test()
Dim lineobj as aAcadLine '必須先宣告lineobj是一個"線"
dim spt(2) as double
dim ept(2) as double
spt(0)=0 'X
spt(1)=0 'Y
spt(2)=0 'Z
ept(0)=10 'X
ept(1)=10 'Y
ept(2)=0 'Z
Set lineobj=thisdrawing.modelspace.addline(spt,ept) '在(0,0,0)~(10,10,0)畫條直線
End Sub
spt只是我設定的一個代號，要取什麼高興就好，我只是用Start Point 來代表我的起點。
同理，ept就是End Point。
thisdrawing 代表這個圖面
modelspace 代表模型空間
addline(point1,pointt2) 為新增線段的方法
沒有錯，VBA就是如此簡單，其實只要懂他的語法你就能好好愛上它了~!!
學習這些物件的資源在哪裡?
1.在google中打入關鍵字 "Autocadvba 你要幹嘛 " 就會出現一些的範例給你參考著用，有時候可能要打成英文的，就會有很多Autodesk knowledge的範例跳出來給你看，因此一點簡單的英文也是必須的!!!
2.在VBA 編輯器中的物件類別(F2)或者是點圖中的那個圖打入關鍵字modelspace(模型空間)就會出現很多跟他有關的指令，慢慢挑，慢慢選，挑一個喜歡的去用
留言
張貼留言