| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | Zerspanungstreff mit SolidCAM bei der Hoffmann GmbH in Achim/Bremen |
Autor
|
Thema: API Baugruppe in eine Baugruppe einfügen (1161 / mal gelesen)
|
Muck93 Mitglied
Beiträge: 16 Registriert: 24.01.2016
|
erstellt am: 25. Mai. 2017 14:21 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, ich möchte gerne in eine bestehende Baugruppe, eine weitere Hinzufügen. Aktuell öffne ich meine Baugruppe in die ich was einfügen möchte. Aber wie kann ich nun eine weitere Baugruppe hinzufügen. Aktuell sieht meine Code wie folgt aus. Deklarationen:
Code: Private fso2 As New FileSystemObject Dim swApp As SldWorks.SldWorks Dim Gesamtkraft As Integer Dim FSI As FileSystemInfo Dim strCADFileFolder As String Dim strCADDatei, Dateiname As String Dim strExeFolder As String Dim strEndung As String Dim swPart As SldWorks.ModelDoc2 Dim longstatus, longwarnings As Integer Dim X_Kraft, Y_Kraft, Z_Kraft As Integer Dim Lagerauswahl As String Dim instance As IAssemblyDoc Dim swcomponent As SldWorks.Component2 Dim swModel As SldWorks.ModelDoc2 Dim swAssyEvents As Class1
Baugruppe in Baugruppe einfügen:
Code: Lagerauswahl = "Lager1.SLDASM" swApp = CreateObject("SldWorks.Application") swModel = swApp.ActiveDoc Dim boolstat As Boolean boolstat = True Dim strCompModelname As String strCompModelname = "Lagerbock_1.SLDPRT" ' Open the component swPart = swApp.OpenDoc6(strCADFileFolder & "\" & strCompModelname, swDocumentTypes_e.swDocASSEMBLY, swOpenDocOptions_e.swOpenDocOptions_Silent, "", longstatus, longwarnings) ' Re-activate the assembly so that you can add the component to it swModel = swApp.ActivateDoc3(strCADFileFolder & "\" & Dateiname, True, swRebuildOnActivation_e.swDontRebuildActiveDoc, swActivateDocError_e.swDocNeedsRebuildWarning) ' Set up events Dim swAssy As SldWorks.AssemblyDoc swAssy = swModel swAssyEvents = New Class1 swAssyEvents.swAssy = swApp.ActiveDoc swcomponent = swAssy.AddComponent5(strCADFileFolder & "\" & Lagerauswahl, swAddComponentConfigOptions_CurrentSelectedConfig, "", False, "", -1, -1, -1)
Problem: Die Configoption vom AddComponent5 wird mir schon als Fehler angezeigt. Dementsprechend macht das Programm gar nichts. Sieht einer von euch einen Fehler?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Muck93 Mitglied
Beiträge: 16 Registriert: 24.01.2016
|
erstellt am: 27. Mai. 2017 12:20 <-- editieren / zitieren --> Unities abgeben:
Problem gelöst Code: swAssy = swApp.ActivateDoc2(Dateiname, True, longstatus) 'new swcomponent = swAssy.AddComponent5(strCADFileFolder & "\" & Lagerauswahl, swAddComponentConfigOptions_e.swAddComponentConfigOptions_CurrentSelectedConfig, "", False, "", 0, 0, 0) swAssy.EditRebuild()
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Muck93 Mitglied
Beiträge: 16 Registriert: 24.01.2016
|
erstellt am: 27. Mai. 2017 12:21 <-- editieren / zitieren --> Unities abgeben:
Problem gelöst Code: swAssy = swApp.ActivateDoc2(Dateiname, True, longstatus) 'new swcomponent = swAssy.AddComponent5(strCADFileFolder & "\" & Lagerauswahl, swAddComponentConfigOptions_e.swAddComponentConfigOptions_CurrentSelectedConfig, "", False, "", 0, 0, 0) swAssy.EditRebuild()
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 29. Mai. 2017 07:11 <-- editieren / zitieren --> Unities abgeben: Nur für Muck93
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|