---

BisherigeErfolge.png

Hallo Forum  !

Ich würde sehr gern:

Die Programmversion und das MP der Installation abfragen, mit der das Modell erstellt und
mit der das Modell zuletzt gespeichert worden ist.

Diese Info möchte ich dann wiederum an das 3D-Modell hängen (Eigenschaftsmanager oder in eine PMI schreiben).

Bisher bekomme ich als Info nur "Solid Edge" und "1033" als Programmnummer ausgegeben (siehe Bild).
Beides nicht ausreichend  !

Diese Information sind aber in den Modelldateien hinterlegt als
Created Version und als
LastSavedVersion
Ich weiß nur nicht, wie (und ob) sie sich in SE abfragen lassen.

Wenn ihr da eine Idee habt wie das gehen könnte (außer manuell schreiben  ) würdet ihr mir sehr weiterhelfen.

Dank und Gruß!
Bert

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

---

Hallo Bert,
geh mal im Dateiexplorer von Windows mit einem Rechtsklick auf die Spaltenüberschriften, dort gibt es eine Spalte „SE-Version“, die kannst Du Dir einblenden lassen. Vielleicht reicht es Dir ja schon.

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

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

---

Moin Markus,

danke für deine Antwort, aber ich benötige die Info in Solid Edge.

Insofern hilft es mir nicht wirklich weiter.

Es sei denn, dass diese Info dann irgendwie nach SE übergeben werden kann ... ?

Viele Grüße  und frohes Schaffen
Bert

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

---

Hallo Bert,

folgendes habe ich noch gefunden:

Code:

---

Function GetSEVersion()
  Dim SEID, msg
  On Error Resume Next
  Set SEID = CreateObject("SolidEdge.InstallData")
  If Err.Number <> 0 Then
    Set SEID = Nothing
    GetSEVersion = "SolidEdge:" + vbTab + "installed>" + vbLf
    Exit Function
  End If
  msg = SEID.GetVersion() + vbLf _
      + "Language ID:  " + vbTab + CStr(SEID.GetLanguageID()) + vbLf
      + "Parasolid:    " + vbTab + SEID.GetParasolidVersion() + vbLf _
      + "Install Path: " + vbTab + SEID.GetInstalledPath() + vbLf _
  Set SEID = Nothing
  GetSEVersion = msg
End Function

---

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

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

---

Hallo Markus,

vielen Dank fürs Dranbleiben    !

Aber leider kann ich mit dem Code nicht recht etwas anfangen.
Denn: ich weiß nicht, wie ich den ins SE bekomme.

Was muss ich tun?
Ein Makro draus machen/ den VBA-Editor nutzen?

Viele Grüße und einen schönen Feierabend
Bert

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

---

Hallo Bert,

der VBA Editor von Excel wäre z.B. eine Möglichkeit. Ich nutze diese gerne um zunächst zu probieren, ob das was ich machen will funktioniert. Wenn Du eine EXE kompilieren willst, wirst Du aber um Visual Studio nicht umhin kommen.

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

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

---

Die InstallData bezieht sich aber m.E. auf die SE Installation und nicht auf eine SE Datei.

------------------
Arne

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

---

Zitat:

---

Original erstellt von Arne Peters:
Die InstallData bezieht sich aber m.E. auf die SE Installation und nicht auf eine SE Datei.

---

Arne da hast Du recht, ich hatte mir das mal geschrieben um bei einer Multiversionsinstallation heraus zu bekommen welche Version aktiviert ist.
@Bert: Der Code wird Dir leider für Dein Problem nicht weiterhelfen.

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

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