---

IVverknuepfung.JPG

Hi,

Ich möchte mit VB.Net einen 3D Katalog konvertieren. Das ganze läuft auch relativ gut mit einer Ausnahme. Bei manchen Baugruppen (eher selten), kommt der Dialog zum "Verknüpfung auflösen". Dabei verweist er auf Teile die nicht in die Baugruppe gehören - also tote Links. Hab mal ein Bild im Anhang wie das aussieht.
Ich hoffe das das einfacher zu erschlagen ist als jede Baugruppe nach Verknüpfungen zu durchsuchen und für jede nachzuschauen ob die Datei existiert.
Wie kann ich verhindern das er das nachfragt? Die Verknüpfungen zu den Teilen die er nicht findet soll er einfach löschen, ignorieren, überspringen, wie auch immer. Er soll nur eben nicht die Operationen anhalten.

Wie kann ich das realisieren?

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

---

F1 -> SilentOperation.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Zitat:

---

Original erstellt von cadtb:

Darunter find ich nichts.
Weder in der Inventor 2008 -, noch in der VB Studio 2005 Hilfe.

---

In der API Hilfe natürlich...

Zitat:

---

Description
Gets/sets the Boolean flag that controls whether an operation will proceed without prompting (if that gets required...e.g.: error message dismissal). If Autodesk Inventor is running visible, this property is FALSE by default.
Property type
Read-write property

Syntax (Visual Basic)
Public Property SilentOperation() As Boolean

---

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Hm, danke für den Wink in die Richtung.
Aber irgendwie versteh ich das trotzdem nicht so ganz, da hält sich die Hilfe mit Informativen Texten sehr zurück.
Wie ist das zu verwenden?
Habe das jetzt oben drinstehen:

Code:

---

    Public Property SilentOperation() As Boolean
        Get

        End Get
        Set(ByVal value As Boolean)
            value = True
        End Set
    End Property

---

Nur hat das keinen Effekt. Habe auch schon die SuFu genutzt, aber leider kein Beispiel gefunden.
Hat hierfür jemand ein kleines Beispiel?

Edit: Jupp, hatte zuerst unter F1 die normale Inventor Hilfe, da fand ich nichts.

[Diese Nachricht wurde von cadtb am 12. Dez. 2008 editiert.]

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

---

InvApp.SilentOperation = True bewirkt, dass Inventor keine Meldungen (z.B. fehlende Referenzen) ausgibt. Aber nicht vergessen die InvApp.SilentOperation wieder auf False zu setzen wenn deine Funktionen fertig sind.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Danke dir, scheint zu funktionieren   
Allerdings sagt er dennoch gelegentlich "Dokument kann nicht geöffnet werden.",
trotz .SilentOperation.
Habs mit

Code:

---

Try
  ..
Catch ex As Exception
  Return
End Try

---

probiert, aber kommt dennoch die Meldung.
Hast du dafür auch einen Tipp?

Hier mal mein Code, evntl. lässt sich da ja noch was verbessern:

Code:

---

    Public Sub FileConvert(ByVal DestinationPath As String, ByVal SourcePath As String, ByVal SourceFile As String, ByVal Extension As String)

        Dim sFile As String = SourcePath & SourceFile & Extension
        Dim dFile As String = DestinationPath & SourceFile & ".stp"
        If Not System.IO.File.Exists(dFile) Then

            Dim oApp As Inventor.Application
            Dim oDoc As Inventor.Document

            Try
                oApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
                If oApp Is Nothing Then
                    Dim inventorAppType As Type = System.Type.GetTypeFromProgID("Inventor.Application")
                    oApp = System.Activator.CreateInstance(inventorAppType)
                End If
                Status.stbox("Konvertiere: " & sFile)
                oApp.SilentOperation = True
                oDoc = oApp.Documents.Open(sFile, False)
                oDoc.SaveAs(dFile, True)
                iMin = iMin + 1
                ConvertProgress(iMin)
                oDoc.Close(True)
            Catch ex As Exception
                Return
            End Try
        End If
    End Sub

---

[Diese Nachricht wurde von cadtb am 15. Dez. 2008 editiert.]

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