API: Zapisywanie zespołu jako części

3D Design Volume Model
1

Witam

 

Chcę wykonać małe makro, które pozwoli mi zapisać zestaw zespołów w częściach. Czy masz jakiś pomysł, jak mogę to zrobić?

Jestem nowy w programowaniu Solidworks, jednak znam już dużo języka VB (Vba, vbnet, ...).

Z góry dzięki,

Gautier

2

Witam

Czy właśnie próbowałeś nagrać makro? Narzędzia/Makro/Zapisz

3

Tak, a oto kod:

Ustaw swApp = _
Aplikacja.SldWorks

Ustaw część = swApp.ActiveDoc
Ustaw część = swApp.NewDocument("N:\- biblioteka solidworks -\base solidworks\pieces_DMI_2011 .prtdot", 0, 0, 0)
swApp.ActivateDoc2 "Część5", Fałsz, longstatus
Ustaw część = swApp.ActiveDoc
Ustaw część = swApp.ActiveDoc
Przyciemnij myModelView jako obiekt
Ustaw myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Ustaw myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "Zespół koła pasowego luźnego. SLDASM", Fałsz, longstatus
Ustaw część = swApp.ActiveDoc
longstatus = Part.SaveAs3("C:\a_travail\Gniazdo do zdejmowania pokrywy\Zespół koła pasowego luźnego. SLDPRT", 0, 0)

4
Witam

Instrukcja, której należy użyć, to klasyczna instrukcja zapisywania jako z kilkoma parametrami:

Możesz określić dodatkowe opcje Zapisz jako za pomocą ISldWorks::SetUserPreferenceIntegerValue. Na przykład:

' Zapisz złożenie jako część wieloobiektową i zapisz powierzchnie zewnętrzne jako obiekty powierzchniowe

swApp.SetUserPreferenceIntegerValue swSaveAssemblyAsPartOptions, swSaveAsmAsPart_ExteriorFaces swModelDocExt.SaveAs "H:\Assem1.SLDPRT", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, nErrors, nWarnings

-złoto-

' Zapisz wszystkie arkusze rysunków w aktywnym dokumencie rysunku jako plik eDrawings

swApp.SetUserPreferenceIntegerValue swEdrawingsSaveAsSelectionOption, swEdrawingSaveAll swModelDocExt.SaveAs "H:\Grid.edrw", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, nErrors, nWarnings

Wiosna:

http://help.solidworks.com/2012/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDocExtension~SaveAs.html

Przykład jest dostępny tutaj:

https://forum.solidworks.com/servlet/JiveServlet/download/291777-83609/Save%20Assy%20As%20Part%20(Zewnętrzna%20Powierzchnie).zip

3 polubienia
5

Wielkie dzięki, to jest dokładnie to, czego potrzebowałem.

Będę mógł rozpocząć ;)

6

Z drugiej strony małe pytanie:

Dlaczego kod:

Aplikacja.FileDialog(selektor folderów msoFileDialog). Pokazać

 

Nie działa?

 

Pozwala mi wybrać folder, aby wybrać zestaw plików.