remrem
2 Wrzesień 2014 07:41
1
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.
pl
2 Wrzesień 2014 07:45
2
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
pl
2 Wrzesień 2014 07:47
3
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
remrem
2 Wrzesień 2014 08:00
4
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
remrem
2 Wrzesień 2014 08:09
5
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
pl
2 Wrzesień 2014 08:58
6
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
remrem
2 Wrzesień 2014 09:35
7
Udaje mi się otworzyć pokój i zmienić właściwości.
Dzięki Lucasowi...
1 polubienie