08 Januari 2009

Pertama-tama anda bikin file baru auto cad, lalu
tools -> macro -> vbamanager
di tampilan vba manager pilih
new -> visual basic editor
di visual basic editor, anda pilih
insert -> userform
di user form anda buat commandbutton lalu pilih viewcode untuk commandbutton on click atau langsung aja klik 2 kali di command button - nya. Lalu copy source program di bawah ini, lalu di visual basic tool pilih : run -> run userform.
Dan lihat apa yang terjadi.
-------------------------------------------
'contoh buat garis
Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
‘ membuat garis
startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
endPoint(0) = 4#: endPoint(1) = 4#: endPoint(2) = 0#
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
ZoomExtents
End
'terimakasih

Tidak ada komentar:

Posting Komentar