---

Hallo zusammen !

Kann ich in einer Zeichung ( sehr komplex und auch schon teilweise vermasst) den  Koordinatennullpunkt versetzen ?

Ich kann zwar mit einer neuen Achse im vorhinein meinen Bem. N Punkt
selber wählen aber halt nicht mehr nachträglich.
Wäre toll wenn das gehen würde ansonsten muss ich die Zeichung löschen
und neu ableiten.

Grüsse KH

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

---

Hi Klaus-Heinz.
Für welche Art der Bemaßung denn? Punkt- oder Kreistabellen?

------------------
gruß, Tom 

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

---

Bildvermsaaen.PNG

Hallo Tom

es geht um die folgende Bemassung ( siehe Bild)

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

---

Hi Klaus-Heinz.
Meines Wissens geht das nicht.Ich habs gerade mal probiert mit "Modify Projection Plane". Führte aber leider auch nicht zum Erfolg...

------------------
gruß, Tom 

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

---

Danke erstmal !

Schade das es nicht geht.

Gruss KH

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

---

Servus
Per Makro kann man nachträglich das Achsensystem ändern.
Anbei ein Beispiel:

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.Item(1)

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item(3)

Dim oProduct As Product
Set oProduct = drawingView1.GenerativeBehavior.Document

Dim oPart As Part
Set oPart = oProduct.Parent.Part

Dim oAxissytem As AxisSystem
Set oAxissytem = oPart.AxisSystems.Item("Test")

drawingView1.GenerativeBehavior.SetAxisSysteme Nothing, oAxissytem

drawingView1.GenerativeBehavior.ForceUpdate

End Sub

---

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 16. Dez. 2011 editiert.]

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

---

Hallo Bernd

Hatte erst jetzt gesehen das du zu meiner Frage was gepostet hattest.
Dachte das dieses Thema durch wäre. Sorry
Habe dein Makro Test kopiert und ein Makro erzeugt.
Ich habe zu diesem Makro jetzt eine Frage !
Wie wende ich dieses auf die Achse an zu der jetzt die Vermassung ausgehen soll.

mit freundlichen Grüssen KH

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

---

Servus
Du solltest nur in der Zeile: (nur getestet wenn das Achsensystem nicht in einem GeoSet aufgeführt ist)
Set oAxissytem = oPart.AxisSystems.Item("Test")
Den Namen des Achsensystems anpassen müssen.
Vorsicht, das Makro ändert das Achsensystem nur in der 1. Ansicht auf dem 1. Blatt.

Gruß
Bernd

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

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

---

BildMakro.PNG

Hallo Bernd !

Habe in der von dir geschriebenen Spalte den Achsennamen eingefügt.
Dann im Draw. Makro / Makro ausführen bekomme ich eine Fehlermeldung.

Gruss KH

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

---

Servus
Kopiere den Code in ein CATScript nicht in ein CATvbs-Makro.

Gruß
Bernd

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

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

---

Super  !!!

Vielen Dank !! Funktioniert einwandfrei.

Grüsse KH

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