---

Hallo SWX Experten,
ich habe mir ein Macro gebastelt, mit dem ich
Teile in eine Baugruppe einfüge. Hintergrund ist das
Thema Schweißbaugruppe, hier sollen die Eingefügten Teile
Den Baugruppennamen + Zusatz erhalten. Dies wollte ich automatisieren.
Das Macro läuft auch soweit. Nur eim Einchecken in PDM-Works
gibt es Probleme. PDM-Works kann nicht einchecken, da die
eingefügten Einzelteile angeblich noch von einem anderen
Programm in Anwendung sind. Dies kann allerdings nicht sein,
da ich nach einfügen der Teile dies auch schließe.
Wenn ich nun die Baugruppe über SWX speicher und schließe,
klappt das einchecken danach.
Folgender Codeausscchnitt aus dem Macro:
Set swApp = CreateObject("SldWorks.Application")
    'Set Part = swApp.ActiveDoc
    Set Part = swApp.NewDocument(Vorlagendatei, 0, 0#, 0#)
    Schweißdatei = Ablageort & Zeichnungsnummer & ".sldprt"
    'Set Part = swApp.ActiveDoc
   
    PropNames.Add "Number"
    PropNames.Add "Description"
    PropNames.Add "Ersteller"
    PropNames.Add "Erstell_Datum"
   
    ' dann die Coolection vorbereiten mit den Namen der Konfigs bzw. "" wenn auf Datei
    If AllConfigs = 0 Then
        PropConfigs.Add ""
    End If

    For Each Config In PropConfigs
        For Each Prop In PropNames
            ' als Dateieigenschaft wieder einsetzen, Dummywert "bitte ausfüllen" eintragen
            ' und neu hinzufügen; falls schon vorhanden passiert nix
            Debug.Print Part.AddCustomInfo3(Config, Prop, swCustomInfoText, "bitte ausfüllen")
        Next
    Next
    ' Werte eintragen
    Part.CustomInfo("Number") = Zeichnungsnummer
    Part.CustomInfo("Description") = Bezeichnung
    Part.CustomInfo("Ersteller") = Author
    Datum1 = Date
    Part.CustomInfo("Erstell_Datum") = Datum1
    Set Part = swApp.ActiveDoc
    ' Datei Einzelteil speichern
    Part.SaveAs2 Schweißdatei, 0, False, False
    ' Datei schließen
    swApp.CloseDoc Schweißdatei
    ' Baugruppe aktivieren und Einzelteil zuladen
    Set asm = swApp.ActiveDoc
    Set Part = swApp.OpenDoc(Schweißdatei, 1)
    Set comp = asm.AddComponent2(Schweißdatei, 0, 0, 0)
    swApp.CloseDoc Schweißdatei
    ' Baugruppe neu aufbauen
    Part.ForceRebuild3 (False)
    Part.ViewZoomtofit2

Vielleicht weiß jemand hier Rat,
schon mal herzlichen Dank im voraus.
Gruß Harald
(PS: Vielleicht ist auch das PDM-Forum das richtige, dann
bitte den Eintrag verschieben)

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

---

Hi,

als Vermutung würde ich sagen das du deine Verwendeten ModelDocs ,nachdem diese nicht mehr benötigt werden, auf Nothing setzen musst...

also mit Set Part = Nothing:Set ASM = Nothing

Gruß
Micha

------------------
Stell dir vor, es geht, und keiner kriegts hin.

 

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Danke Micha,
für den Tip.
Habe ich getestet, klang auch ganz vernünftig.
Hat aber leider nicht zum Ziel geführt.
Problem ist das gleiche geblieben.

Werd mal weiterschauen.

Gruß Harald

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