VBA Excel dla SolidWorks

Cze wszystkim

Chcę utworzyć kod VBA w programie Excel , który pozwoli mi uruchomić Solidworks, otworzyć plik części lub złożenia SolidWorks i zmodyfikować właściwości tego pliku.

Brak wiedzy na temat makr programowych. Przeprowadziłem wiele badań w Internecie, ale nie mogę otworzyć pliku.

Z góry dziękuję.

Miłego dnia.

Witam

Myślę, że zrobiłem jeden, ale nie mogę go dostać w swoje ręce!

W przeciwnym razie spójrz na ten link:

https://forum.solidworks.com/thread/69618

Ale a priori Excel otwiera dokument SolidWorks (ale nie SolidWorks bezpośrednio):

  'Łącze z Solidworks

    Ustaw swApp = Application.SldWorks

    Ustaw swModel = swApp.ActiveDoc

  Jeśli swModel jest niczym, to

        MsgBox "Nie załadowano żadnego dokumentu" & vbCrLf & _

                "Najpierw otwórz rysunek Solidworks!", vbMsgBoxSetForeground + vbSystemModal

    Inaczej

'... Kontynuacja kodu

1 polubienie

I oczywiście nie zapomnij dołączyć odniesień do SolidWorks w Excelu, w przeciwnym razie nie będziesz mógł nic zrobić!

Zobacz ten link:

http://www.cadsharp.com/blog/using-microsoft-excel-with-the-solidworks-api/

Dokładniej w tej części:

Po utworzeniu makra w programie Excel przejdź do "Narzędzia > odwołania" i sprawdź:

 "Biblioteka typów SldWorks 20XX"

 

1 polubienie

Dziękuję .PL za te szybkie odpowiedzi.

Linki są ciekawe

Nie rozumiem mojego problemu. Jeśli np. użyję kodu z przykładu z drugiego linku do wyświetlenia komunikatu w SW się nie kompiluje:

Dim swApp jako SldWorks.SldWorks

Patrz załącznik.

Dziękuję.


capture.jpg
1 polubienie

Dziękuję .PL.

Rzeczywiście, musieliśmy dodać "Bibliotekę typów SldWorks 20XX".

Teraz kody oprogramowania działają.

O reszcie będę Was informował na bieżąco.

Dziękuję.

1 polubienie

Jeśli chodzi o zmiany we właściwościach, radzę spojrzeć na makro, które opublikowałem jako samouczek na temat Lynkoa:

http://www.lynkoa.com/tutos/3d/macro-enregistrer-sous-avec-solidworks

To makro, w którym każdy wiersz jest oznaczony jako komentarz, modyfikuje właściwości (w tym właściwość kodu).

Na przykład, aby przypisać właściwość:

KOD = SWmoddoc.CustomInfo("kod")

Aby dodać właściwość:

retval = SWmoddoc.AddCustomInfo3("", "KOD", 30, NowyKod)

1 polubienie

Udaje mi się otworzyć pokój i zmienić właściwości.

Dzięki Lucasowi...

1 polubienie