Autor
|
Thema: Makro um Werte/Maße auszulesen (2941 mal gelesen)
|
zeneise87 Mitglied Student
Beiträge: 18 Registriert: 14.03.2011
|
erstellt am: 26. Apr. 2011 11:33 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich muss für ein Projekt ein Makro programmieren, das dem Anwender bestimmte Werte/Maße aus einem bestehenden CATProduct angibt. Da ich ein kompletter Neuling in der Makroprogrammierung bin, weiss ich nicht einmal, wie man im Makro selber auf Catia zugreift und wie man Variablen definieren muss, damit diese Werte aus meinem product ausgelesen werden. Könnte mir jemand die Grundstruktuer eines solchen Makros aufzeigen/erklären? Mit welcher Funktion lese ich Maße oder Werte aus? Vielen Dank! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christian.O Mitglied Konstrukteur
Beiträge: 1212 Registriert: 17.07.2009 Celsius-Mobile H720 i7-3840QM 32 Gb Arbeitsspeicher 256 Gb SSD Quadro K2000M Windows 7 Professional (64 Bit) Catia V5R19 (64 Bit) SpacePilot Pro
|
erstellt am: 26. Apr. 2011 19:27 <-- editieren / zitieren --> Unities abgeben: Nur für zeneise87
Servus, als erstes würde ich dir mal diesen Link empfehlen, damit du eine Grundlage hast bzw. erlernen kannst. Welche Werte bzw. Maße willst du den überhaupt auslesen? ------------------ Mit freundlichen Grüßen aus Tirol Christian Obholzer Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
zeneise87 Mitglied Student
Beiträge: 18 Registriert: 14.03.2011
|
erstellt am: 27. Apr. 2011 11:55 <-- editieren / zitieren --> Unities abgeben:
Hallo, habe mich jetzt anhand der genannten Bücher etwas eingearbeitet. Im Prinzip brauche ich ein Makro, das mir gewisse Größen aus einem Catpart ausliest und über eine MsgBox ausgibt. Habe hier mal schonmal angefangen: Private Sub CommandButton1_Click() Dim WingRefArea As Double Dim part1 As Part 'Auflösungsscripts für Objekt: AIRBUSREFAREA Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set hybridBodies1 = part1.HybridBodies Set hybridBody1 = hybridBodies1.Item("WingRefArea") Set hybridBodies2 = hybridBody1.HybridBodies Set hybridBody2 = hybridBodies2.Item("Airbus") Set hybridShapes1 = hybridBody2.HybridShapes Set hybridShapeFill1 = hybridShapes1.Item("Füllen.8") WingRefArea = hybridShapeFill1.Area MsgBox "Reference Wing Area:" & WingRefArea & "m²" End Sub Allerdings gibt mir der Debugger ein Problem bei "WingRefArea = hybridShapeFill1.Area" an. Die Method/Property stimmt nicht.Hat jemand eien Idee, wie ich den Wert der Fläche auslesen kann?? Ist wirklich dringend! Vielen Dank! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
Christian.O Mitglied Konstrukteur
Beiträge: 1212 Registriert: 17.07.2009 Celsius-Mobile H720 i7-3840QM 32 Gb Arbeitsspeicher 256 Gb SSD Quadro K2000M Windows 7 Professional (64 Bit) Catia V5R19 (64 Bit) SpacePilot Pro
|
erstellt am: 27. Apr. 2011 12:59 <-- editieren / zitieren --> Unities abgeben: Nur für zeneise87
|