Autor
|
Thema: Join enthält leere Sketche (894 mal gelesen)
|
Erich Mitglied Senior Consultant selbstständig
Beiträge: 198 Registriert: 03.10.2000 i7-9850H RAM 32,0 GB Nvidia Quadro T2000 Windows 7 Professional 64Bit
|
erstellt am: 17. Jun. 2014 13:52 <-- editieren / zitieren --> Unities abgeben:
Hallo wenn ich in der Schnittefunktion im Assembly-Design automatisiert Schnitte erzeugen lassen, werden diese auch gleich im Catpart abgespeichert. Möchte ich jetzt diese Schnitte, die aus Sketchen bestehen, weiterverwenden, kann es passieren das ein oder mehrere Sketche leer sind. Frage: Wie kann ich im Programm analysieren, bevor die Sketche in einem Join zusammenfasst werden, abfragen ob diese Sketche keine Geometry haben? ------------------ mfg Erich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 17. Jun. 2014 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für Erich
Servus Du könntest die Anzahl der GeometricElements in der Skizze auswerten: Code: Sub CATMain()Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim hybridBody1 As HybridBody Set hybridBody1 = hybridBodies1.Item(1) Dim sketches1 As Sketches Set sketches1 = hybridBody1.HybridSketches Dim sketch1 As Sketch Set sketch1 = sketches1.Item(1) MsgBox sketch1.GeometricElements.Count End Sub
Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Erich Mitglied Senior Consultant selbstständig
Beiträge: 198 Registriert: 03.10.2000 i7-9850H RAM 32,0 GB Nvidia Quadro T2000 Windows 7 Professional 64Bit
|
erstellt am: 26. Jun. 2014 10:29 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd ich bin auf einen Fehler, bei der Auswertung mit Deinem Script gekommen. Im anhängenden Part sind 12 Elemente, das Script findet nur 11? Hast Du eine Idee woran das liegt? ------------------ mfg Erich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 26. Jun. 2014 18:36 <-- editieren / zitieren --> Unities abgeben: Nur für Erich
Servus Irgendwie kann das Makro nichts mit den Polylinien anfangen. Diese gehören scheinbar von der API her nicht zu den GeometricElements. (die 11 Elemente kommen durch: 10 Punkte und Linien + Achsensystem) Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Erich Mitglied Senior Consultant selbstständig
Beiträge: 198 Registriert: 03.10.2000 i7-9850H RAM 32,0 GB Nvidia Quadro T2000 Windows 7 Professional 64Bit
|
erstellt am: 27. Jun. 2014 07:56 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd folgende Selection.Search funktioniert - ... Selection1.Search "CATSketchSearch.2DGeometry,Sel" ... Gibt es hierfür auch einen Aufruf ohne Selection? In der Art - Schleife über alle Sketche und pro Sketch die Abfrage nach vorhandenen 2DGeoemetry Features? Zur Info - Diese Suche findet auch Polylines! (In der Automation habe ich nichts gefunden.) Ich freu mich über jeden Vorschlag. Danke. ------------------ mfg Erich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |