Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Volumen von einem Body/Part ermitteln und in MsgBox dargstellen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Volumen von einem Body/Part ermitteln und in MsgBox dargstellen (1220 mal gelesen)
Animexx
Mitglied



Sehen Sie sich das Profil von Animexx an!   Senden Sie eine Private Message an Animexx  Schreiben Sie einen Gästebucheintrag für Animexx

Beiträge: 15
Registriert: 15.08.2008

Windows XP SP2
Catia V5 R19
Visual Studie 2008 Pro

erstellt am: 09. Jun. 2009 19:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo @ all,

ich versuche seit langen Volumen eines Bauteils per VBA auszulesen und dann in einer MsgBox darzustellen. Kann mir wer bitte dabei helfe?

Gruß

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

zoltan.bekesi
Mitglied



Sehen Sie sich das Profil von zoltan.bekesi an!   Senden Sie eine Private Message an zoltan.bekesi  Schreiben Sie einen Gästebucheintrag für zoltan.bekesi

Beiträge: 321
Registriert: 22.10.2006

Job:
CATIA V5R19 / XP 32bit
MS Office 2003
Microstation V8 2004 Edition
DELL Precision M6300

erstellt am: 09. Jun. 2009 20:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Animexx 10 Unities + Antwort hilfreich

Hallo Animexx,

Volumen kannst du mit Hilfe von SPAWorkbench (Space Analysis Workbench) messen.
In V5Automation.chm (im CATIA Verzeichnis) kannst du auf Volume suchen, bzw. auf SPAWorkbench. Dort ist ein Beispiel, wie man das macht, aber hier im Forum müsste auch einiges mit SPAWorkbench stehen.
Grobe Beschreibung:
-SPAWorkbench von Part deklarieren und einen Objekt zuweisen.
-Referenz auf das zu messende Objekt erzeugen
-mit GetMeasurable ein Messobjekt auf den Referenz erzeugen
-Volumen abfragen

Versuche das so und falls noch konkrete Fragen kommen, stelle die mit Kodeschnipsel hier ruhig.

Gruß,
Zoltan

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

Florian Held
Mitglied
Teamleiter CAD-Solutions


Sehen Sie sich das Profil von Florian Held an!   Senden Sie eine Private Message an Florian Held  Schreiben Sie einen Gästebucheintrag für Florian Held

Beiträge: 81
Registriert: 07.09.2006

erstellt am: 09. Jun. 2009 20:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Animexx 10 Unities + Antwort hilfreich

Hi,

Ausgangssituation:
- geöffnet (aktives Document) = Part

Ergebnis des Beispielmakros:
- Es werden alle Körper durchlaufen (egal ob "direkt" im Part oder mittels boolscher Operation in anderem Körper) und wenn das erste Feature in einem Körper ein Volumen ist wird der Volumenname und der Körper in dem dies sitzt in einer Meldung ausgegeben (Wobei bei vielen Körpern der Text wahrscheinlich für eine MsgBox zu lang ist    )

Code:

Sub CATMain()

    Set oBodies = CATIA.ActiveDocument.Part.Bodies
    sTmp = ""
   
    For i = 1 To oBodies.Count
       
        If TypeName(oBodies.Item(i).Shapes.Item(1)) = "Solid" Then
            sTmp = sTmp & oBodies.Item(i).Shapes.Item(1).Name & _
                          " (in: " & oBodies.Item(i).Name & ")" & _
                          Chr(10)
        End If
   
    Next
   
    MsgBox sTmp

End Sub



------------------
MfG,
Florian Held

[Diese Nachricht wurde von Florian Held am 09. Jun. 2009 editiert.]

[Diese Nachricht wurde von Florian Held am 09. Jun. 2009 editiert.]

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz