---

Bezüge für Form und Lagetoleranzen in einer Zeichnung finden

Hallo,

wir arbeiten auf den Zeichnungen mit Form und Lagetoleranzen.
Nun will ich einen neuen Bezug hinzufügen und will wissen was der letzte Bezugsbuchstabe ist.
Über die Suche habe ich alle Bezüge in den unterschiedlichen Ansichten gefunden.
Das Objekt aus der Selektion habe ich mit Value übernommen, allerdings wird das DrwDatumFeature nicht aufgelistet.

Wie komme ich an das DrwDatumFeature?

Sub CATMain()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection
selection1.Search "CATDrwSearch.DrwDatumFeature,all"
For i = 1 To selection1.Count
Set odat_feature = selection1.Item(i).Value
Next
End Sub

Viele Grüße
Reimund

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

---

Servus

Ich befürchte dass auf alles was mit Form- und Lagetoleranzen zu tun hat per Makro nicht zugegriffen werden kann.
In meinem Kurztest wird die Ansicht und nicht der Bezug per Makro zurückgeliefert, und ist somit unbrauchbar.

Gruß
Bernd

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

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

---

Hallo Bernd,

danke für die Antwort.
Viele Grüße
Reimund

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