---

NumberingCatiaV5.PNG

Hallo zusammen,
ich bin auf der Suche nach einem Makro, mit welchem die Maße eines drafting zunächst erst einmal nummeriert werden. Habe hier zu eine Beispiel Zeichnung hochgeladen. Anschließend sollen die Maße, mit der dazu bereits exestierenden Nummer, automatisch, in eine Excel-Tabelle geladen werden. Meine programmierkentnisse beschränken sich auf VBA, habe bisher fast nur Excel programmiert.

Vielen Dank für einen eventuellen Vorschlag

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

---

Hi ph,

kurze Frage:

Wie verknüpfst Du die Nummern mit den Massen?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hi Joe,
bisher sind die Nummern mit Maßen üerbhaupt nicht verknüpft. Ich habe einfach über die Insert -> Annotations -> Text -> Baloon die Nummern eingefüt und anschließend alles per Copy Paste nach excel kopiert.

Hoffe das war die Antwort auf deine Frage

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

---

Servus
Grundsätzlich kannst du über die Dimensioncollection der View auf die Bemaßungen zugreifen und dann den Wert auslesen (siehe auch Doku und Watchfenster)
Wenn deine Text nicht mit den entsprechenden Bemaßungen verknüpft sind (zB direkt der Text, oder die Hinweislinie (Leader)) wird es schwer bis unmöglich die Zusammengehörigkeit zu bestimmen.

Gruß
Bernd

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

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

---

Hi,

so hat's auch ausgesehen.

Über
... View.Texts.item(i).AssociativeElement.Name
oder
... View.Texts.item(i).Leaders.Item(1).HeadTarget.Name
lässt sich das mit dem Text verknüpfte Element bestimmen.

Der Weg wäre also:

- Doc zuweisen
- Sheet zuweisen
- Views durchlaufen
- in den Views die Texte durchlaufen
- die verknüpften Masse bestimmen
- Texte und Masse in einem Array oder Ähnlichem zwischenspeichern
- nach Excel übetragen

Nachdem in den Ansichten auch andere Texte existieren, wird das Hauptproblem sein zu erkennen,
welche Du brauchst.

Ein kleines Skript hierzu:

Code:

---

Option Explicit

Sub catmain()
Dim oAdd As DrawingDocument
Dim oSh As DrawingSheet
Dim oVw As DrawingView
Dim n As Integer
Dim m As Integer
Dim oTxt As DrawingText

Set oAdd = CATIA.ActiveDocument
Set oSh = oAdd.Sheets.ActiveSheet

For n = 3 To oSh.Views.Count
  Set oVw = oSh.Views.Item(n)
     
  For m = 1 To oVw.Texts.Count
      Set oTxt = oVw.Texts.Item(m)
      If oTxt.Leaders.Count <> 0 Then
       
        Debug.Print oTxt.Text, oTxt.Leaders.Item(1).HeadTarget.Name
      End If
  Next
Next

End Sub

---

Das VBA-Makro setzt voraus:
- es gibt ein geöffnetes Drawingdokument
- es gibt mehr als die zwei Standard-Views auf dem Sheet
- es existiert mindestens ein Text in jeder View
- die Texte(Ballons) sind mit einem Mass verknüpft

Es gibt keine Fehlerbehandlung. Werden obige Randbedingungen nicht erfüllt, knallt's.
Schreiben nach Excel und in ein Array fehlen.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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