Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Stempel zuverlässig auslesen

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:  Stempel zuverlässig auslesen (1610 mal gelesen)
gunngir
Mitglied
Technischer Produktdesigner


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

Beiträge: 17
Registriert: 17.06.2014

Catia V5R19 SP9 64Bit

erstellt am: 11. Jul. 2014 10:56    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


Lokales_Fenster.jpg

 
Hallo Ihrs   

Kennt Ihr eine Herangehensweise, wie man Textfelder von Stempeln zuverlässig ausliest?

Leider komme ich selbst nur an die Textinhalte der !Stempelvorlage!,
welche nicht benötigt wird,
sondern die Textinhalte selbst des Stempels auf der Seite.


Hier ein Teil des Quellcodes:


Sub CatMain()
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.workbooks.Add
A_Index = 0


Set DrawingDocument1 = CATIA.ActiveDocument

Set DrawingSheets1 = DrawingDocument1.Sheets

BlattName = DrawingSheets1.ActiveSheet.Name

Set DrawingSheet1 = DrawingSheets1.Item(BlattName)


Set DrawingViews1 = DrawingSheet1.Views
For Blaetter_Zaehlen = 1 To DrawingViews1.Count
ReDim Array_A_Index(500, 3)
A_Index = 0

If DrawingViews1.Item(Blaetter_Zaehlen).Name <> "Main View" And Mid(DrawingViews1.Item(Blaetter_Zaehlen).Name, 1, 10) <> "Background" Then
    Set DrawingView1 = DrawingViews1.Item(Blaetter_Zaehlen) 'this is the parent view of the section view
   
   
    'Set Sel = DrawingDocument1.Selection
   
    Set DrawingComponents1 = DrawingView1.Components
   
   
    ReDim MyArray(DrawingComponents1.Count, 9, 2)
    For I = 1 To DrawingComponents1.Count
       
        DrawingView1.LockStatus = False         'View auf entsperren
        Set Thing = DrawingComponents1.Item(I).CompRef
        MyArray(I, 0, 0) = Thing.Name
        For K = 1 To Thing.Texts.Count
            Erg = Thing.Texts.Count
                tempvar = Thing.Name
                For Z = 1 To Thing.Texts.Count
                    tempvar = tempvar & vbLf & Thing.Texts.Item(Z).Text
                Next Z
            MsgBox tempvar & vbLf & Thing.Texts.Item(K).Text
            Call Select_Case
        Next 'K
    Next 'I

[Diese Nachricht wurde von gunngir am 11. Jul. 2014 editiert.]

[Diese Nachricht wurde von gunngir am 11. Jul. 2014 editiert.]

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: 11. Jul. 2014 12: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 Nur für gunngir 10 Unities + Antwort hilfreich

Servus
Für die 2D-Comopnente (nicht die CompRef) gibt es die Methoden "GetModifiableObject" um auf die veränderlichen Objekte zugreifen zu können.
(ggf mit einer Schleife (bis GetModifiableObjectsCount) das richtige Objekt bestimmen)

Gruß
Bernd

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

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

gunngir
Mitglied
Technischer Produktdesigner


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

Beiträge: 17
Registriert: 17.06.2014

Catia V5R19 SP9 64Bit

erstellt am: 21. Jul. 2014 19:40    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

Danke, habe morgen wieder Zeit um an dem Makro weiter zu arbeiten.

Sorry für die späte Antwort 

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

gunngir
Mitglied
Technischer Produktdesigner


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

Beiträge: 17
Registriert: 17.06.2014

Catia V5R19 SP9 64Bit

erstellt am: 05. Aug. 2014 08:52    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

Vielen Dank!

Dank der Antwort und diesem Thread:
http://ww3.cad.de/foren/ubb/Forum137/HTML/002459.shtml
funktioniert das Makro nun.

Quellcode für "Nachfolger":


Public Sub catmain()
    Dim drawingComponent1 'As DrawingComponent
    Dim abc
    Dim iModifiableObjectsCount 'As Integer
    Dim iCurrModObj 'As Integer
   
Set DrawingDocument = CATIA.ActiveDocument
Set DrawingSheet = DrawingDocument.Sheets.ActiveSheet
Views_Max = DrawingSheet.Views.Count
For views_counter = 1 To Views_Max
    Set View = DrawingSheet.Views.Item(views_counter)
   
    Items_Max = View.Components.Count
    For item_counter = 1 To Items_Max
        Set DrawingComponent = View.Components.Item(item_counter)
        iModifiableObjectsCount = DrawingComponent.GetModifiableObjectsCount
        For iCurrModObj = 1 To iModifiableObjectsCount
            Set abc = DrawingComponent.GetModifiableObject(iCurrModObj)
            abc.Text = "_ " & abc.Text
        Next 'iCurrModObj
    Next 'Item_Counter
Next 'views_counter

End Sub

Greets, Gunngir.

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