---

Hallo Leute,

sagt mal kann man über einen Befehlsbutton in Excel Solid Edge starten? Ich habe in Programmen gesehen (bearing.par) das man ihm sagen kann, dass er ne Fehlermeldung ausspuckt,wenn S.E. nicht läuft.
Also muß es doch auch andersherum laufen.
Wie lautet denn der Befehl dafür???

Thx.

Demokrat2000

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

---

Set objSEApp = CreateObject("SolidEdge.Application")

Gruß,
BJ

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

---

Ja mhh das kannte ich schon aber ich wußte nicht ob ich damit S.E. auch starten kann!!

Naja ich werde es mal probieren.

Thx.

Demokrat2000

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

---

Hallo Bj,

das Problem ist,es startet irgendwie schon nur es dauert länger, als wenn ich Part so starte?Aber wo udn wie muß ich ihm sagen,das ich ne bestimmte Datei öffnen will??

Kannste mir da irgend nen Tipp geben??

Demokrat

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

---

Ich habe schon soviel hinbekommmen aber jetzt meckert er permanent rum.

Option Explicit

Dim objSEApp As Object
Dim schnecke As SolidEdgePart.Model

Private Sub CommandButton1_Click()

Set objSEApp = CreateObject("SolidEdge.Application")

Set schnecek = CreateObject("SolidEdgePart")

End Sub

Demokrat2000

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

---

Private Sub Open_Click()

Dim objSEApp As SolidEdgeFramework.Application
Dim objSEDoc As Object
Dim strDocument As String

Set objSEApp = CreateObject("SolidEdge.Application")
strDocument="c:\Test.par"
Set objSEDoc = objSEApp.Documents.Open(strDocument)
End Sub

Gruß,
BJ

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

---

Ich habe das jetzt mehr mals probiert und ich weiß nicht irgendwie ist noch was falsch.
Ich hatte in der Hilfe nachgeschlagen (Danke das die Programmierhilfe auf Englisch ist) und da stand was anderes. Es hat auch deinen Lösungsansatz aber naja.

Trotzdem danke.

MfG

Demokrat2000

P.S. Wenn Du noch was anderes findest bzw. den Fehler findest,dann schreib mir :-)

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

---

Sorry hier noch der Verweis, was in der Hilfe stand

Private Sub Form_Load()
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgePart.PartDocument
Dim objDocuments As SolidEdgeFramework.Documents
Const TESTFILE = "T:\vbtests\TestCases\chead.par"
' Report errors
Const PI = 3.14159265358979
' Create/get the application with specific settings
On Error Resume Next
Set ObjApp = GetObject(, "SolidEdge.Application")
If Err Then
Err.clear
Set ObjApp = CreateObject("SolidEdge.Application")
Set ObjDoc = objApp.Documents.Add("SolidEdge.PartDocument")
objApp.Visible = True
Else
Set ObjDoc = objApp.ActiveDocument
End If
'Get the Documents collection
Set objDocuments = objApp.Documents
'Open an existing file
Call objDocuments.Open(FileName:=TESTFILE)
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objDocuments = Nothing
End Sub

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

---

Da besteht prinzipeell kein Unterschied!

Was fehlt ist das objSEApp.Visible = True.

Vor dem 'End Sub' solltest du noch die Objekt-Variabeln auf Nothing setzen.

Gruß,
BJ

P.S. Du solltest dir mal die Beispiele in der Online-Hilfe bzw. die vom Custom-Verzeichnis von SE reinziehen. Da kannste einiges lernen!

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

---

Hallo BJ,

danke das klappt.Nochmal 10 Unities für Dich!!!

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