Autor
|
Thema: Linienlänge und Flächen mit makro auslesen (3543 mal gelesen)
|
B Hossbach Mitglied Studi
Beiträge: 17 Registriert: 15.11.2007
|
erstellt am: 23. Apr. 2008 12:14 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich habe ein relativ großes Part, in dem ich in Geosets verschiedene Surfaces und Linien drin habe. Die Geosets sind in einer bestimmten Ordnerhierarchie unterteilt, die beibehalten werden muss Besteht die Möglichkeit per Makro den Namen des Geosets und der Linie mit Ihrer Länge, bzw den Namen der Surface und Ihrer Fläche abzufragen? Habe in der Literatur (Dieter Ziethen) nur entdeckt, dass man Parameter auslesen kann. Damit müsste ich aber alle Elemente noch mal in den Parameters mit der Ordnerhierarchie ablegen - und das ist wenig user-Freundlich. Danke für Eure Hilfe. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jens Hansen Mitglied Senior Consult
Beiträge: 1055 Registriert: 05.08.2000 Win7 CATIA V5 R19 VB.Net C#
|
erstellt am: 23. Apr. 2008 13:02 <-- editieren / zitieren --> Unities abgeben: Nur für B Hossbach
|
B Hossbach Mitglied Studi
Beiträge: 17 Registriert: 15.11.2007
|
erstellt am: 23. Apr. 2008 13:31 <-- editieren / zitieren --> Unities abgeben:
Die Namen der Geo Sets sind bekannt. Die Bezeichnungen der darin enthaltenen Elemente können variieren wie komme ich auf die Länge und Fläche der Elemente? Excel.Worksheets(2).cells(1,1).value = part.Geometrical Set.1. ?! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jens Hansen Mitglied Senior Consult
Beiträge: 1055 Registriert: 05.08.2000 Win7 CATIA V5 R19 VB.Net C#
|
erstellt am: 23. Apr. 2008 13:41 <-- editieren / zitieren --> Unities abgeben: Nur für B Hossbach
|
tberger Mitglied Application Manager CATIA V5 / V6
Beiträge: 1385 Registriert: 13.01.2007 WIN 7 64bit V5R21SP3HF49 3DX/V6 R2016x
|
erstellt am: 23. Apr. 2008 13:49 <-- editieren / zitieren --> Unities abgeben: Nur für B Hossbach
Vielleicht bekommst du den Wert ueber Set oSpaWB = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set oMeas = oSpaWB.GetMeasurable(Surface) oMeas.Area SurfaceArea sodass dann SurfaceArea den Flaecheninhalt beschreibt. Laenge einer Linie koennte ueber Length anstelle von Area gehen. Ich habe das nicht getestet, nur aus meinem Gedaechtnis zusammengezimmert. Gruesse aus dem Rheinland
Thomas ------------------ CATIA - eine Laune der Natur ... [Diese Nachricht wurde von tberger am 23. Apr. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
B Hossbach Mitglied Studi
Beiträge: 17 Registriert: 15.11.2007
|
erstellt am: 23. Apr. 2008 14:00 <-- editieren / zitieren --> Unities abgeben:
Ich will es bloß in Excel reinschreiben, deswegen der Bezug auf die Excel - zelle. Der Zugriff auf die Objekte scheint doch etwas komplizierter zu sein. Ich weiß nicht, wie ich vom product auf das Element in dem GeoSet komme. CATIA.ActiveDocument.Product. ?.?.? myHybridbody.HybridShapes.Count danke für Deine Hilfe, Jens. Aber ich denke, dass ich da noch einige Defizite in Bezug auf VBA habe. Werde mich noch mal mit den Grundlagen beschäftigen und erstmal das Buch durcharbeiten. Gruß Björn
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
B Hossbach Mitglied Studi
Beiträge: 17 Registriert: 15.11.2007
|
erstellt am: 23. Apr. 2008 16:45 <-- editieren / zitieren --> Unities abgeben:
|
Jens Hansen Mitglied Senior Consult
Beiträge: 1055 Registriert: 05.08.2000 Win7 CATIA V5 R19 VB.Net C#
|
erstellt am: 23. Apr. 2008 16:48 <-- editieren / zitieren --> Unities abgeben: Nur für B Hossbach
|
B Hossbach Mitglied Studi
Beiträge: 17 Registriert: 15.11.2007
|
erstellt am: 23. Apr. 2008 17:44 <-- editieren / zitieren --> Unities abgeben:
Es wird... Ich habe nun die Linien und Flächen gefunden. Wie komme ich denn nun an die Länge? Diese Sache mit der SPA WORKBENCH funktioniert nicht richtig. Problem ist auch, dass ich nicht nur explizit Linien (PtDir, PtPt, etc) drin habe, sondern Splits, Intersects, etc... Aber alles Linien, oder eben Flächen. Alles was ich will, sind doch bloss die Geosets mit Ihrer Bezeichnung und Inhalten in einer Excel Tabelle :'-(t [Diese Nachricht wurde von B Hossbach am 23. Apr. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
B Hossbach Mitglied Studi
Beiträge: 17 Registriert: 15.11.2007
|
erstellt am: 25. Apr. 2008 16:22 <-- editieren / zitieren --> Unities abgeben:
So. Jetzt hab ichs: '------------------------------------------------------------------------------------------------------- 'Linienlaenge messen Function LinienLaenge(Param) Dim TheSPAWorkbench, TheMeasurable, Laenge Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set TheMeasurable = TheSPAWorkbench.GetMeasurable(Param) Laenge = TheMeasurable.Length LinienLaenge = Laenge End Function '------------------------------------------------------------------------------------------------------- 'Flaeche messen Function FlaechenWert(Param) Dim TheSPAWorkbench, TheMeasurable, Flaeche Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set TheMeasurable = TheSPAWorkbench.GetMeasurable(Param) Flaeche = TheMeasurable.Area FlaechenWert = Flaeche End Function '------------------------------------------------------------------------------------------------------- Allen ein schönes WE... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
B Hossbach Mitglied Studi
Beiträge: 17 Registriert: 15.11.2007
|
erstellt am: 25. Apr. 2008 16:23 <-- editieren / zitieren --> Unities abgeben:
|