---

Hallo,

ich tüftle gerade ein wenig mit der Makrofunktion von SWX rum. Ich möchte gerne von einem Makro gesteuert ein Teil in eine Baugruppe einfügen und dann gleich die Konfiguration umschalten.

Später soll das über eine Schleife in VBA automatisch erfolgen, also der Reihe nach eine bestimmte Anzahl an Teilen einfügen und gleich nach dem einfügen des Teils möchte ich in der Konfiguration eine Konfiguration weiter schalten (in der Stückliste sind die Teile dann später je eine Position).

Vom Ablauf hätte ich gedacht,

- boolstatus = Part.AddComponent("Dateipfad", 0, 0, 0)

- boolstatus = Part.CompConfigProperties4(2, 0, True, True, "Instanz", False, False)
- boolstatus = Part.EditRebuild3()

Nur fehlt mir in dem Ablauf jetzt der Befehl, dass er das eingefügte Teil gleich auswählt, selektiert damit dann die Konfiguration umgeschaltet werden kann.

Vielleicht hat von euch jemand eine Idee/Lösungsvorschlag.

Danke,
Gruß anwi7216

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

---

Hallo Andreas

Wieso nutzt du nicht die AddComponent4 Method (IAssemblyDoc), da kannst du die Konfiguration gleich mitgeben.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Zitat:

---

Original erstellt von HenryV:
...Wieso nutzt du nicht die AddComponent4 Method (IAssemblyDoc), ...

---

... Vermutlich, weil der Makro-Recorder das auch nicht macht.
Schade, dass SWX es nicht schafft, den mal richtig rundzuerneuern, so dass hier auch die aktuellen Methoden etc. verwendet werden, und dabei auch saubere Makros rauskommen. Der scheint auf dem Stand von vor 15 Jahren stehen geblieben zu sein.

------------------
Klaus

www.al-ko.com | mein Gästebuch

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

---

Hallo Andreas,

danke für den Tipp, das war die gesuchte Lösung  

Nur eine Frage, die Funktion setzt ja voraus, dass das einzufügende Bauteil im Arbeitsspeicher geladen ist -> sprich im Hintergrund geöffnet ist.
Hast du da eine einfach Funktion, mit der du das Teil in SolidWorks im Hintergrund öffnest und die Baugruppe aber als aktives Dokument im Vordergrund bleibt. Also dass im Makro die Funktion swApp.ActiveDoc verwendet werden kann, für das einfügen in die Baugruppe ?

Bin da nicht so fit, wie ich quasi eine neue Baugruppe wieder als aktives Dokument im Makro auswähle.

Gruß Andreas

[Diese Nachricht wurde von anwi7216 am 08. Jul. 2016 editiert.]

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

---

Hallo Klaus,

stimmt, da ich nicht ganz so fit bin schaue ich gerne über die Makro Aufnahme Funktionen nach.
Macht die Sache aber auch insgesamt nicht viel einfacher, wie man an dem Beispiel sieht 

Gruß Andreas

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

---

jetzt muss ich zwecks der AddComponent4 nochmal fragen, da ich einen Laufzeitfehler bekomme.

Aktuell hätte ich folgenden Code daraus gemacht: 

        Instanz = 2
        ConfigName = "Instanz" & Instanz
        CompName = "K:\LOG_Teile\Zubehoer\Teile für Stückliste\---Platzhalter---.sldprt"
   
        Set swApp = Application.SldWorks
        Set Part = swApp.ActiveDoc
        boolstatus = Part.AddComponent4(CompName, ConfigName, 0, 0, 0)
                             
        Instanz = Instanz + 1
        ConfigName = "Instanz" & Instanz

Also ich gebe über ConfigName den entsprechenden Konfigurationsnamen mit (wie gesagt mit einem Zähler, da ich später mit eienr Schleife darüber gehe und imm um eine Position erhöhe). CompName wäre die Datei, die auch im Hintergrund geöffnet ist (und später übers Makro werden sollte).

Nur weiß ich jetzt nicht, was an dem Code falsch ist und warum der Laufzeitfehler kommt 

Danke,
Gruß Andreas

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

---

Hallo Andreas,

ich würde die Komponente wirklich nur in den Arbeitspeicher laden, Sie muss ja nicht aktiv sein.

Code:

---

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swAssy As SldWorks.AssemblyDoc
Dim swModel As SldWorks.ModelDoc2
Dim swComp As SldWorks.Component2
Dim CompName As String
Dim ConfigName As String
Dim lWarnings As Long
Dim lErrors As Long

Sub main()

CompName = "Pfad zur Komponente"
ConfigName = "Name der Konfiguration"

Set swApp = Application.SldWorks
Set swAssy = swApp.ActiveDoc

Set swModel = swApp.OpenDoc6(CompName, swDocPART, swOpenDocOptions_Silent, ConfigName, lWarnings, lErrors)

Set swComp = swAssy.AddComponent4(CompName, ConfigName, 0, 0, 0)

End Sub

---

Mich würde interessieren woher die Informationen mit Komponenten Namen und der verwendeten Konfigurationen kommen, weil evtl. kann mann das ganze dann auch anderst aufbauen.

Gruß
Bernd

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

Staatlich anerkannte Deutschniete  

[Diese Nachricht wurde von bk.sc am 08. Jul. 2016 editiert.]

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

---

Hallo nochmal an alle,

Danke für euere Hilfe und die Tipps zur Lösung meines Problems.
Konnte jetzt alle Probleme lösen und das Makro funktioniert tadellos.

Wünsche ein schönes Wochenende und vielen Dank nochmal.

Gruß Andreas

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