---

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

---

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

---

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

---

Hallo Muck,

ist das Thema nicht das gleiche http://ww3.cad.de/foren/ubb/Forum2/HTML/030606.shtml, wenn ja sollte auch bei diesem weiter diskutiert werden, sonst kommt es nur zu Verwirrungen.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP