Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Open Dialoge CATScript

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:  Open Dialoge CATScript (2374 mal gelesen)
Estafanos
Mitglied



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

Beiträge: 27
Registriert: 17.07.2012

Catia V5 R22, Windows 7

erstellt am: 15. Okt. 2013 10:22    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

Hallo Zusammen,
ich habe zwei Open Dialoge, um ein Text-datei auszuwählen.

1) Ordner auswählen
2) Text-Datei auswählen

Damit die Anwender nicht immer durch alle Laufwerke durchsuchen müssen, habe es mir überlegt, dass zuerst ein Open dialog, um den gewünschten
Ordner auszuwählen, danach sollte ein zweites Open Dialog geöffnet werden, um die gewünschte Text-Datei auszuwählen (Ort:aus dem ersten selektierten Ordner).

Bei dem ersten Dialog (Ordner auswählen) ist kein Problem.

Nur bei dem zweiten Open Dialog. Das Problem ist, dass CATIA Intern den letzten Öffnen oder speichern-Pfad, und verweist auf diesen Pfad zurück.
wie kann ich den zweiten open Dialog auf dem ausgewählten Ordner (Aus 1. Open Dialog) verweisen?

Das Skript sollte in CATScript durchlaufen.

Code:

Sub CATMain()
'1.Open Dialog
Dim objShell
Dim objFolder
        set objShell = CreateObject("shell.application")
        set objFolder = objShell.BrowseForFolder(0, "Select a folder", 0, "P:\VBS")
On Error Resume Next
                if (not objFolder is nothing) then
    objFolder  =  objShell.self.Path
end if
  On Error GoTo 0
            set objFolder = nothing
        set objShell = nothing

'2.Open Dialog
Dim strFilePath
Dim strFileName

strFilePath =  CATIA.FileSelectionBox("Select Text File", "*.txt",CatFileSelectionModeOpen)
    If strFilePath = "" Then Exit Sub
Dim pos
pos = InStrRev(strFilePath , "\")
strFileName = Mid (strFilePath, pos +1, 100)

End Sub

Gibt es eine Möglichkeit das Problem zu beheben, oder eine andere Vorgehensweise, wie man das am besten machen kann?

Vielen Dank im Voraus


Viele Grüße

Estafanos

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

imation1999
Mitglied
dipl.-ing. Maschinenbau


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

Beiträge: 276
Registriert: 02.08.2011

Dell Precision T3500
Intel® Xeon® Quad Core
NVIDIA Quadro® 5000
Win7 x64 Ultimate
CATIA V5 R20 SP2

erstellt am: 15. Okt. 2013 10:50    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 Estafanos 10 Unities + Antwort hilfreich

Hallo Estafanos,

siehe hier:
http://ww3.cad.de/foren/ubb/Forum137/HTML/003820.shtml

[Diese Nachricht wurde von imation1999 am 15. Okt. 2013 editiert.]

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

Estafanos
Mitglied



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

Beiträge: 27
Registriert: 17.07.2012

Catia V5 R22, Windows 7

erstellt am: 15. Okt. 2013 10:54    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

Hallo,
das habe ich bereits durchgelesen. Das funktionier leider unter CATScript nicht.

Vielen Dank
Gruß
Estafanos

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

HoBLila
Mitglied
Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx


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

Beiträge: 1118
Registriert: 29.05.2008

DELL PRECISION T3500
Intel(R) Xeon(R) CPU W3540 @ 2.93GHz
12285 MB RAM
NVIDIA Quadro FX 1800
Microsoft Windows 7 Enterprise Service Pack 1
CATIA V5 R19 SP09 HF69
VB6.5
CAA RADE CDC

erstellt am: 15. Okt. 2013 13:05    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 Estafanos 10 Unities + Antwort hilfreich

Nimm doch beim 2. Mal auch die Shell statt der CATIA-Funktion.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

RSchulz
Moderator²
Head of CAD, Content & Collaboration / IT-Manager



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

Beiträge: 5541
Registriert: 12.04.2007

@Work
Lenovo P510
Xeon E5-1630v4
64GB DDR4
Quadro P2000
256GB PCIe SSD
512GB SSD
SmarTeam V5-6 R2016 Sp04
CATIA V5-6 R2016 Sp05
E3.Series V2019
Altium Designer/Concord 19
Win 10 Pro x64

erstellt am: 15. Okt. 2013 13:54    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 Estafanos 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von HoBLila:
Nimm doch beim 2. Mal auch die Shell statt der CATIA-Funktion.

Das muss er sogar, da die CATIA-Funktion eine Pfadübergabe garnicht zulässt!

Ich pers. mache, wie schon oft gesagt, mittlerweile alles mit .Net und greife auf die API zu. Da habe ich deutlich mehr Möglichkeiten und kann vieles miteinander kombinieren.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

Estafanos
Mitglied



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

Beiträge: 27
Registriert: 17.07.2012

Catia V5 R22, Windows 7

erstellt am: 16. Okt. 2013 08:50    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

Hallo Herr Schulz, hallo Herr Schneider,
herzlichen Dank für die Vorschläge.
ich habe gestern über den Link (http://www.vbarchiv.net/tipps/details.php?id=1089) vieles ausprobiert, aber leider Erfolglos.

Wie kann ich BrowseForFile oder was ähliches (2. Open Dialog) über die Shell.Application erreichen?
Ich benötige an diese Stelle den Befehl von Catia (CATIA.FileSelectionBox) nicht unbedingt. Was mehr interressiet wie das Code aussieht?

Vielen dank für ihre Unterstützung
Gruß
Estafanos 

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