Cze wszystkim
Chcę utworzyć przycisk w środowisku montażowym SLW, aby móc szybko zapisać jako parasolid *.x_t.
Jak to zrobić?
Dziękuję za pomoc.
Witam, będziesz musiał przejść przez makro.
Czy wiesz, jak to działa?
Witam
Majstrowałem przy nim, aby nagrywać w DXF, działa dobrze! (Są tu ludzie o wiele bardziej kompetentni ode mnie w tej dziedzinie :))
Tam zmodyfikowałem go, aby zrobić X_T.
Wszystko, co musisz zrobić, to umieścić go na przycisku w swoim modelu montażowym!
http://www.lynkoa.com/tutos/3d/ajouter-un-bouton-pour-macro-dans-solidworks
Powodzenia
Sub Sauvegarde_X_T()
Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Locatie Jako Ciąg
Dim Locatie_aangepast As String
Przyciemnij OpenDoc jako obiekt
Dim Extensie_nieuw As String
Dim Extensie_oud As String
Dim retval As String
Dim Naam As String
Dim Naam_aangepast As String
Ustaw swApp = CreateObject("SldWorks.Application")
Ustaw swModel = swApp.ActiveDoc
Ustaw OpenDoc = swApp.ActiveDoc()
Extensie_oud = ". SLDASM"
Extensie_nieuw = ". X_T"
Locatie = OpenDoc.GetPathName
Locatie_aangepast = Lewo(Locatie, Len(Lokatie) - 7)
retval = Dir$(Locatie_aangepast & Extensie_oud)
Naam = Dir$(Locatie)
Naam_aangepast = Lewo(Naam, Len(Naam) - 7)
Titel = OpenDoc.GetTitle
Titel = Lewo(Tytuł, (Len(Tytuł)))
' Jeśli retval = Naam Then
'nRetval = swApp.SendMsgToUser2(Naam_aangepast & " DXF utworzony !! ", swMbWarning, swMbOk)
' Koniec, jeśli
Ustaw część = swApp.ActiveDoc
longstatus = Part.SaveAs3(Naam_aangepast & Extensie_nieuw, 0, 0)
Koniec subwoofera
2 polubienia
Witam
Zrobiłem makro do zapisania w nowym dokumencie, możesz go użyć jako inspiracji do stworzenia swojego makra. Każdy wiersz jest zakomentowany, co jest przydatne dla początkujących programistów VBA:
http://www.lynkoa.com/tutos/3d/macro-enregistrer-sous-avec-solidworks
Aby dodać przycisk:
http://www.lynkoa.com/tutos/3d/ajouter-un-bouton-pour-macro-dans-solidworks
A dla parasolid, zobacz ten link:
https://forum.solidworks.com/thread/27668