Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  EPLAN Electric P8
  Projekt schließen per script (EPLAN 2.1.6)

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:   Projekt schließen per script (EPLAN 2.1.6) (1741 mal gelesen)
fmarkert
Mitglied
Elektrokonstrukteur/Software


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

Beiträge: 18
Registriert: 29.04.2009

Eplan P8 und Fluid addon 2.6.3 HF2
Eplan P8 (1.9/2.1/2.4)
Eplan 5.70
Eplan ILC SAP Schnittstelle

erstellt am: 01. Okt. 2014 15:51    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,

benötige für EPLAN 2.1.6 Script HILFE

habe das ChangeLanguage Script erweitert damit ich auch die Quellsprache umstellen kann.
Funktioniert sowit gut..Sprachen werden umgestellt..leider werden Navigatoren und die Sprachreihenfolge nicht immer aktualisiert.

Manuelle Versuche ergaben dass wenn ich das Projekt schließ und wieder öffne  es gut aussieht.

Daher der Ansatz per Script
Projekt schließen und danach wieder öffnen

Gedacht mit ProjectAction dies zumachen führt nur zu fehlern  

Leider klappt das bei mir nicht..
hier der Rest des Scripts in VB
==============================================================================
'Settings-Datei in aktuelles Projekt importieren
Dim CommandLineInterpreter As New CommandLineInterpreter()
CommandLineInterpreter.Execute("XSettingsImport /XMLFile:" & strSettingsDatei & " /Project:" & strProject & "")

'Anzeige aktualisieren
CommandLineInterpreter.Execute("XGedRedrawAction")

'Datei löschen
If File.Exists(strSettingsDatei) Then File.Delete(strSettingsDatei)

'Projekt schließen
?????? hier Projekt schließen Befehl

'Projekt danach wieder öffnen (Aktualisierung Seitennavigator und Quellsprache
CommandLineInterpreter.Execute("ProjectOpen /Project:" & strProject & "")

===================================================================

Also falls jemand die Lösung hat bitte hier Schript ergänzen oder anderen Weg schreiben
Sag schon mal DANKE

------------------
CAD-Administrator
SAP-Keyuser

[Diese Nachricht wurde von fmarkert am 02. Okt. 2014 editiert.]

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

F.S.
Ehrenmitglied



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

Beiträge: 1502
Registriert: 23.04.2003

Eplan Electric P8
2.8 Prof.

erstellt am: 02. Okt. 2014 08:17    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 fmarkert 10 Unities + Antwort hilfreich

So könnte es gehen 

Code:

'Settings-Datei in aktuelles Projekt importieren
Dim CommandLineInterpreter As New CommandLineInterpreter()
CommandLineInterpreter.Execute("XSettingsImport /XMLFile:" & strSettingsDatei & " /Project:" & strProject & "")

'Anzeige aktualisieren
CommandLineInterpreter.Execute("XGedRedrawAction")

'Datei löschen
If File.Exists(strSettingsDatei) Then File.Delete(strSettingsDatei)

'Projekt schließen
Project_Close

'Projekt danach wieder öffnen (Aktualisierung Seitennavigator und Quellsprache
CommandLineInterpreter.Execute("ProjectOpen /Project:" & strProject & "")

Public Sub Project_Close
'Aktuelles Projekt schließen

Dim ProjektContext as New ActionCallingContext()
ProjektContext.AddParameter("NOCLOSE", "0")

Dim CommandLineInterpreter as New CommandLineInterpreter()
CommandLineInterpreter.Execute("XPrjActionProjectClose", ProjektContext)

End Sub


------------------
grüße
FrankS

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



CAD-Planer (m/w/d)

Die Wurm-Gruppe gehört zu den führenden Anbietern von Automatisierungssystemen für Kälteanlagen und Gebäudetechnikmanagement im Lebensmittelhandel. Als Teil der Wurm-Gruppe ist GTM der MSR-Spezialist für die Gebäudetechnik und projektiert rund 300 konkrete Märkte pro Jahr mit Hardware, Software und Schaltschränken. An unserem Standort in Remscheid bieten wir ein vielfältiges Spektrum, ...

Anzeige ansehenTechnischer Zeichner, Bauzeichner
fmarkert
Mitglied
Elektrokonstrukteur/Software


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

Beiträge: 18
Registriert: 29.04.2009

Eplan P8 und Fluid addon 2.6.3 HF2
Eplan P8 (1.9/2.1/2.4)
Eplan 5.70
Eplan ILC SAP Schnittstelle

erstellt am: 02. Okt. 2014 08:47    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

DANKE

Hat jetzt funktioniert..Parameter NOCLOSE vergessen
noch Script einwenig verkürzt

'Projekt schließen
Dim ProjektContext as New ActionCallingContext()
ProjektContext.AddParameter("NOCLOSE", "0")
CommandLineInterpreter.Execute("XPrjActionProjectClose", ProjektContext)

'Projekt danach wieder öffnen (Aktualisierung Seitennavigator und Quellsprache
CommandLineInterpreter.Execute("ProjectOpen /Project:" & strProject & "")

------------------
CAD-Administrator
SAP-Keyuser

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)2020 CAD.de | Impressum | Datenschutz