---

Hallo Zusammen

Habe ein Makro welches mir in einem Product ein Part über (selection1.Search Dateisuche )
also über seinen Dateinamen sucht.
Danach bearbeite ich das Part mit
Set MyPart = selection1.Item(1).Value  und so weiter.
Jetzt kommt es vor das bei einigen Parts mir das Makro an der Stelle
(Set MyPart = selection1.Item(1).Value) mit einem Debut abbricht.
Lösche ich die Parts und füge die gleichen Parts wieder ein habe ich den Fehler nicht mehr.
Ich hoffe dass ich das so verständlich beschrieben habe.
Ich möchte nicht gerne das ganze Makro posten.

Was kann das sein?

Gruß

Ralf

------------------
KOBUE

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

---

Servus
Was für ein Objekt liefert dir die Selektion (für Iten(1)) zurück (TypeName)? Wurde was selektiert (zB count)?

Gruß
Bernd

PS: AFAIR sollte bei einer Selektion eher Item2 statt Item verwendet werden

EDIT: Falls du den Dokumentennamen kennst kannst du auch übe die Document-Collection auf das Teil zugreifen.

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

[Diese Nachricht wurde von bgrittmann am 28. Mai. 2013 editiert.]

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

---

Hallo Bernd

Ich bestimme danach die Rohteilmaße.

Set MyPart = selection1.Item(1).Value
Set MyBody = MyPart.MainBody

Dim Pruefen

Pruefen = MyBody.Sketches.Count + MyBody.Shapes.Count + MyBody.HybridBodies.Count

u.s.w.

Gruß

Ralf

------------------
KOBUE

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

---

Servus
Und welches Objekt liefert  "selection1.Item(1).Value" im Fehlerfall zurück? oder wird ggf kein Teil selektiert? (selection1.count)
Als was ist MyPart deklariert?

Gruß
Bernd

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

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

---

Hallo Bernd

MyPart ist deklariert als Part (Dim MyPart As Part)

Bei der Abfrage mit (selection1.Item(1).Value.Name) ist auch das richtige Part selektiert.

Gruß

Ralf

------------------
KOBUE

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

---

Servus
Was liefert TypeName(selection1.Item(1).Value) zurück? (im Fehlerfall)
Wie sieht dein Suchstring aus?

Gruß
Bernd

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

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

---

Hallo Bernd

Dateisuche = Name=01234_500_PLATTE,all
selection1.Search Dateisuche

MsgBox (selection1.Item(1).Value.Name) = 01234_500_PLATTE

Set MyPart = selection1.Item(1).Value  Da Abbruch des Programm.

Gruß

Ralf

------------------
KOBUE

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

---

Servus Ralf
IMHO ist die Suche nicht eindeutig, denn sie liefert dir jedes Objekt mit dem Namen "01234_500_PLATTE" also ggf das PartDocument, das Product, oder das Part. (oder heißt zB eine Ebene noch so)
Entweder du machst die Suche eindeutig zB  "CATAsmSearch.Part.PartNumber=01234_500_PLATTE,all" oder du greifst direkt audf das Dokument zurück (falls der Dateinamen bekannt ist): catia.documents.item("01234_500_PLATTE.CATPart")

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 deine Hilfe.

Werde das ganze mal test und mich dann melden.

Noch mal Danke.

Gruß

Ralf

------------------
KOBUE

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