---

Hallo zusammen,

ich möchte in einer Drawing den schon existierenden Zeichnungskopf (Sheet Komponente) im Detail Sheet auf eine bestimmte Position verschieben. Der Makrorekorder funktioniert nicht :-((!
Hat da jemand von Euch eine Idee wie ich das mit einem VBA Makro anstellen kann?

Vielen Dank schon mal im Voraus

Wolfgang

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

---

Servus
Jede Komponente hat die Eigenschaft x und y. zB:

Code:

---

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingSheet1.Views.Item(2)

Dim drawingComponents1 As DrawingComponents
Set drawingComponents1 = drawingView1.Components

Dim drawingComponent1 As DrawingComponent
Set drawingComponent1 = drawingComponents1.Item(1)

drawingComponent1.X = 100
drawingComponent1.Y = 100

End Sub

---

Gruß
Bernd

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

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

---

Hallo Wolfgang,

Willst du die gesamte Ansicht auf eine spezielle Position schieben oder nur die GeometricalElements innerhalb der Ansicht?

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,

ich habe ein exisiterendes Sheet die eine Komponente beinhaltet. Und diese Komponente möchte ich auf eine bestimmte Position verschieben.
Die Antwort von bgrittmann hat mit zum Erlfolg geführt.

Vielen Dank nochmal

Gruß
Wolfgang

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

---

Hallo Zusammen,

ich habe auch ne Frage:
warum kann ich mit eine Selection nicht zugreifen?

Code:

---

Dim drawingComponent1 As DrawingComponent
Set drawingComponent1 = drawingComponents1.Item(selection1.Item(1).Value)

---

Fehlermeldung: Automation Error

Vielen Dank im Voraus

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

---

Servus
Was hast du denn selektiert? Warum gehst du noch über das Item der drawingComponents-Collection? Sollte doch auch so gehen:

Code:

---

Dim drawingComponent1 As DrawingComponent
Set drawingComponent1 = selection1.Item2(1).Value

---

gruß
Bernd

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

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

---

Perfekt, vielen dank Bernd!

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