---

Unbenannt.PNG

Hallo miteinander,

Ich möchte ein kleines Programm schreiben.
In einer Userform sollen Werte eingegeben werden welche dann in die Userparameter und in die iProperties übernommen werden sollen.

Bei starten sollen aber die derzeit verwendeten in der TextBox angezeigt werden.

Dazu habe ich erstmal nur eine Form mit 1 Textbox und 1 Button.
Beim öffnen soll die TextBox gefüllt werden mit einem Parameter
Und bereits hier kommt ein Fehler.

Imports Inventor

Public Class Form1

    Public ThisApplication As Inventor.Application

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DN As String

        Dim oDoc As Inventor.Document
        oDoc = ThisApplication.ActiveDocument

        Dim opropsets As Inventor.PropertySets
        Dim opropset As Inventor.PropertySet
        Dim odtPropertySet As Inventor.PropertySet
        opropsets = oDoc.PropertySets
        odtPropertySet = opropsets.Item("Inventor User Defined Properties")

        DN = odtPropertySet.Item("DN").Value
        TextBox1.Text = DN

    End Sub
End Class

Beim erstellen kommt kein Fehler aber wenn ich das Programm starte kommt eine Fehlermeldung (siehe Bild).

Ich hoffe es kan jemnad helfen

MfG Felix

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

---

Hallo Felix,

gibt es denn in deinem Dokument das Benutzerattribut "DN" welches gelesen werden soll? Ich würde hier auf jeden Fall ein TRY - CATCH einbauen. Wenn dann das gewünschte Attribut nicht vorhanden ist, kann man das Abfangen und eine entsprechende weitere Vorgehensweise programmieren.

Gruß

Stefan

------------------
Wer nicht mitmacht, kann auch nichts verändern

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

---

Also das Benutzerdefinierte iPropertie "DN" ist im geöffneten Bauteil angelegt.
Mit der Try-Catch habe ich noch nicht gerabeitet bin erst neu in VB.net.

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

---

Hallo Felix,

es fehlt noch der Verweis auf die Inventor Instanz, nachdem Du die Variable "ThisApplication" definierst hast:

Private Sub irgendwas
...
    ThisApplication = GetObject(, "Inventor.Application") 'Hole die Inventor Instanz (eventuell mit CreateObject eine neue Inventor Instanz erzeugen)
...

Try
    DN = odtPropertySet.Item("DN").Value
    TextBox1.Text = DN
Catch ex as Exception
    'Mache bei Fehler dies und das
End Try

...

Gruß

Stefan

------------------
Wer nicht mitmacht, kann auch nichts verändern

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

---

Unbenannt.PNG

Okay ich habe es mit GetObjkt und mit CreateObjekt versucht bei beidem kommt jetzt eine andere Fehlermeldung (Siehe Bild).... 

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

---

Hallo Felix,

dann war bei deinem Versuch der Inventor nicht gestartet...

Hier mal ein Beispiel wie es gehen kann (der Form1 wurde noch ein Button1 hinzugefügt!)

Imports Inventor
Public Class Form1
    Public ThisApplication As Inventor.Application
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DN As String
        Dim oDoc As Inventor.Document

        'Ist ein Dokument geöffnet?
        oDoc = ThisApplication.ActiveDocument
        If oDoc Is Nothing Then
            'Nein, dann ist hier schluss
            MsgBox("Kein Dokument geöffnet")
            Exit Sub
        End If

        Try
            Dim opropsets As Inventor.PropertySets
            Dim odtPropertySet As Inventor.PropertySet
            opropsets = oDoc.PropertySets
            odtPropertySet = opropsets.Item("Inventor User Defined Properties")
            DN = odtPropertySet.Item("DN").Value
            TextBox1.Text = DN
        Catch ex As Exception
            MsgBox("Fehler: " & Err.Description)
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            'Hallo? Inventor?
            ThisApplication = GetObject(, "Inventor.Application")
        Catch
            'Nicht da, also neues Objekt erzeugen
            ThisApplication = CreateObject("Inventor.Application")
        End Try
        If ThisApplication Is Nothing Then
            'Inventor konnte nicht gefunden werden
            MsgBox("Kein Inventor vorhanden")
            End
        End If
        ThisApplication.Visible = True
    End Sub
End Class

Gruß

Stefan

------------------
Wer nicht mitmacht, kann auch nichts verändern

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

---

super stefan danke für deine Mühe klappt super 

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