---

Hallo Leute,

hat jemand von euch zufälliger weise ein Makro mit Quellcode, dass
in einem ASM ein gewähltes Teil/ASM Öffnet, unter einem anderen Namen in ein Arbeitsverzeichnis speichert und das gewählte Teil/ASM durch das umbenannte ersetzt?

Wäre echt super wenn es sowas schon gäbe.

MfG
AMG

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

---

Hallo,

für dein Problem habe ich die nachfolgenden Zeilen kurz angetestet und dies sollte auch bei dir funktionieren.

- Baugruppe öffnen
- in der ersten Stufe ein Part wählen
- Neuen Dateiname vergeben und fertig...

    Dim objApp              As SolidEdgeFramework.Application
    Dim objPart            As SolidEdgePart.PartDocument
    Dim isWritetable        As Boolean
   
    Set objApp = GetObject(, "SolidEdge.Application")
   
    Call objApp.ActiveSelectSet.Item(1).MakeWritable
    Set objPart = objApp.ActiveSelectSet.Item(1).OccurrenceDocument
   
    Call objPart.SeekWriteAccess(isWritetable)
   
    If isWritetable Then
        Call objPart.SaveAs("c:\PartTest2.par")
    End If

Sollten noch Fragen offen - dann bitte melden...

------------------
Marco Kreutz
info@hitteam.de
www.hitteam.de

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

---

Hallo AMG

Ich nehme an Du weisst, dass man ab ca. V14 direkt aus dem "Teil bearbeiten" Mode mit speichern unter ersetzen kann.
Verwende ich immer wenn ich Versionen bilde auf die Schnelle.
Vermutlich ist das aber nicht, was Du willst.

Gruss

Eru...

------------------
P4 1.8GHz, Win 2k, GeForce3 Ti 200, SE V15 SP 3

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