---

Hallo zusammen,
ich habe eine Frage zum Drawing, hoffentlich könnt ihr mir helfen.
Ich hab eine Zeichnung mit ca 500 Ansichten in CATIA V5R19 (es handelt sich um Zuschnitte für 50m CFK-Prepreg) und möchte mir jetzt sämtliche Ansichts-Namen rausschreiben, am liebsten in Excel odä.

Ist das möglich, gibt es dafür beispielsweise einen Stücklistenbefehl?

Ich habe schon mit dem Befehl "Stückliste erzeugen" experimentiert, der lässt sich aber wohl nur auf CATProducts anwenden.

P.S.: sollte dieses Thema schon existieren, hab ichs bei meiner Suche danach übersehen...

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

---

Hi Hawks und willkommen im Forum!

Würde dir eine reine Auflistung reichen? Dann schau mal unter "Edit - Links". Allerdings kannst du es dort nicht nach Excel ausschreiben.
Dies scheint aber über ein Makro machbar zu sein...

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

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

---

Hi Tom
Vielen Dank für deine schnelle Antwort.
Leider führt der Befehl "Edit - Links" bei mir zur einer Fehlermeldung: Das Dokument "has no external Links". Ich vermute, dass das daran liegt, dass sämtliche Ansichten isoliert sind, da sie sich alle auf ein und das selbe CATPart beziehen.(?)

Ich habe auch schon vermutet, dass es über ein Makro lösbar wäre, allerdings habe ich bisher kaum in CATIA programmiert. Insofern würde ich dafür vermutlich ziemlich lange brauchen...

Falls keine andere Lösung mehr vorgeschlagen wird, werde ich es wohl per Hand in Excel übertragen 

Wie gesagt, vielen Dank für die schnelle Antwort 

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

---

Servus
Anbei ein Code-Schnippsel (CATSript), dass dir die Ansichtsnamen der gesamten Zeichnung in ein Textfeld auf der ersten Weite schreibt. Von dort bekommst du sicher die Namen einfach in Excel (Text markieren, kopiere, einfügen, Text in Tabelle wandeln)

Code:

---

Sub CATMain()
Dim DrwDoc As DrawingDocument
Dim oSheet As DrawingSheet
Dim strViewList As String
Dim i As Integer
Dim oText As DrawingText

Set DrwDoc = CATIA.ActiveDocument

'Ansichtsnamen sammeln
For Each oSheet In DrwDoc.Sheets
    For i = 3 To oSheet.Views.Count
        strViewList = strViewList + oSheet.Views.Item(i).Name + Chr(13) + Chr(10)
    Next
Next

'Ansichtsnamen in Textfeld auf Vordergrund der ersten Seite schreiben
Set oSheet = DrwDoc.Sheets.Item(1)
Set oText = oSheet.Views.Item(1).Texts.Add(strViewList, 0, 0)
End Sub

---

Gruß
Bernd

PS: Bitte Systeminfo ausfüllen

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

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

---

Super, funktioniert! Danke 

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

---

Hallo,
gleich noch eine neue Frage zu der selben Datei.
Wie gesagt habe ich eine CATDrawing - Datei die eine 50m Prepregbahn darstellt, mit ca 500 isolierten Ansichten (= Zuschnitten).

Gibt es eine Möglichkeit

1. sich die gesamte Länge aller Linien ausrechnen und anzeigen zu lassen (= Schnittlänge)?
und
2. Sich die gesamte Fläche der Ansichten ausrechnen und anzeigen zu lassen?

mfg HAWKS

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

---

Servus
Kannst du nicht einfach die Messungen im 3D durchführen?
In der Zeichnung kann man AFAIK nicht über mehrere Ansichten messen (kann man da überhaupt Flächen messen?).

Gruß
Bernd

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

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

---

Leider nur teilweise, da nicht alle Zuschnitte im 3D existieren. Manche habe ich direkt im Drawing gezeichnet..
Ist es denn möglich im 3D den Umfang und den Flächeninhalt mehrerer Elemente zu messen? (beispielsweise aller Elemente die gerade nicht im "NOSHOW" versteckt sind)

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

---

Servus
Indirekt, ja.
Im Flächenmodul Linien zusammenfassen, ggf Fläche erstellen (Füllen bzw Fill) und dann Messen.

Gruß
Bernd

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

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