---

Hallo zusammen,

wie kann ich alle CGRs in einer Baugruppe in CATParts umwandeln und die CGR-Dateien durch die CATParts ersetzen lassen?

Die Umwandlung von CGR nach Catpart funktioniert wie hier beschreiben:
http://ww3.cad.de/foren/ubb/Forum133/HTML/005245.shtml#000000

Sub CATMain()
    sInputFile = CATIA.FileSelectionBox(".cgr-Datei auswählen", "*.cgr", CatFileSelectionModeOpen)
    Dim oDoc As Document
    Set oDoc = CATIA.Documents.Read(sInputFile)
    oDoc.ExportData sInputFile + ".model", "model"
    oDoc.Close
End Sub

Vielen Dank

Georg

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

---

Servus
Anbei ein grober Ablauf für solch ein Makro:
- den Pfad der Baugruppe auslesen (damit die Parts im gleichen Verzeichnis abspeichert werden)
- mit einer Schleife die Products der RootProduct abarbeiten
- für jedes (Unter)Product, das Referenzdokument ermitteln
- auslesen, ob es sich um ein cgr handelt
- cgr in CATPart umwandeln
- mit ReplaceComponent das cgr durch das CATPart ersetzen

Gruß
Bernd

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

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

---

Moin moin,
Auf die schnelle würde ich es so machen:

Code:

---

CONST OutPath = "C:\"
CONST pathSeperator = "\"

'-------------------------------------------
Sub CATMain()
SET oProd = CATIA.ActiveDocument.Product
oProd.ApplyWorkMode Design_Mode
WalkTree oProd
End Sub
'-------------------------------------------

'-------------------------------------------
SUB WalkTree (oParent)

FOR iProduct = 1 TO oParent.Products.Count
SET oChild = oParent.Products.Item(iProduct)
IF oChild.Products.Count = 0 THEN
IF RIGHT(oChild.GetMasterShapeRepresentationPathName,4) = ".cgr" THEN
SET oDoc = CATIA.Documents.OPen(oChild.GetMasterShapeRepresentationPathName)
IF CATIA.FileSystem.FileExists( OutPath & ".model") = FALSE THEN
tmpArr = SPLIT(oChild.GetMasterShapeRepresentationPathName,pathSeperator)
tmpArr2 = SPLIT (tmpArr(UBOUND(tmpArr)),".")
oDoc.ExportData OutPath & tmpArr2(0), "model"
oDoc.Close

'##############################
'OPEN MODEL AND SAVE AS CATPART
'##############################

'##############################
'REPLACE CGR WITH CATPART
'##############################

END IF
END IF
ELSE
WalkTree oChild
END IF
NEXT
END SUB
'-------------------------------------------

---

Jedoch funktioniert die ExportData function nicht für CATPart, wenn du heraus finden kannst, wie man ".model" in ".CATPart" umwandelt, sollte der Rest kein Problem sein...
Gruß,

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