Bagaimana membaca Excel dalam makro SolidWorks

Pengarang: Sara Rhodes
Tarikh Penciptaan: 12 Februari 2021
Tarikh Kemas Kini: 4 Januari 2025
Anonim
Lightning-fast way to manage SOLIDWORKS custom properties from Excel (x64)
Video.: Lightning-fast way to manage SOLIDWORKS custom properties from Excel (x64)

Kandungan

Bekerja dengan lebih cekap di SolidWorks dengan menggunakan keupayaan Excel untuk menyimpan pelbagai nilai dan menentukan hubungan fungsi di antara mereka. Kawal parameter SolidWorks, seperti nilai dimensi, dengan utiliti Excel VBA. Sebagai contoh, anda boleh membuat pemasangan dengan spreadsheet Excel yang terbenam yang membolehkan anda mengawal dimensi bahagian. Anda boleh menukar nilai sel dalam lembaran kerja terbenam, dan kemudian klik butang arahan untuk menjalankan makro yang mengemas kini perhimpunan. Terokai banyak pilihan untuk menggunakan formula Excel dan fungsi dengan makro SolidWorks.


Arahan

SolidWorks adalah satu jenis program lukisan 3D yang dipandu komputer (Stockbyte / Stockbyte / Getty Images)

  1. Buka gunung di SolidWorks. Klik kanan folder "Anotasi" dalam pokok projek "FeatureManager" dan pilih "Tunjukkan Nama Dimensi" untuk memberikan akses mudah ke dimensi tertentu.

  2. Catat makro. Pergi ke menu "Lihat" dan pilih "Bar Alat" dan "Makro" untuk memaparkan toolbar Makro. Klik butang "Rakam Jeda Makro" pada bar alat.

  3. Lakukan hanya tindakan yang anda mahu rekod. Klik dua kali setiap dimensi untuk meningkatkan dimensinya, contohnya, 1,2 cm. Klik butang "Rebuild" atau tekan "Ctrl + B" untuk membina semula pemasangan. Klik butang "Stop Macro" pada bar alat untuk menghentikannya.

  4. Masukkan nama untuk makro, seperti "dimensi," dalam medan "Nama Fail" dalam kotak dialog "Makro Baru". Pilih "SW VBA Macros (* .swp)" dalam "Simpan sebagai jenis "dan klik" Simpan ".


  5. Klik butang "Edit Makro" pada bar alat dan pilih yang baru. Kod harus mengandungi sesuatu yang serupa dengan yang berikut:

    Sub utama ()

    Tetapkan swApp = CreateObject ("SldWorks.Application") Tetapkan Bahagian = swApp.ActiveDoc Part.SelectByID "Shaft1 @ Sketch1 @ mygear-1 @ MyGearbox". Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0.0254 Part.SelectByID "Shaft2 @ Sketch1 @ mygear2-1 @ MyGearbox",. Part.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0254 Part.SelectByID "MyDia1 @ Sketch1 @ mygear-1 @ MyGearbox". Part.Parameter ("MyDia1 @ Sketch1 @ mygear.Part"). SystemValue = 0.1016 Part.SelectByID "MyDia2 @ Sketch1 @ mygear2-1 @ MyGearbox" ,. Part.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection End Sub

  6. Padamkan setiap baris kod yang merangkumi kaedah "SelectByID" untuk meningkatkan makro. Makro direkodkan dengan memilih dimensi dan menukar nilai. Tetapi untuk contoh ini, anda tidak memerlukan kod ini, kerana ia hanya membuat pemprosesan yang tidak perlu. Kod yang disunting sepatutnya seperti berikut:


    Sub utama ()

    Set swApp = CreateObject ("SldWorks.Application") Set Bahagian = swApp.ActiveDoc Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0.0254 Part.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0254 Part.Parameter ("MyDia1 @ Sketch1 @ mygear.Part") SystemValue = 0.1016 Part.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part") SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection End Sub

  7. Buka lembaran kerja Excel dan isikan sel untuk nilai yang anda ingin kawal. Tambah butang pada lembaran kerja untuk mengaktifkan makro dalam Excel. Pergi ke menu "Lihat", pilih "Bar Alat" dan klik pada "Kawalan Toolbox". Pilih pilihan "Butang Perintah", dan kemudian klik tetingkap lembaran kerja yang anda mahu masukkan butang arahan.

  8. Pergi ke SolidWorks dan salin semua kod makro antara "Sub Utama ()" dan "Sub Akhir" baris makro yang dirakam.

  9. Kembali ke hamparan Excel dan dwiklik butang arahan baru atau klik kanan dan pilih "View Code." Tampalkan kod SolidWorks yang disalin ke baris "Sub Akhir".

  10. Ubah suai kod berikut untuk mengakses nilai dalam Excel.

    Peribadi Sub CommandButton1_Click () Set swApp = CreateObject ("SldWorks.Application") Set Bahagian = swApp.ActiveDoc Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part") SystemValue = Excel.Range ("B1") * SystemValue = Excel.Range ("B2") * 0.0254 Part.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = Excel.Range ("B3" ) * 0.0254 Part.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = Excel.Range ("B4") * 0.0254 Part.EditRebuild Part.ClearSelection End Sub

  11. Salin dan tampal lembaran kerja Excel ke dalam pemasangan supaya file luaran tidak mengawal template. Pilih semua sel yang diperlukan dan tekan "Ctrl + C" untuk menyalin semuanya. Kembali ke pemasangan SolidWorks dan tekan "Ctrl + V" untuk menampal sel yang disalin. Sekarang, tutup atau hapus fail Excel. Spreadsheet dibina ke dalam pemasangan, jadi anda tidak memerlukan fail.

  12. Klik dua kali hamparan terbenam untuk mengaktifkannya. Tukar nilai sel dan klik butang arahan pada lembaran kerja untuk mengemas kini perhimpunan. Klik di luar tetingkap lembaran kerja terbenam untuk menyahaktifkan dan kembali ke perhimpunan.