{"id":2570,"date":"2013-07-08T12:00:05","date_gmt":"2013-07-08T05:00:05","guid":{"rendered":"http:\/\/solidworks.arismadata.com\/blog\/?p=2570"},"modified":"2018-07-30T13:58:50","modified_gmt":"2018-07-30T06:58:50","slug":"cara-menggunakan-kode-vba-dengan-solidworks","status":"publish","type":"post","link":"https:\/\/arismadata.com\/solidworks\/blog\/2013\/07\/cara-menggunakan-kode-vba-dengan-solidworks\/","title":{"rendered":"Cara Menggunakan Kode VBA dengan SolidWorks"},"content":{"rendered":"

Cara tercepat dan termudah untuk memulai pemrograman dengan SolidWorks API<\/a><\/strong> untuk merekam SolidWorks makro, yang berisi panggilan SolidWorks API yang sesuai dengan tindakan yang dilakukan dalam antarmuka pengguna. Anda dapat memodifikasi makro di Microsoft Visual Basic for Applications (VBA) atau Microsoft Visual Studio Tools for Applications (VSTA) sesuai dengan kebutuhan tempat kerja Anda.<\/p>\n

Microsoft VBA adalah sebuah toolset berbasis Microsoft Visual Basic for Applications (VBA) dan tertanam dalam perangkat lunak SolidWorks. Microsoft VBA memungkinkan Anda merekam, menjalankan, dan mengedit Microsoft VBA macro dalam perangkat lunak SolidWorks. Macro direkam akan disimpan sebagai file. Swp.<\/p>\n

Jika Anda menemukan macro online, kadang-kadang orang akan mempublikasikan kode sumber daripada men-download sebuah file, Dalam solidworks tutorial<\/a><\/strong> kali ini akan menunjukkan cara untuk mengambil kode tersebut, membuat tombol makro dan bahkan menetapkan hotkey untuk itu, so.. mari kita simak beberapa contoh kode dibawah ini.<\/p>\n

Pertama mari kita mulai dengan beberapa contoh kode:<\/strong><\/p>\n

Sub main()
\nDim swApp As SldWorks.SldWorks
\nDim swModel As SldWorks.ModelDoc2
\nDim swExportPDFData As SldWorks.ExportPdfData
\nDim strFilename As String<\/p>\n

Set swApp = Application.SldWorks
\nSet swModel = swApp.ActiveDoc<\/p>\n

‘Save
\nswModel.Save3 0, 0, 0<\/p>\n

‘Export to PDF if it is a drawing
\nIf swModel.GetType = swDocDRAWING Then
\nstrFilename = swModel.GetPathName
\nstrFilename = Left(strFilename, Len(strFilename) \u2013 6) & \u201cpdf\u201d
\nSet swExportPDFData = swApp.GetExportFileData(1)
\nswModel.Extension.SaveAs strFilename, 0, 0, swExportPDFData, 0, 0
\nEnd If<\/p>\n

End Sub<\/p>\n

kita akan mengganti fungsi save default sehingga jika menyimpan gambar juga akan mem-publish file PDF dari gambar itu (menggunakan system settings). Untuk melakukan hal ini klik Tools, Macro, New… Tombol ini akan menampilkan dialog save. Jika Anda ingin berbagi makro ini dengan orang lain, maka simpanlah di jaringan. Tapi berhati-hatilah, jika mereka memiliki versi SolidWorks yang berbeda, atau jika mereka memiliki direktori instalasi yang berbeda, mereka mungkin mengalami kesalahan referensi atau error. Setelah Anda memilih lokasi dan menyimpannya, studio visual untuk aplikasi akan terbuka. Jika Anda menjalankan versi sebelumnya dari SolidWorks 2013 pada Windows 7, lihatlah pada taskbar, karena itu tidak akan muncul di depan secara otomatis.<\/p>\n

Ini akan memiliki modul terbuka dengan kode berikut:<\/p>\n

Dim swApp As Object
\nSub main()<\/p>\n

Set swApp = Application.SldWorks
\nEnd Sub<\/p>\n

Anda dapat mengganti semua itu dengan kode yang ditunjukkan di atas.<\/p>\n

Klik Save.<\/p>\n

Selamat! Anda baru saja membuat sebuah makro yang dapat digunakan dari kode sumber. Sekarang untuk menggunakannya secara efisien Anda perlu untuk menyesuaikan SolidWorks<\/a><\/strong> anda. Langkah pertama adalah membuat tombol makro kustom. Untuk membuat tombol makro kustom, Anda harus memiliki dokumen yang terbuka. Klik New, Drawing (menggunakan template yang tersedia). Sekarang klik kanan pada title bar, pilih ustomize, commands, macro, drag ikon untuk tombol makro ke lokasi yang cocok. Selain Makro: klik tombol browse, pilih makro. Jika ada lebih dari satu metode pilih metode yang sesuai dari list. Klik OK.<\/p>\n

Tombol makro baru anda sekarang dapat digunakan, Tetapi bagaimana jika Anda ingin melangkah lebih jauh dan mengganti keyboard shortcut? Pilih tab Keyboard, scroll semua jalan ke bawah, klik pada shortcut cell untuk tombol makro dan tekan kombinasi tombol yang ingin Anda gunakan (seperti Ctrl + S) dan klik Yes untuk menggantinya, kemudian klik OK. Sekarang Ctrl+S akan menyimpan PDF jika gambar terbuka.<\/p>\n

\"\"<\/a><\/p>\n

 <\/p>\n

PT Arisma Data Setia, Mengucapkan Selamat Menunaikan Ibadah Puasa 1434 H bagi yang menjalankannya..<\/p>\n

\"\"<\/a><\/p>\n

  <\/p>\n","protected":false},"excerpt":{"rendered":"

Cara tercepat dan termudah untuk memulai pemrograman dengan SolidWorks API untuk merekam SolidWorks makro, yang berisi panggilan SolidWorks API yang sesuai dengan tindakan yang dilakukan dalam antarmuka pengguna. Anda dapat memodifikasi makro di Microsoft Visual Basic for Applications (VBA) atau Microsoft Visual Studio Tools for Applications (VSTA) sesuai dengan kebutuhan tempat kerja Anda. Microsoft VBA […]<\/p>\n","protected":false},"author":14,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,23,11],"tags":[363,361,362,365,335,5,67,558,364],"class_list":["post-2570","post","type-post","status-publish","format-standard","hentry","category-artikel-solidworks","category-solidworks-2","category-tutorial-solidworks","tag-api","tag-kode-vba","tag-macro","tag-microsoft-vba","tag-solidwork","tag-solidworks","tag-solidworks-tutorial","tag-tutorial-solidworks","tag-vsta"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/posts\/2570","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/users\/14"}],"replies":[{"embeddable":true,"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/comments?post=2570"}],"version-history":[{"count":0,"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/posts\/2570\/revisions"}],"wp:attachment":[{"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/media?parent=2570"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/categories?post=2570"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/arismadata.com\/solidworks\/blog\/wp-json\/wp\/v2\/tags?post=2570"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}