Problem mit Selection (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Autor	Thema: Problem mit Selection (485 mal gelesen)
martin2 Mitglied Konstrukteur Beiträge: 941 Registriert: 05.2002.27	erstellt am: 30. Aug. 2008 14:30 <-- editieren / zitieren --> Unities abgeben: Hallo! Kann mir bitte mal jemand schnell einen Tip geben warum bei mir die Selection nicht funktioniert? If (chkBohrungen.Value = True) Then If TypeOf Dokument Is PartDocument Then 'wenn es sich bei der geöffneten Datei um ein CATPart handelt Set Part1 = Dokument.Part For Koerperzaehler = 1 To Part1.Bodies.Count 'für alle Volumenkörper (nicht geöffnete Körper) For Elementezaehler = 1 To Part1.Bodies.Item(Koerperzaehler).Shapes.Count 'für alle Elemente im Volumenkörper If TypeOf Part1.Bodies.Item(Koerperzaehler).Shapes.Item(Elementezaehler) Is Hole Then 'wenn es sich um eine Bohrung handelt Set Auswahl = Part1.Bodies.Item(Koerperzaehler).Shapes.Item(Elementezaehler) visPropertySet1 = Auswahl.VisProperties visPropertySet1.SetRealColor 255, 0, 0, 0 End If Next Elementezaehler Next Koerperzaehler End If End If Bei der Zeile Set Auswahl = Part1.Bodies.Item(Koerperzaehler).Shapes.Item(Elementezaehler) kommt eine Fehlermeldung - aber warum? Danke schon mal im voraus! Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
martin2 Mitglied Konstrukteur Beiträge: 941 Registriert: 05.2002.27 Windows 11 / 64bit CATIA V5-6R2018 bis V5-6R2022	erstellt am: 30. Aug. 2008 16:54 <-- editieren / zitieren --> Unities abgeben: Hallo nochmal, hab's mit viel rumprobieren doch noch hinbekommen. Hat sich also erledigt... Gruß Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
HoBLila Mitglied Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx Beiträge: 1118 Registriert: 29.05.2008 DELL PRECISION T3500 Intel(R) Xeon(R) CPU W3540 @ 2.93GHz 12285 MB RAM NVIDIA Quadro FX 1800 Microsoft Windows 7 Enterprise Service Pack 1 CATIA V5 R19 SP09 HF69 VB6.5 CAA RADE CDC	erstellt am: 01. Sep. 2008 09:29 <-- editieren / zitieren --> Unities abgeben: Nur für martin2 Teilst du dein erlangtes Wissen dann auch mit den anderen? Ich würd's nur fair finden... Ich benötige die Atnwort nicht, aber für andere mit ähnlichen Problemen wäre eine Lösung zu einer gestellten Frage sicher hilfreich. ------------------ Mit freundlichen Grüßen, Henry Schneider alias Lila Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren: Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen, die Natur versucht, immer bessere Idioten zu bauen Xing Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
martin2 Mitglied Konstrukteur Beiträge: 941 Registriert: 05.2002.27	erstellt am: 01. Sep. 2008 18:59 <-- editieren / zitieren --> Unities abgeben: ... na wenn's Dich glücklich macht ... Set oMarkiertesObjekt = Part1.Bodies.Item(Koerperzaehler).Shapes.Item(Elementezaehler) Auswahl.Add oMarkiertesObjekt Set visPropertySet1 = Auswahl.VisProperties visPropertySet1.SetRealColor 210, 210, 255, 0 Gruß Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Mörchen Ehrenmitglied V.I.P. h.c. CAD-Trainerin (CATIA V5) Beiträge: 3830 Registriert: 14.03.2007 Release 19 SP2	erstellt am: 01. Sep. 2008 19:06 <-- editieren / zitieren --> Unities abgeben: Nur für martin2 Hallo Martin, das macht uns alle glücklich! Gruß Mörchen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)