---

Moin Moin,

versuche jetzt schon seit einiger Zeit ein Makro für den Befehl Affinität im Volumenbereich zu erstellen, die Aufzeichnung des Makrorecorders funktioniert aber nicht..

Habe einfach einen Block erstellt und dann den Befehl aufgezeichnet, das hat der Rekorder ausgespuckt:

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.01, 1.01, 1#)

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Hauptkörper")

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim pad1 As Pad
Set pad1 = shapes1.Item("Block.1")

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromBRepName("FVertex:(Vertex:(Neighbours:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;3)));None:();Cf11:());Face:(Brp:(Pad.1;2);None:();Cf11:());Face:(Brp:(Pad.1;0:(Brp :(Sketch.1;2)));None:();Cf11:()));Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", pad1)

hybridShapeAffinity1.AxisOrigin = reference2

---

Bei der Ausführung meckert er folgende Zeile an (Invalid Procedure Call or Argument):

Code:

---

Set reference1 = part1.CreateReferenceFromObject(solid1)

---

Habt ihr vielleicht ne Idee?

Gruß
Stefan

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

---

Servus
Anbei ein Beispiel wie eine Affinität im Body erstellt wird (ohne Referenzen):

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim ShapeFactory1 As ShapeFactory
Set ShapeFactory1 = part1.ShapeFactory

Dim ShapeAffinity1 As Affinity
Set ShapeAffinity1 = ShapeFactory1.AddNewAffinity2(1, 2, 3)

part1.Update

End Sub

---

Um die Referenzen zu setzen kannst du dann über ShapeAffinity1.Hybridshape auf die Befehle im GSD zurückgreifen: zB
ShapeAffinity1.Hybridshape.AxisFirstDirection oReference1

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank, hat soweit funktioniert, musste den Code nur Zeile für Zeile kopieren, ansonsten hat er immer Fehler gezeigt 

Leider verstehe ich den Rest deiner Erklärung nicht ganz, bezieht sich das auf den Ursprung der Skalierung?

Möchte einfach den Nullpunkt als Ursprung setzen..

Gruß
Stefan

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

---

Servus
Ich gehe davon aus, dass die Affinitätsfunktion im PartDesign CATIA-intern mit der Affinität im GSD erstellt/berechnet wird.
Über die Funktion Hybridshape kannst du dann auf die Befehle der GSD-Funktion (HybridShapeFactory) zugreifen.
Wenn du den Ursprung festlegen willst (muss ein Punkt sein) geht dass zB über (siehe auch Doku zu AddNewAffinity):
ShapeAffinity1.Hybridshape.AxisOrigin oReference (oReference = Referenz des Punktes)

Gruß
Bernd

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

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