Share yang pernah aku coba buat ya : 1. Buka Excel, kemudian Alt+F11 untuk mengaktifkan editor visual basic (macro)
2. Di Editor visual basic buat reference ke object autocad. Dari menu
tool, pilih references ke library autocad sesuai dengan versi autocad Anda.
Contoh jika pakai autocad 2009
3. Setelah referensi dipilih, dalam macro buat fungsi untuk menghubungkan
Excel ke Autocad
Public Function BisaConnectAutoCAD(objAcad As AcadApplication) As Boolean
On Error GoTo Err_Control
Set objAcad = GetObject(, "AutoCAD.Application")
BisaConnectAutoCAD = True
Exit Function
Err_Control:
MsgBox Err.Description
Err.Clear
BisaConnectAutoCAD = False
Exit Function
End Function
Sub GambarTitikKeAutoCADDariKoordinatDiExcel()
Dim appAcad As AcadApplication
If BisaConnectAutoCAD(appAcad) Then
Dim msSpace As AcadModelSpace, acadDoc As AcadDocument, acadTitik As
AcadPoint
Dim KoordinatTitik(0 To 2) As Double
'contoh menggambar titik di autocad dari input koordinat x,y,z yang
ditulis di
'active sheet di cells [A1],[B1],[C1]
KoordinatTitik(0) = CDbl([A1].Value)
KoordinatTitik(1) = CDbl([B1].Value)
KoordinatTitik(2) = CDbl([C1].Value)
Set msSpace = acadDoc.ModelSpace 'object titik akan digambar di
model space
Set acadTitik = msSpace.AddPoint(KoordinatTitik) 'menggambar titik
dengan koordinat di atas
appAcad.ZoomAll 'zoom
Set appAcad = Nothing
End If
End Sub
Catatan: Macro tersebut dijalankan saat program Excel dan Autocad dalam
keadaan aktif (terbuka)
_selamat mencona_
<<image001.jpg>>
