---

Hallo zusammen !
Habe das Problem das ich im Drawing mehrere Blätter ( 20 )habe ,
aber unser Azubi manchmal mitten in der Zeichnung steht und nicht wie
gewollt alles einpassen , abspeichert . So muss man bei allen 20 Blättern erst alles einpassen um sich einen Überblick zu verschaffen was
auf den jeweiligen Blättern ist . Will sagen ich öffne ein Drawing und sehe von einer Ableitung nur manchmal einen teilbereich und nicht das ganze Blatt.
Gibt es da eine Möglichkeit Multiselect  ( Marco etc )
Grüsse KH

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

---

Hallo KH,

neben den offensichtlichen pädagogischen Möglichkeiten :-)
lässt sich das auch mit einem MAkro lösen.
Probier mal das:

Code:

---

'die Routine erwartet eine geöffnete/aktive zeichnung(Catdrawing)
Sub CatMain()  'fit all sheets in
  Dim oDr As DrawingDocument
  Dim oSHt As DrawingSheet
 
  Set oDr = CATIA.ActiveDocument
 
  For Each oSHt In oDr.Sheets
      oSHt.Activate
      CATIA.StartCommand "Fit All In"
  Next
End Sub

---

Hope it helps,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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

---

Servus
Kleiner Hinweis zum Makro: StartCommands sind sprachabhängig. (im deutschen "Alles einpassen"?)

Gruß
Bernd

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

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

---

@ Bernd:
Hättst mich auch für mein 'Each' loben können! :-(

Dass das Makro 'Ohne alles' ist, versteht sich von selbst.
Keine Fehlerbehandlung, etc. Falls keine Drawing aktiv ist, knallt's.

Zum Thema 'Sprache': Kennst Du einen brauchbaren Weg die 'User Interface Language', sprich die Sprache der Benutzeroberfläche, auszulesen?

Ich hab ein paar Ansätze gefunden, aber alle so 'Von hinten durch die Brust ins Auge'.

Tschau,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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

---

Hallo zusammen ,
danke für Eure Hilfe . Werde es gleich mal testen .
Rückmeldung folgt.
Grüsse KH

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

---

Hallo zusammen ,
leider kann ich das Makro nicht umsetzen / weder in der deutschen
noch in der englichen Umgebung .
Bleibt in der 3ten Zeile hängen  ,,Dim oDr As DrawingDocument,,
Habe ich einen Bedienungsfehler etc. ??
Habe ne Drawing mit 20 Blättern auf jedem Blatt sind so 4/5 Ableitung/Views .
Möchte das der Befehl alles einpassen für jedes Blatt
automatisch ausgeführt wird und ich nicht jedes Blatt einzeln anwählen muss

Wäre toll wenn Ihr mir weiterhelfen könntet .
Grüsse KH

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

---

FitAllDrwgIn.zip

Hallo Karl-Heinz,

da kann's eigentlich nicht hängenbleiben.
Vermutlich liegt's an der Weise, wie Du's auszuführen versuchst.
Ich hab die geZipte Catscript angehängt.

Ausführen - nach dem entpacken - mit

- Catia/Tools/Macro/Macros ...
- FitAllDrgIn.CatScript auswählen
- Run

Das Macro lässt sich auch auf einen Icon in einer ToolBar ablegen.

Tschau,
Joe

PS: Wie der Bernd schon richtig schieb, kann's sein, dass Du den Text nach StartCommand eindeutschen musst.

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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

---

Hallo Joe ! Hallo Catia Gemeinde !
Habe Dein Makro in die Bibliothek aufgenommen und siehe da , funktioniert !
Keine Ahnung warum es vorher nicht funzt hat .
Problem sitzt vor meinem Bildschirm !! 
Danke euch sehr !!
Grüsse KH

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