RE: ]] XL-mania [[ connect excel dan autocad

 

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_

__________ Information from ESET NOD32 Antivirus, version of virus signature database 4906 (20100301) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 107

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| huaaaa... momods sakit... *sob*                                   | 
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___