---

Hallo zusammen
Bin blutiger Anfänger in Vb.Net deshalb ist die Frage vielleicht total dumm aber ich sehe das Problem nicht
will gerade ein Vba Makro in Vb.net umstrickten.
Kommen aber nicht weiter ich habe mit einer Variabeln Problem
weiß aber gerade nicht wie ich das Problem lösen soll.

hier mein Ansatz:
vielleicht kann mir jemand auf die Sprünge helfen

Code:
Imports System
Imports System.Type
Imports System.Activator
Imports System.Runtime.InteropServices
Imports Inventor
Public Class Form1

    'Public Sub New()
    '    Dim _invApp As Inventor.Application
    '    _invApp = Marshal.GetActiveObject("Inventor.Application")
    '    ' Dieser Aufruf ist für den Designer erforderlich.
    '    InitializeComponent()

    'End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim _invApp As Inventor.Application
        _invApp = Marshal.GetActiveObject("Inventor.Application")
        Dim oDoc As PropertySets
        Dim oDoc1 As Document
        oDoc = oDoc1.PropertySets

        Dim s1 As String = "Es ist kein Inventordokument geöffnet!" & vbCrLf _
                            & "Möchten Sie ein Bauteildokument oder" & vbCrLf _
                            & " ein Baugruppendokument öffnen?"

        If _invApp.ActiveDocumentType <> DocumentTypeEnum.kAssemblyDocumentObject And
            _invApp.ActiveDocumentType <> DocumentTypeEnum.kPartDocumentObject Then
            MessageBox.Show(s1, "Fehler1",
                          MessageBoxButtons.YesNo,
                          MessageBoxIcon.Exclamation,
                          MessageBoxDefaultButton.Button2)
            If Windows.Forms.DialogResult.No Then
                OpenFileDialog.ShowDialog()
            Else
                Exit Sub
            End If
        End If

        Dim Bestellangaben, Description, L1, L2, Rohmaterial, Werkstoff_Oberflaeche As String

        Bestellangaben = 0
        Description = 0
        L1 = 0
        L2 = 0
        Rohmaterial = 0
        Werkstoff_Oberflaeche = 0

        For Each oPropSet In oDoc
            If oPropSet.Name = "Inventor User Defined Properties" Then
                For Each oProp In oPropSet
                    ' Debug.Print oProp.Name
                    Select Case oProp.Name
                        Case "BESTELLANGABEN"
                            Bestellangaben = 1
                        Case "Description"
                            Description = 1
                        Case "L1"
                            L1 = 1
                        Case "L2"
                            L2 = 1
                        Case "Rohmaterial"
                            Rohmaterial = 1
                        Case "Werkstoff_Oberfläche"
                            Werkstoff_Oberflaeche = 1
                        Case Else
                            oProp = oProp.Delete()
                    End Select
                Next

                If Bestellangaben = 0 Then
                    Call oPropSet.Add("", "BESTELLANGABEN")
                End If
                If Description = 0 Then
                    Call oPropSet.Add("", "Description")
                End If
                If L1 = 0 Then
                    Call oPropSet.Add("", "L1")
                End If
                If L2 = 0 Then
                    Call oPropSet.Add("", "L2")
                End If
                If Rohmaterial = 0 Then
                    Call oPropSet.Add("", "Rohmaterial")
                End If
                If Werkstoff_Oberflaeche = 0 Then
                    Call oPropSet.Add("", "Werkstoff_Oberflaeche")
                End If
            End If
        Next
    End Sub
End Class

Schon mal Danke in Voraus 

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

---

Hallo Volker,

in diesem Code ist Dokument zwar deklariert, jedoch fehlt die Zuweisung.

Code:

---

Dim oDoc1 As Document = _invApp.ActiveDocument

---

Des Weiteren ist OpenFileDialog nicht instanziert.
Aber stattdessen würde ich inventoreigenen FileDialog vorziehen. Für Inventor-Dateien ist dieser mMn besser geeignet.

------------------
alex

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

---

Hallo Alex

danke für den Tipp

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