Witam
Chciałbym mieć możliwość wyeksportowania części lub złożenia w X_T, klikając tylko przycisk w Solidworks 2010?
Znalazłem już taki przycisk do jednoczesnego eksportowania w .pdf i .dxf dla moich planów, który działa bardzo dobrze.
Ale nie mogę go znaleźć, aby wyeksportować do X_T?
Z góry dziękuję
Zobacz ten link:
http://forum.solidagora.com/macro-api-solidworks-enregistrer-pdf-dxf-x-t101.html
Nie, w ogóle nie znam programu VBA.
Link, który mi przesłałeś, służy do zapisania elementów pliku.
Chciałbym mieć przycisk, który sprawiałby, że wyglądałoby to tak, jakbym zrobił "Plik/zapisz jako/" i zapisywał w Parasolid x_t
Zobacz ten link
Eksport makr Parasolid
http://www.3dcontentcentral.fr/macros/macro.aspx?id=557249
https://www.dropbox.com/s/l5vscy9dkpswb1i/PARASOLID.bmp?dl=0
@+;-))
Witam
Aby uruchomić makro, często interesujące jest użycie rejestratora. Pozwoli Ci to poznać przydatne funkcje.
Wtedy możliwe jest pogłębienie poprzez szukanie docelowych elementów w pomocy: http://www.solidworks.fr/sw/support/1835_FRA_HTML.htm
Bo to, co jest interesujące, to przede wszystkim zrozumienie, co się koduje, a nie tylko kopiowanie kodu znalezionego tu czy tam. Ale oczywiście wymaga to trochę cierpliwości i czasu.
Pozdrowienia.
gt22 Próbowałem już tego makra, ale to nie działa.
Jest to problem z wersją 32/64-bitową
Problem iff lub jeśli
Opublikuj makro, aby sprawdzić, czy działa poprawnie, czy nie
@+;-))
Właśnie pobrałem go ponownie, aby go wypróbować i umieszcza mnie:
Czy twój pokój jest otwarty?
Tak, właściwie zrobiłem kawałek, a potem gdzieś go zapisałem, a potem naciskam przycisk lub skojarzyłem makro, ale to pokazuje.
Być może nie tak powinniśmy z niego korzystać. Ale mam inny, który działa w ten sposób, aby zapisać w .pdf i .dxf i który działa dobrze
Jest dobrze napisany (nie widzimy zbyt dobrze):
Jeśli Part.GetType = swDocDRAWING Następnie
Czy makro jest uruchamiane z części w SolidWorks?
Tak, zacząłem makro od monety
W zasadzie nie wiem, czy tak to wykorzystać, nic nie wskazuje jak to zrobić?
Znalazłem to w innym poście, zrobiłem to, działa dokładnie tak, jak chcę!!
Umieściłem plik "save_x_t.swp" jako załącznik dla tych, którzy tego chcą.
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
Przywracam najnowszą wersję poprawionego makra, aby zapisać ją w X_T z logo X_T, które jest z :)
Miłego dnia wszystkim!!