---

Hi,

ich habe um den Namen eines Punktes zu ändern folgende Zeilen.

aufbau: Product, darin mehrere Parts, Punkt befindet sich in einem GeoSet. Gefunden werden zwei Pubkte, der zweite soll umbenannt werden.

Dim myPoint As MECMOD.GeometricElement

myProductDoc.Selection.Search("(Name='ABC' & CATGmoSearch.Point),all")
myPartNumber = myProductDoc.Product.Products.Item(i + 1).Name
myPartNumber = myPartNumber.Substring(0, myPartNumber.LastIndexOf(".", myPartNumber.LastIndexOf(".") - 1))

myPoint = myProductDoc.Selection.Item2(2).Value
myPoint.Name = "AB_" & myPartNumber

Problem ist an der Stelle .Value in der vorletzten Zeile.

Auf diese Weise habe ich GeoSets und Axen umbenannten, nur beim Punkt gibt's ein Problem.

THX

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

---

Hi Tweety,

kann es sein, dass da ein 'Set' fehlt?
zB Set MyPoint ...

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hi Joe,

nein, leider nicht.

Das ist vb.NET, da entfällt das "Set" vorne dran.

Grüße

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

---

OK.

Weshalb nimmst Du das zweite Element der Selektion?

Code:

---

myPoint = myProductDoc.Selection.Item2(2).Value

---

... und nicht das erste?

Just wondering,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Das erste muss weiterhin so heißen wie bisher.
Nur das zweite bekommt einen neuen Namen.

Hmp.
Bin die ganze Zeit schon am googeln, finde aber nichts.

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

---

Servus
Um was für einen Punkt handelt es sich? (ggf mal ein Bild posten)
("GeometricElement" kenne ich nur von (2D)Elementen in Skizzen)

Gruß
Bernd

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

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

---

Unbenennen_Punkt.JPG

Servus,

Bild habe ich angehangen.
Es ist der Punkt ABC - orange.

Grüße

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

---

Servus
Also in meinem Kurztest geht es mit deinem Code.
Hast du mal den Code an der Stelle angehalten und mit dem Watchfenster die Objekte angeschaut?
Kommt eine Fehlermeldung? Wird der richtige Punkt selektiert?

Gruß
Bernd

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

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

---

Servus,

ich habe es eben gerade nochmal laufen lassen.
Die 2 Punkte, die erstmal beide gleich heißen werden beide gefunden.

Mit der Zeile : myPoint = myProductDoc.Selection.Item2(2).Value  soll dann der zweite davon hergenommen werden und da kommt diese Meldung:

"Unable to cast COM object of type 'System.__ComObject' to interface type 'MECMOD.GeometricElement'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{9BABE7DE-6A87-11D1-A280-0000F87546FD}' failed due to the following error: Schnittstelle nicht unterstützt (Exception from HRESULT: 0x80004002 (E_NOINTERFACE))."}"

Heißt das Geometric Element ist falsch gewählt, wie du schon gesagt hattest? Was ist es dann statt dessen?

Gruß

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

---

Ich habe gerade heraus gefunden, dass du recht hast. Geometric Element ist nur für 2D.

Ich habe eine Skizze gemacht mit einem Punkt ABC und folgendes laufen lassen - wie bisher nur "CATSketchSearch.2DPoint" ist jetzt anders.

            myProductDoc.Selection.Search("(Name='ABC' & CATSketchSearch.2DPoint),all")
            myPartNumber = myProductDoc.Product.Products.Item(i + 1).Name
            myPartNumber = myPartNumber.Substring(0, myPartNumber.LastIndexOf(".", myPartNumber.LastIndexOf(".") - 1))

            myPoint = myProductDoc.Selection.Item2(2).Value
            myPoint.Name = "AB_" & myPartNumber

Punkt in der Skizze gefunden und umbenannt!

OMG wie muss man den Punkt denn deklarieren??

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

---

Servus
Schau doch mal in die V5Automation.chm *grins*
Ich würde es mal mit der Deklaration "Point" probieren.

Gruß
Bernd

PS: Gibt es bei .Net auch eine Objektauflösung? damit kommt man leicht an die Objekte/Deklarationen von bestehenden Strukturen.

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

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

---

GELÖST!

Deklaration für 3D Punkt muss sien:

Dim myPoint As MECMOD.HybridShap

Danke an alle und Grüße

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