Öffen und Speichern von R-Stab Dateien

[MartinM]

Hallo,

ich würde gerne mit C#.Net sowohl Strukturdaten als auch Berechnungsergebnisse auszulesen, Änderungen vornehmen und danach alles als neue Datei abspeichern.

Jetzt meine Frage:
Wie kann ich das aktuell geöffnete R-Stab modell "ferngesteuert" speichern?
Wie kann ich ein R-Stab Modell "ferngesteuert" öffnen?

Da das ganze über einen itterativen Berechnungsprozess laufen soll wäre es in dem Zusammenhang auch gut die Abfrage "Wollen sie die Änderungen Speichern - Ja - Nein - Abbrechen" zu umgehen.

Vielen Dank im Voraus.

Viele Grüße
Martin

[MartinM]

AW: Öffnen und Speichern von R-Stab Dateien

...
Wie kann ich ein R-Stab Modell "ferngesteuert" öffnen?
...

Hi,

ich habe es mittlerweile teilweise herausgefunden.

string path = System.Environment.GetFolderPath(System.Environmen t.SpecialFolder.DesktopDirectory);

path = System.IO.Path.Combine(path, "test.rs6");

RSApp.rsOpenStructure(path);

Allerdings habe ich das Problem, dass ich trotzdem nicht auf die Strukturdaten zugreifen kann.

Mein Kopf sieht folgendermaßen aus:

IrsApplication RSApp = null; // The R-Stab Application
IrsStructure RSStr = null; // The R-Stab Structure
RSStr = new RSTAB6.Structure(); RSStr.rsSetZAxisDirection(RSTAB6.RS_ZAXIS_DIRECTIO N.ZAD_UPWARD, false);
RSApp = RSStr.rsGetApplication();
RSApp.rsLockLicence();
RSApp.rsShowApplication();
IrsStructuralData RSTopo = RSStr.rsGetStructuralData();

string path = System.Environment.GetFolderPath(System.Environmen t.SpecialFolder.DesktopDirectory);

path = System.IO.Path.Combine(path, "test.rs6");

RSApp.rsOpenStructure(path);


Wie komme ich an die Strukturdaten des neu geöffneten Files ran?

[Walter Rustler]

AW: Öffnen und Speichern von R-Stab Dateien

Hallo Martin,

falls noch nicht bekannt - unter http://www.dlubal.de/download/rs6com.zip gibts Beispiele in VBA, wie man auf die Daten zugreifen kann. Ein Umschreiben auf C# sollte kein großes Problem sein.

Viele Grüße
Walter Rustler

Ing.-Software Dlubal

[MartinM]

AW: Öffnen und Speichern von R-Stab Dateien

Vielen Dank für Ihre Antwort,

mein Problem liegt eher darin, dass ich nicht die richtigen Strukturdaten auslesen kann.

Wenn ich R-Stab über die Schnittstelle öffne, wird automatisch eine neue, leere Position geöffnet.
Wenn ich nun eine bereits bestehende Position öffne, sind zwei Positionen geöffnet.

Wenn ich jetzt die Strukturdaten abfrage, erhalte ich die Angaben der neuen, leeren Position geliefert. (also nichts)

Die Frage sollte vielleicht eher so gestellt werden:
Wie schaffe ich es, dass R-Stab geöffnet wird und nur eine, von mir ausgewählte Datei, geöffnet ist?

Vielen Dank und viele Grüße
Martin

[MartinM]

AW: Öffen und Speichern von R-Stab Dateien

Entschuldigung!

Ich hatte in meinem Programm einen Fehler an anderer Stelle. Ignorieren Sie einfach meinen letzten Eintrag. Dieses Problem hat sich jetzt von selbst gelöst.

ABER:
Ich habe noch eine weiter Frage:
Ist es irgendwie möglich die "Wollen Sie speichern" Abfrage zu unterdrücken?

Dadurch, dass beim öffnen von Rstab eine neue leere Struktur geöffnet wird, wird immer abgefragt, ob ich diese auch speichern will, wenn ich RStab wieder schließe. Dieser Vorgang erwartet dann ein manuelles Klicken, was bei einigen 100 Wiedeholungen vom Öffnen und Schließen besser unterdrückt würde, da sonst das Programm nicht weiter geht und man daneben sitzen müsste während der Rechner rechnet.

Vielen Dank im Voraus,

Martin

[Walter Rustler]

AW: Öffen und Speichern von R-Stab Dateien

Hallo Martin,

wenn folgender VBA Code ausgeführt wird, dann wird RSTAB gestartet, eine neue leere Position angelegt und unter C:\sample.rs6 gespeichert und RSTAB wieder geschlossen. Es erfolgt keine Rückfrage, wenn vorher gespeichert wurde.

Ich hoffe, das war das Problem.

Viele Grüße
Walter Rustler

Ing.-Software Dlubal

Sub CommandButton1_Click()
'Startet RSTAB6 und öffnet auf Wunsch eine bestimmte Position
'Öffnen einer neuen Instanz von RSTAB6
Dim RSApp As RSTAB6.IrsApplication
Dim RSStr As RSTAB6.Structure

On Error GoTo e

Set RSStr = New RSTAB6.Structure 'Neue Instanz von RSTAB6 und automatisch Lizenz belegen
Set RSApp = RSStr.rsGetApplication

'RSApp.rsLockLicence 'Lizenz belegen - nicht notwendig, wenn New RSTAB6.Structure

'Öffnen einer Position (RSTAB muß hier schon laufen)
'Set RSStr = RSApp.rsOpenStructure(Tabelle1.Cells(7, 2))

'Anzeigen der RSTAB-Oberfläche
RSApp.rsShowApplication

'...
'eventueller Code zum Ändern der Position
'...

'Speichern der Position
RSStr.rsSaveStructure ("c:\sample.rs6")
'Schließen der Position
RSStr.rsCloseStructure

'Schließen von RSTAB und aller offenen Positionen
RSApp.rsUnlockLicence

RSApp.rsCloseApplication

e:
If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source


Set RSStr = Nothing
Set RSApp = Nothing
End Sub

[MartinM]

AW: Öffen und Speichern von R-Stab Dateien

Ahh,
ok. (Da hätte man auch selbst drauf kommen können).

Ich speichere jetzt einfach die Zweite Datein und überspeichere sie entsprechend der Wiederholungen. (Am Ende lösche ich sie dann.)

Vielen Dank

Martin

[MartinM]

AW: Öffen und Speichern von R-Stab Dateien

Noch ein Nachtrag:

Wenn man die Application im Hintergrund laufen lässt, (also auf "RSApp.rsShowApplication" verzichtet)
wird auch keine neue, leere Datei geöffnet und man muss (bzw. kann) diese auch nicht speichern.

Gruß
Martin