---

Hallo!

Hat jemand schon mit Formelemente-Bibliotheken und VB herumgespielt? Wie habt ihr die Bibliothek ins Part bekommen?

Gruß,
BJ

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

---

Servus BJ,

mit der Formelementbibliothek hab ich noch nicht gespeilt, kann mir aber vorstellen, das es ähnlich wie beim platzieren im ASM geht.
Wahrscheinlich nur "StartCommand(seAssemblyPlacePartCommand)" und "objFileUIEvents_OnPlacePartUI" entsprechend unten angehängten Code ersetzen.

Jürgen

Dim SEApp As SolidEdgeFramework.Application
Dim WithEvents objFileUIEvents As FileUIEvents

Private Sub cmdPlatzieren_Click()
    'Teil platzieren
    Set SEApp = GetObject(, "SolidEdge.Application")
    Set objFileUIEvents = SEApp.FileUIEvents
    Call SEApp.StartCommand(seAssemblyPlacePartCommand)
    Set SEApp = Nothing
End Sub

Private Sub objFileUIEvents_OnPlacePartUI(Filename As String, AppendToTitle As String)
    Filename = SelectedDokument
    AppendToTitle = ""
    Set objFileUIEvents = Nothing
End Sub

------------------
50* SEV14SR12, 4* SEV15SR1

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

---

Nö Jürgen,

es funzt nicht. Habe es auch schon mit "putinclipboard" versucht; geht auch nicht.
StehŽ ich auf dem Schlauch, oder funzt es generell nicht?

Gruß,
BJ

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