---

Servus Gemeinde,

ich habe ein Makro geschrieben welches mir ein StartPart in ein
Product einfügt und unter dem selben Verzeichnis speichert. Mit
Fehlerbehandlung usw. Ich bekomme es bloß nicht hin das Part bei
einem Fehler oder einem Abbruch wieder aus dem Product zu löschen!!
Habt Ihr vielleicht eine Idee :-)

Code:

---

'Neuen PartNamen abfragen
    Set product = oDocument.Product
    Set products = product.Products
    Set oSel = oDocument.Selection

'StartPart in die Struktur laden
    Dim arrayOfVariantOfBSTR(0)
    arrayOfVariantOfBSTR(0) = "J:\Makros\StartParts\XXX_TEIL-PAD_XXX.CATPart"
    products.AddComponentsFromFiles arrayOfVariantOfBSTR, "All"

'Vergabe der neuen PartNumber + InstanceName / Prüfen ob PartNumber bereits vorhanden

    isSaved = False
    while isSaved = False

       myFunc = InputBox ("Bitte vergeben Sie einen neuen Namen.", "PartName", "XXXXXXXX-Y-CC_PLATTE_XX")
       If myFunc = "" Then
         'PART.Delete
      Exit Sub
   End If

On Error Resume Next
     Set documents = CATIA.Documents
     Set partDocument = documents.Item("XXX_TEIL-PAD_XXX.CATPart")
     strPath = oDocument.Path

        Set oName = products.GetItem("XXX_TEIL-PAD_XXX.1")
           oName.Name = myFunc & ".1"

        Set oNumber = partDocument.GetItem("XXX_TEIL-PAD_XXX")
           oNumber.PartNumber = myFunc

If Err.Number <> 0 Then

RetCode = MsgBox("Diese PartNumber existiert bereits in der Struktur." & vbLF & _
"----------------------------------------------------" & vbLF & _
"Sie müssen eine neue PartNumber vergeben!", 48 + vbYesNo, "Warnung!!!")
Select Case RetCode

   Case vbNo
       'PART.Delete
   Exit Sub
End Select

'Part abspeichern
        Else
          SavePart strPath, myFunc, partDocument
       isSaved = True
       End If
      Wend
On Error GoTo 0
End Sub
'----------------------------------------

'----------------------------------------
Sub SavePart(ByVal strPath As String, ByVal myFunc As String, ByVal partDocument As Document)
   'Geladenes StartPart im Projektordner speichern
      On Error Resume Next
          strFileName = strPath & "\" & myFunc
          partDocument.SaveAs strFileName
      On Error GoTo 0
End Sub

---

[Diese Nachricht wurde von shoutz000 am 29. Okt. 2014 editiert.]

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

---

Servus
Versuch es mal so (einfach das letzte Product im Baum löschen):

Code:

---

products.remove(products.count)

---

Oder du prüft erst den Namen bzw ob es das Part schon gibt, und fügst dann erst das Startpart ein.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Guten Morgen,

vielen Dank funktioniert super :-)

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

---

OPENER_CatPart_PAD.txt

Hier das fertige Makro falls noch jemand so eins brauchen kann.

Zusätzlich habe ich noch "Clear History" eingefügt um aus der Struktur gelöschte
PartNumbers wieder zur Verfügung zu haben.

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