Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  CATDrawing Dimensions & Tolerances export

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:  CATDrawing Dimensions & Tolerances export (758 mal gelesen)
MarcL68
Mitglied
Group Leader Mechanical Design


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

Beiträge: 27
Registriert: 21.08.2013

Windows 10 Entreprise
Version 10.0.17763
HP ZBook 17G2 i7-4610M; 3.0GHz;(RAM)16,00 Go
NVIDIA Quadro 3000M
CATIA V5R2012 SP3 - V5R2018

erstellt am: 01. Mai. 2021 18:30    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 Zusammen,

Ich habe eine Makro geschrieben um die Drawing Dimensions mit ihrer Tolerance nach Excel zu exportieren.
Soweit klappt es.

Code:
    ' ------------------------------------------------------
    ' *** Macro d'export des cotations d'un Catdrawing  ***
    ' ***          vers Excel                          ***
    ' ***          Langage VBA                          ***
    'https://catiav5.forumactif.org/t1452-catdrawing-vers-excel
    ' ------------------------------------------------------
    'voir aussi https://www.eng-tips.com/viewthread.cfm?qid=345707

    Sub CATMain()

    Dim myDrawing As DrawingDocument

    Dim oTolType As Long
    Dim oTolName As String
    Dim oUpTol As String
    Dim oLowTol As String
    Dim odUpTol As Double
    Dim odLowTol As Double
    Dim oDisplayMode As Long

    ' ------------------------------------------------------
    ' *** Vérifie si le document actif est un CATDrawing ***
    ' ------------------------------------------------------

    On Error Resume Next
    Set myDrawing = CATIA.ActiveDocument
    If (Err.Number <> 0) Then
        MsgBox ("Un CATDrawing doit être actif")
       
        Exit Sub
    End If
    If (InStr(myDrawing.Name, ".CATDrawing")) = 0 Then
        MsgBox ("La fenêtre active doit être un CATDrawing")
            Exit Sub
    End If
    Err.Clear
    On Error GoTo 0

    ' *** Sélectionne toutes les cotes ***

    Dim selection1 As Selection
    Set selection1 = myDrawing.Selection
    selection1.Clear
    selection1.Search "CATDrwSearch.DrwDimension,all"


    ' *** Lance Excel ***

    Dim xl As Object 'Excel.Application
    On Error Resume Next
    Set xl = GetObject(, "Excel.Application")
    If Err <> o Then
        Set xl = CreateObject("Excel.Application")
        xl.Visible = True
    End If

    Set workbooks = xl.Application.workbooks
    Set myworkbook = xl.workbooks.Add
    Set myworksheet = xl.ActiveWorkbook.Add
    Set myworksheet = xl.Sheets.Add

    ' *** titre des colonnes d'Excel ***

    myworksheet.Range("A1").Value = "Type"
    myworksheet.Range("B1").Value = "Cote"
    myworksheet.Range("C1").Value = "Tolérance mini"
    myworksheet.Range("D1").Value = "Tolérance maxi"

    ' *** traitement des cotations ***

    For i = 1 To selection1.Count
        Set MyDimension = selection1.Item(i).Value
        MyDimensionValue = MyDimension.GetValue.Value
        ' traitement des tolérances
        MyDimension.GetTolerances oTolType, oTolName, oUpTol, oLowTol, odUpTol, odLowTol, oDisplayMode
        myworksheet.cells(i + 1, 2).Value = MyDimensionValue
        If oTolType = 1 Then 'tolérance numérique
            myworksheet.cells(i + 1, 3).Value = odLowTol
            myworksheet.cells(i + 1, 4).Value = odUpTol
        End If
            If oTolType = 2 Then 'tolérance alphanumérique
            myworksheet.cells(i + 1, 3).Value = oLowTol
            myworksheet.cells(i + 1, 4).Value = oUpTol
        End If
        ' traitement des types de cotations
        MyDimType = MyDimension.DimType
        Select Case MyDimType
            Case 5, 6, 7, 8, 17, 19        'cote type rayon
                MyDimTypeTexte = "R"
            Case 9, 10, 11, 12, 13, 18
                MyDimTypeTexte = "Ø"        'cote type diamètre
            Case 14
                MyDimTypeTexte = "Ch"      'cote type chanfrein
            Case 4
                MyDimTypeTexte = "Angle"    'cote d'angle
            Case Else
                MyDimTypeTexte = ""        'cote type longueur-distance
        End Select
        myworksheet.cells(i + 1, 1).Value = MyDimTypeTexte
       
        odLowTol = 0
        odUpTol = 0
        oUpTol = ""
        oLowTol = ""

    Next

    End Sub



Ich möchte jetzt aber auch die Geometrical Tolerance exportieren.
Ich kann sie selektieren aber komme nicht weiter um das Symbol und Werten rauszuholen.
Code:
selection1.Search "((CATTPSSearch.TPSGeometricalAnnot + CAT2DLSearch.DrwGDT) + CATDrwSearch.DrwGDT),all"


Ist es machbar?

------------------
Gruss
Marc

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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 01. Mai. 2021 18:41    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 MarcL68 10 Unities + Antwort hilfreich

Servus Marc

AFAIK nein.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

MarcL68
Mitglied
Group Leader Mechanical Design


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

Beiträge: 27
Registriert: 21.08.2013

Windows 10 Entreprise
Version 10.0.17763
HP ZBook 17G2 i7-4610M; 3.0GHz;(RAM)16,00 Go
NVIDIA Quadro 3000M
CATIA V5R2012 SP3 - V5R2018

erstellt am: 01. Mai. 2021 18:51    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 Bernd,

Ich habe diese Antwort gefürchtet 

------------------
Gruss
Marc

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

thomasacro
Ehrenmitglied V.I.P. h.c.
Ingenieur Anwendungsberater



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

Beiträge: 3716
Registriert: 12.05.2004

V4
V5 2016 - 2020
V6 2016x -2019x

erstellt am: 01. Mai. 2021 21:08    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 MarcL68 10 Unities + Antwort hilfreich

Hi Marc.
Darf ich fragen woür du so etwas brauchst? Die Eunträge sind weder semantiscvh noch auf sinnhaftigkeit geprüft. Es sind lediglich Texte und Symbole ohne irgendeine Information.
FTA dagegen hat einen Advisor, der nur semantische Toleranzen erzeugt, die dann auch Maschinenlesbar sind...

------------------
gruß, Tom 

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