---

Hallo Miteinander,

folgendes Script soll nur eine Datei öffnen und "Fit all in" ausführen. Macht es aber leider nicht (Fit all in). Wenn ich das Script ein zweites mal aufrufe wenn die Datei bereits geöffnet ist, dann funktioniert es.

Language="VBSCRIPT"

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As Document

Dim strfile As String
strfile = CATIA.FileSelectionBox("Select a file", "*.CATPart", CatFileSelectionModeOpen)

Set partDocument1 = documents1.Open(strfile)

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

viewer3D1.Reframe()

End Sub

Noch eine Frage: Gibt es noch eine Alternative zur FileSelectionBox, wo man auch mehrere Dateien auf einmal öffnen kann.

Danke schon mal.

Grüße

Merlin

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

---

Hallo Merlin

Hast Du mal

viewer3D1.Update()

versucht?

Gruss
Philipp

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

---

Hallo Philipp,

leider kein Erfolg.

Grüße

Merlin

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

---

Hallo

Schon mal so probiert ?

Code:

---

sInputFile = CATIA.FileSelectionBox("Part auswaehlen und ab geht's!", "*.CATPart", CatFileSelectionModeOpen)
    Set oDoc = CATIA.Documents.Open(sInputFile)

---

------------------
Sei Schlau bleib Dumm !!?!! 

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

---

Hallo,

ist das nicht das selbe, was ich in meinem Code stehen habe?

Grüße

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

---

Ja fast bis auf CATIA

Set oDoc = CATIA.Documents.Open(sInputFile)

------------------
Sei Schlau bleib Dumm !!?!! 

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

---

ok, bei mir steht das halt in zwei Zeilen:

Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Open(strfile)

Ändert aber leider nichts am Ablauf.

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

---

Sorry das habe ich jetzt nicht gesehen

Frage doch mal mit eine msgbox ab was in strfile steht

Wie sieht der Pfad zum Teil aus hast du leerzeichnen sonderzeichen im Pfad mit Drin?

------------------
Sei Schlau bleib Dumm !!?!! 

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

---

Das ist ja nicht das Problem, das funktioniert ja so weit. Was nicht funktioniert, ist das .reframe, bzw. es funktioniert erst, wenn ich das Macro bei geöffneter Datei aufrufe.

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

---

Code:

---

Set specsAndGeomWindow1 = CATIA.ActiveWindow

---

In meinen Skripten steht das immer So z.B.

Code:

---

Set specsAndGeomWindow1 = CATIA.ActiveDocument

---

Und zu deiner zweiten frage

Achtung ist nur aus einen Skript rauskopiert  kannst ja die Passenden Code Zeilen rausnehme

Diese Skript gleicht den Speichernamen und die Partnumber ab und Passt die Partnumber an den Speichernamen an

Code:

---

Sub DATEI_gleich_PARTN

'If Err Then
'msgbox "Es ist ein Fehler Aufgetreten"
'Exit Sub
'end if

Dim Eingabe As String

sInputFile = CATIA.FileSelectionBox("Product auswählen (Bitte wählen Sie nocheinmal das Orginal aus)", "*.CATProduct", CatFileSelectionModeOpen)

Pfad = Left(sInputFile, InStrRev(sInputFile, "\") )

    Dim oFileSystem As INFITF.FileSystem
    Set oFileSystem = CATIA.FileSystem
    Dim oFolder As INFITF.Folder
    ' Verzeichnisname für CATIA-Part
    Set oFolder = oFileSystem.GetFolder (Pfad)

   
    Dim FileSep As String
    FileSep = oFileSystem.FileSeparator
    Dim i As Long
    Dim j as Variant
    Dim oFile As INFITF.File
    Dim oActiveDoc As DrawingDocument
    'Dim BackView As DrawingView
    'Dim oText As DrawingText
    For i = 1 To oFolder.Files.Count
        Set oFile = oFolder.Files.Item(i)
        If Right(oFile.Name, 7) = "CATPart" Then
            Set oActiveDoc = CATIA.Documents.Open(oFolder.Path + FileSep + oFile.Name)

On Error Resume Next

Dim document As document
Dim splitname As string
Set document = CATIA.ActiveDocument
splitname = Split(document.Name, ".")
Set pro = document.Product
pro.PartNumber = splitname(0)

            oActiveDoc.Save
            oActiveDoc.Close
     
End If

'For i = 1 To oFolder.Files.Count
        Set oFile = oFolder.Files.Item(i)
        If Right(oFile.Name, 10) = "CATProduct" Then
            Set oActiveDoc = CATIA.Documents.Open(oFolder.Path + FileSep + oFile.Name)

'Dim document As document
'Dim splitname As string
Set document = CATIA.ActiveDocument
splitname = Split(document.Name, ".")
Set pro = document.Product
pro.PartNumber = splitname(0)

            oActiveDoc.Save
            oActiveDoc.Close
      End If
    Next

End sub

---

------------------
Sei Schlau bleib Dumm !!?!! 

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

---

Hallo,
so musste es funktionieren.

Gruß

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As Document

Dim strfile As String
strfile = CATIA.FileSelectionBox("Select a file", "*.CATPart", CatFileSelectionModeOpen)

Set partDocument1 = documents1.Open(strfile)

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

viewer3D1.Activate()

CATIA.ActiveWindow.ActiveViewer.Reframe

End Sub

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

---

Schönen guten Morgen Miteinander,

funktioniert leider alles nicht.

Hat noch jemand ne Idee?

Grüße

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

---

Hallo nochmal,

das automatische Öffnen aller Dateien im Verzeichnis ist zwar schön, hilft mir aber leider nicht. Ich muss immer nur bestimmte Dateien auswählen. Ich brauche also wirklich Multiselekt.

Grüße

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

---

Schönen guten morgen zusammen,
die multiselection von files funktioniert in VBA ,aber nur wenn du mit Common dialogs arbeitest.Das Problem ist das dein Makro nur auf PCs dann arbeitet in denen dieses auch explizit in VBA aktiviert wurde.Also musst du das Modul dann auf allen kisten aktivieren.

Grüsse
Andy

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

---

Hallo Andy,

das mit dem VBA wäre kein Problem. Werde ich mir mal anschauen.

@all:

Reframe für nun so funktionieren:

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document

Dim strfile As String
strfile = CATIA.FileSelectionBox("Select a file", "*.CATP*", CatFileSelectionModeOpen)

Set partDocument1 = CATIA.Documents.Open(strfile)

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

CATIA.StartCommand("Multi-View")
CATIA.StartCommand("Fit all in")

End Sub

Leider funktioniert CATIA.StartCommand("Fit all in") erst beim zweite Aufruf des Macros.

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

---

Morgen

Dann habe ich nur die Idee das du alles erst manuell öffnest und dann das Makro ausführst und Fenster für Fenster abarbeitest.

Oder wenn die Teile in einem Product verbaut wurden mit "UserSelektion.Search" arbeitest

------------------
Sei Schlau bleib Dumm !!?!! 

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

---

Hallo merlin
eine Frage hab ich wegen dem multiselect,willst du jedes teil in einem separaten fenster öffnen ? Wenn ja geht es auch ohne Commondialog in VBA.Bau dir einen Dialog mit listview wähle das verzeichnis und lass dir alle Catparts in der listview mit dem Dateinamen anzeigen.Dort hast du ja dann eine multiselect auswahl mit der du weiterarbeiten kannst.

Gruß
Andy

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

---

Hallo Andy,

sorry das ich so dumm frage, aber ich weis es wirklich nicht besser. Gibt es nicht eine Möglichkeit den "Datei öffnen" Dialog wie im Catia aufzurufen. Dort hab ich ja auch die Möglichkeit von Multiselekt.

Grüße

Merlin

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

---

Hallo Merlin,
das geht ,aber wie gesagt nur mit dem Common Dialog modul in VBA.Schau dir mal das Common Filedialog system an.Ansonsten musst du es dir mit einem dialog und ner listview selber bauen.Was den Vorteil hat das es auf allen Catia Kisten mit VBA läuft ohne das Modul zusätzlich zu laden.

Gruß
Andy

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

---

Ich hab was ganz einfaches gefunden, wie ich an den Öffnen-Dialog von Catia komme:

CATIA.StartCommand "Öffnen"

Leider funktioniert dann das Reframe bei der ersten ausgewählten Datei wieder nicht mehr.

Ich bin soweit, ich gebs auf.

Danke an alle für die Hilfe.

Grüße

Merlin

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