---

Hallo miteinander,

ich möchte benutzerdefinierte Zeichnungseigenschaften auslesen bzw ändern aber so richtig funktioniert das nicht.

Ich habe mir ein Programm geschrieben das eine Userform öffnet.
Auf dieser soll der Inhalt einer Zeichnungseigenschaft in einer Textbox angezeigt werden.
Aber so richtig will das nicht funktionieren.

Code:

---

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry

Public Class UserformTest

    <CommandMethod("Userform")> Public Sub Userform()

        Dim tFormObj As Form1 = New Form1
        tFormObj.ShowDialog()

    End Sub

End Class

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.ApplicationServices

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            Dim oDrawDoc As Autodesk.AutoCAD.DatabaseServices.Database
            oDrawDoc = Application.DocumentManager.MdiActiveDocument.Database

            Dim key As String
            key = "TestVariable"
            TextBox1.Text = oDrawDoc.SummaryInfo.CustomProperties.Key(key)
           
        Catch ex As Exception
            MsgBox("Fehler")
        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub

End Class

---

Bei """ TextBox1.Text = oDrawDoc.SummaryInfo.CustomProperties.Key(key) """ fliegt er raus.
Nichtmal die Try-Catch-Abfrage erkennt das dort ein Fehler kommt...

Hat jemand eine Idee wie ich den Code anpassen muss, dass das Programm funktioniert?

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Also ich habe jetzt das Problem am Wochenende lösen können.
So funktioniert es.

Code:

---

        Dim oDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim builder As DatabaseSummaryInfoBuilder = New DatabaseSummaryInfoBuilder(oDoc.Database.SummaryInfo)

        'Inhalt einer bestimmten benutzerdefinierten Zeichnungseigenschaft(muss bereits angelegt sein sonst wird "" zurückgegeben, keine Fehlermeldung)
        Textbox1.Text = builder.CustomPropertyTable.Item("TestProp"))

        'Autor ändern
        builder.Author = "Ich"

        'b.Zeichnungseigenschaft ändern(wenn es nicht vorhanden ist wird es erstellt)
        builder.CustomPropertyTable.Item("TestProp") = "Geändert"

        'neue b.Zeichnungseigenschaft erstellen (darf nicht vorhanden sein, besser Variante darüber verwenden)
        builder.CustomPropertyTable.Add("TestProp2", "Nummer2")

        'Wichtig: wird benötigt um die Änderungen einzulesen
        oDoc.Database.SummaryInfo = builder.ToDatabaseSummaryInfo()

---

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

[Diese Nachricht wurde von Fiedel93felix am 12. Dez. 2016 editiert.]

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