---

Moin!

ich habe folgenden Code erstellt und in der gekennzeichneten Zeile bekomme ich eine Fehlermeldung!

Code:

---

Imports System
Imports Microsoft.VisualBasic
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices

Public Class Projekt
    <CommandMethod("EBL_Projekt")>
    Public Shared Sub SetProjektInfo2Properties()
        Const k_PropertyKey As String = "EBL_PROJEKT"
        Dim ProjektBezeichnung As String = ""
        Dim Editor As Autodesk.AutoCAD.EditorInput.Editor
        Dim Database As Autodesk.AutoCAD.DatabaseServices.Database

        Dim infobuilder As DatabaseSummaryInfoBuilder = New DatabaseSummaryInfoBuilder()
        Dim info As DatabaseSummaryInfo = infobuilder.ToDatabaseSummaryInfo
        Dim f As frm_ProjektProperties
        Try
            Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
            Database = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database

            ProjektBezeichnung = infobuilder.CustomPropertyTable.Item(k_PropertyKey).ToString.Trim '<<<--- HIER IST DER FEHLER
        Catch ex As System.Exception
            MsgBox("Fehler beim Funktionsstart !" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, k_CompanyName)
        End Try
....
end sub

---

Fehlermeldung:

Auch beim Debuggen finde ich keinen Hinweis.

Kann mir einer weiterhelfen?

Gruß Jan

------------------
jan :-)

[Diese Nachricht wurde von tappenbeck am 22. Jun. 2017 editiert.]

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

---

... da wird wohl irgendein Objekt nicht oder nicht korrekt instanziert zu sein.
Das solltst du doch aber beim Debuggen ermitteln können, welches Objekt null ist daraus dann auf den Fehler schließen können?
Im Zweifel packe nicht alles in eine Zeile und lege dir temporär Variablen an, denen du die Ergebniss Zwischenschritte zuweist. Irgendeine dieser Variablen ist Null, was sie aber nicht sein darf.

Ich vermute, dass der infobuilder leer ist, und deshalb keine CustomTable hat.
in c# sieht's so aus:

Code:

---

DatabaseSummaryInfoBuilder infoBuilder = new DatabaseSummaryInfoBuilder(_db.SummaryInfo);

---

Vielleicht hilft's?

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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