Vielen vielen Dank Bernd, dass du immer hilfsbereit bist,und entschuldige mich bitte für die späte Antwort!
Ich sende mal den Code, den ich geschrieben hab. Die Körper sollen zuerst as Result kopiert und danach gelöscht werden. Aber Ich möchte die Materialwerte erhalten.
Der Code funktioniert aber iwie nicht, kannst du mir bitte helfen, wo ich den Fehler mache?
Beste Grüße
Fariz
Sub CATMain()
Dim arrlocMaterial(1 To 100) As Material
Dim locMatManager As MaterialManager
Set oDoc = CATIA.ActiveDocument
Set oPart = oDoc.Part
For X = oPart.Bodies.Count To 1 Step -1
Set oBody = oPart.Bodies.Item(X)
locMatManager.GetMaterialOnBody(oBody, arrlocMaterial(X))
Next
...
''' hier findet copy and paste special statt
For X = oPart.Bodies.Count To 1 Step -1
Set oBody = oPart.Bodies.Item(X)
locMatManager.ApplyMaterialOnBody(oBody, arrlocMaterial(X))
Next
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP