---

Hallo,

ich soll mehrere Baugruppen aus einem anderen CAD-System, die bereits als SolidWorks Dateien vorliegen, zu einer gemeinsamen Baugruppe zusammenfügen. Wenn ich die Baugruppen mittels "Komponenten einfügen" einzeln auswähle und keine Platzierung angebe, werden sie am korrekten Ort eingefügt. Leider kann ich hier aber immer nur eine Baugruppe angeben.

Bei der Suche bin ich auf folgenden Thread gestoßen, der genau mein Problem beschreibt.
https://ww3.cad.de/foren/ubb/Forum2/HTML/024553.shtml#000005
Damals wurde auf einen SPR mit Status "Hoch" verwiesen.

Weiß jemand, ob sich hier schon etwas getan hat?

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

Hi Thomas,

schau mal, ob Dir das hier weiterhilft: https://www.codestack.net/solidworks-api/document/assembly/components/add/

------------------
Grüße, RBE
----------

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

---

Hallo RBE,

danke für deine Antwort. Das schaut vielversprechend aus. Ich werde es so bald wie möglich ausprobieren.

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

Zu früh gefreut ...

Ich verstehe irgendwie den VB Code nicht.

Code:

---

comp1Path = swApp.GetCurrentMacroPathFolder() & "\Part1.sldprt"
comp2Path = swApp.GetCurrentMacroPathFolder() & "\Part2.sldprt"

---

Muss ich da meine Dateinamen eintragen?
Kann aber irgendwie auch nicht sein. Weiter unten wir dann nur mit comp1Path gearbeitet, comp2Path wird dann einem Array zugewiesen, ... Keine Ahnung wie das zu verstehen ist.
Kann mir da jemand helfen?

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

In seinem Beispiel liegen vermutlich die Daten im Makroordner.

Ich hab das für mich so gelöst (alle Teile aus einem bestimmten Verzeichnis einfügen):

        Path = "D:\<Dein Pfad>"
        sFileName = Dir(Path & "*.sldprt")
        count = 0
        Do Until sFileName = ""
            compNames(count) = Path & sFileName
            sFileName = Dir
            count = count + 1
        Loop

compNames ist ein Array, die Größe kannst Du ja vorher durch die Anzahl der Dateien festlegen.

------------------
Grüße, RBE
----------

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

---

OK, danke, das verstehe ich.

Aber trotzdem ist mir noch nicht klar, was mit comp1Path gemacht wird. Wird da erst eine Komponente eingefügt, dann tritt ein Fehler auf, dann wird die Komponente nochmals eingefügt, und dann erst der Rest? So verstehe ich es zumindest.

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

VB-Code_033724.txt

Ich habe jetzt versucht, dein Codeschnipsel einzubauen.

Leider scheitert aber offensichtlich die Funktion swAssy.AddComponents, zumindest bleibt der Rückgabewert vComps leer.

Im Anhang mein Code.

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

Warum der Programmierer den Fehler provozieren will erschließt sich mir auch nicht. Für Dein Vorhaben ist addComponents die geeignetere Methode.

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

---

Könnte ich also den ganzen Wust vor Dim strCompNames(nn) As String weglassen? Siehe auch meinen vorherigen Post.

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

Hi nochmal,

ich komme auf die Schnelle nicht dazu, mir das nochmal genauer anzuschauen. So hat es bei mir damals funktioniert (evtl. geht es auch effizienter, Tipps gern zurück ;-)).

        vTransformData = swMathUtils.CreateTransform(Empty).ArrayData
       
        If count > 0 Then
           
            If count > 1 Then
                ReDim Preserve vTransformData(count * 16 - 1)
                For i = 1 To count - 1
                    For j = 0 To 15
                        vTransformData(j + i * 16) = vTransformData(j)
                    Next j
                Next i
            End If
           
            ReDim strCompNames(count - 1)
            For i = 0 To count - 1
                strCompNames(i) = compNames(i)
            Next i
            vComps = swAssy.AddComponents(strCompNames, vTransformData)
           
            swModel.Extension.MultiSelect2 vComps, False, Nothing
            swAssy.FixComponent
       
        End If

------------------
Grüße, RBE
----------

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

---

Whow! Funktioniert perfekt!
Danke!

Kannst du mir vielleicht noch erklären, womit und zu welchem Zweck das Array vTransformData befüllt wird?

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

Hier ein kurzer Auszug aus der Hilfe von AssemblyDoc::AddComponents

Zitat:

---

Remarks
The array of file names represents all of the components that are added to the assembly. If there is more than one instance of a given component, make sure you add the file name of the component for each instance of the component.

The array of transforms consists of [count x 16] doubles. There should be one transform for each component being added.

---

Wenn das Array (für die Positionierung) nicht sauber vorhanden ist, schlägt das Einfügen fehl.

s. auch MathUtility::CreateTransform

------------------
Grüße, RBE
----------

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

---

Nochmals Danke!

------------------
Gruß aus dem Salzkammergut

Thomas

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