---

Hallo

Wie kann ich im VB 2005 das Befehl "Abwicklung Speichern" und/ oder "Abwicklung" aufrufen?

Bitte um Hilfe 

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

---

VB 2005? Was soll das sein

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

---

Guckst du:
http://de.wikipedia.org/wiki/Visual_Basic#Visual_Basic_2005

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

---

Hallo,

wenn die Abwicklung als eigene Datei gespeichert werden soll, funtioniert dies mit der Methode "SaveAsFlat".

Für das Aufrufen der Umgebung scheint es keine Methode zu geben.

Gruß,

BJ

P.S. Übrigens ist es unerheblich, mit welcher Version von VB die Methoden aufgerufen werden. Diese funktionieren überall gleich.

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

---

Moin,

Aufruf mit Benutzerinteraktion:

SeApp.StartCommand (SheetMetalModelFlatPattern)  ' 45066
SeApp.StartCommand (SheetMetalSheetMetalFeaturesSaveAsFlat) ' 33091

modeng

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

---

Danke

nun zum 2. Punkt

Wie deklariere ich die Methode?

    Dim seApp As SolidEdgeFramework.Application

und was noch? 

3. Wie muss ich vorgehen, wenn Dateiname und Speicherort bekannt ist?
  z.B. Pfad = "d:\Solid Edge\dxf\"
        Dateiname="123456.dxf2

--> ist das möglich direkt mit VB dies mitzugeben? 

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

---

hi peticeo

Zitat:

---

Original erstellt von peticeo:
Danke

nun zum 2. Punkt

Wie deklariere ich die Methode?

    Dim seApp As SolidEdgeFramework.Application

und was noch?  

---

versuch's mal so:

    Dim seApp As New SolidEdgeFramework.Application 

sollte klappen...

------------------
Gruß Ralf

_______________________________
* Printed on 100% recycled electrons *

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

---

[...]
Dim seApp As New SolidEdgeFramework.Application
[...]

wird zumindest in VB6 nicht gehen, da keine Klasse daher:

Dim seApp As SolidEdgeFramework.Application

set seAPP = getObject(,"SolidEdge.Application")
if err.number <> 0 then
  err.clear
  set seAPP = CreateObject("SolidEdge.Application")
  if err.number <> 0 then
      ....
      exit
  endif
endif

------------------
And then one wonders why a man/woman ages so fast in this nutty business

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

---

Hi,

da der werte Kollege in .Net programmiert, muss es so aussehen:

1. Interop-Verweise hinzufügen

2. Code

Imports System.Runtime.InteropServices

Public Class Form1
  Private seApp as SolidEdge.Framework.Interop.Application

  Private Sub Start()
      Try
        seApp = Marshal.GetActiveObject("SolidEdge.Application")
      Catch
        MessageBox.Show("SolidEdge läuft nicht!", "SE?", . . .
      End Try
  End Sub

  .
  .
  .
End Class

Tipp am Rande: Erstelle dir für alle SE-Methoden/Funktionen eine eigene Klasse, die du dann immer wieder verwenden kannst!

Gruß,

BJ

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

---

... womit dann aus einem 20KB ein 1MB Schinken wird, $Soft sei Dank!

modeng

------------------
And then one wonders why a man/woman ages so fast in this nutty business

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