---

Hallo zusammen,

ich habe ein Makro aus dem Forum genommen welches .CATParts aus einem Ordner öffnet und als .STL abspeichert. Nun wollte ich das Makro ergänzen das es das Part um 1,5% vergrößert.

Bei der Makroaufzeichnung kann CATIA nichts mit solid1 anfangen:
(...und ich auch nicht  )

Code:

---

Sub catmain()

Dim partDocument1 As PartDocument
Set partDocument1 = catia.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim solid1 As Solid
' No resolution found for the object solid1...

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(solid1)

Dim hybridShapeAffinity1 As HybridShapeAffinity
Set hybridShapeAffinity1 = hybridShapeFactory1.AddNewAffinity(reference1, 1.015, 1.015, 1.015)

hybridShapeAffinity1.VolumeResult = False

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.59")

hybridBody1.AppendHybridShape hybridShapeAffinity1

part1.InWorkObject = hybridShapeAffinity1

part1.Update

End Sub

---

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

---

Servus

Auf den Body zugreifen (per Item (Name oder Zähler)) und dann auf das Shape:

Code:

---

Set oBody = oPart.Bodies.Item(1) ' oder den Namen
Set oSolid = oBody.Shapes.Item(1) 'oder den Name

---

Siehe auch Doku.

Gruß
Bernd

EDIT: benötigst du nicht AddNewAffinity2 für einen Solid?

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

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

---

Aufbau_Fertigteil.png Error_Type_missmatch.png

Mit der Doku (V5Automation.chm) komme ich nicht wirklich klar. Die ist für mich völlig unverständlich.
Bis jetzt mache ich alles mit "Try-And-Error".

In dem CATPart sind mehrere Bodies die mit Remove bzw. Add das "Endprodukt" ergeben.
Über part1.Bodies.Item1("Fertigteil") kommt die Fehlermeldung "Type missmatch"

Vielen Dank für die Rückmeldung/Hilfe.

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

---

Servus

Die Methode heißt item und nicht item1.

Gruß
Bernd

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

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

---

Hallo bgrittmann,

wenn ich ...
Set solid1 = part1.Bodies.Item
... schreibe bekomme ich eine Fehlermeldung "Argument not optional"

Fehlermeldungen:
Set solid1 = part1.Bodies.Item1
-> Object doesnŽt support this property or method

Set solid1 = part1.Bodies.Item("Fertigteil")
-> Type mismatch

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

---

Servus

Und als was ist bei dir solid1 dimensioniert?
part1.Bodies.Item("Fertigteil") liefert dir den Body.
Diesen Körper dann in Bearbeitung setzen und dann dein AddNewAffinity2  erstellen (siehe zB hier)

Gruß
Bernd

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

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