Set DWG Properties (will not show)

jan_tappenbeck — Mon, 21 Jun 2021 12:56:33 GMT

hi !

i want to set dwg properties. i found following example: https://adndevblog.typepad.com/autocad/2012/05/writing-autocad-drawing-summary-information.html

i create following function for this job in a seperate class

''' <summary> ''' schreiben von vordefinierten Eigenschaften ''' </summary> ''' <param name="Titel">optional Titel der Zeichnung (default:= Leerstring - keine Übernahme)</param> ''' <param name="Thema">optional Thema der Zeichnung (default:= Leerstring - keine Übernahme)</param> ''' <param name="Verfasser">optional Verfasser der Zeichnung (default:= Leerstring - keine Übernahme)</param> ''' <param name="Kommentar">optional Kommentar (default:= Leerstring - keine Übernahme)</param> ''' <param name="Schlüssel">optional Schlüsselworte für die Suche (default:= Leerstring - keine Übernahme)</param> ''' <param name="HyperBase">optional Basis für eingefügte Hyperlinks (default:= Leerstring - keine Übernahme)</param> ''' <remarks>es erfolgt keine Prüfung, ob bereits Werte vorhanden sind</remarks> Public Sub Write(Optional Titel As String = "", Optional Thema As String = "", Optional Verfasser As String = "", Optional Kommentar As String = "", Optional Schlüssel As String = "", Optional HyperBase As String = "") '------ https://adndevblog.typepad.com/autocad/2012/05/writing-autocad-drawing-summary-information.html ------ Dim Editor As Autodesk.AutoCAD.EditorInput.Editor Dim acDoc As Autodesk.AutoCAD.ApplicationServices.Document Dim AcDb As Autodesk.AutoCAD.DatabaseServices.Database acDoc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument Editor = acDoc.Editor AcDb = acDoc.Database Editor.WriteMessage("standard Zeichnungseigenschaften setzen/ändern" & vbCrLf) Dim infobuilder As DatabaseSummaryInfoBuilder = New DatabaseSummaryInfoBuilder(AcDb.SummaryInfo) Dim info As DatabaseSummaryInfo = infobuilder.ToDatabaseSummaryInfo Try Dim docLock As DocumentLock = acDoc.LockDocument Using docLock If Titel.Length > 0 Then infobuilder.Title = Titel If Thema.Length > 0 Then infobuilder.Subject = Thema If Verfasser.Length > 0 Then infobuilder.Author = Verfasser If Kommentar.Length > 0 Then infobuilder.Comments = Kommentar If Schlüssel.Length > 0 Then infobuilder.Keywords = Schlüssel If HyperBase.Length > 0 Then infobuilder.HyperlinkBase = HyperBase AcDb.SummaryInfo = info End Using 'docLock Try Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor.Regen() Catch ex As System.Exception _Log?.WriteAsError("unerwarteter Fehler in EBL.Acad > Properties > Write" & Environment.NewLine & ex.ToString, ShowInfoDialog:=True) End Try Catch ex As System.Exception _Log?.WriteAsError("Fehler beim Zuweisen einer Zeichnungseigenschaft!" & Environment.NewLine & ex.ToString, ShowInfoDialog:=True) End Try End Sub

i called by following in a existing (normally unsaved drawing)

Dim acDocMgr As DocumentCollection = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager Dim acDoc As Autodesk.AutoCAD.ApplicationServices.Document = acDocMgr.MdiActiveDocument Dim strDWGName As String = acDoc.Name Dim obj As Object = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("DWGTITLED") '2017-07-12 Tap - Speichern umbelenkt Dim ErrText As String = "" If _AcadServ.AcSaveAsVersion(NeuerDWGName, acDoc, ErrText, True) = False Then MessageBox.Show("Fehler beim Speichern der Datei!" & Environment.NewLine & Environment.NewLine & ErrText, k_AppName_AllgDWGSave, MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If ' schreiben der Zeichnungseigenschaften Dim fProperties As New EBL.Acad.Properties() With fProperties .VerfasserEbl() .Write(Titel:=DWG_Titel, Thema:=DWG_Thema, Kommentar:="DWG erstellt am: " & DateTime.Now.ToString("dd.MM.yyyy")) End With

the file is open and when i current look into the properties-manager there are no values!

in debug-mode there will the values show in infobuilder-variable

could someone help?

regards Jan

Re: Set DWG Properties (will not show)

R.Gerritsen4967 — Mon, 21 Jun 2021 14:18:26 GMT

This is what I have been using for a few years now:

Public Function Dwgprops() As DatabaseSummaryInfo Dim builder As New DatabaseSummaryInfoBuilder With { .Title = "Title", .Subject = "Subject", .Author = "Author", .Keywords = "Keywords", .HyperlinkBase = "www.hyperlink.com", .Comments = "Comments" } Return builder.ToDatabaseSummaryInfo() End Function

The function is called by this command:

<Autodesk.AutoCAD.Runtime.CommandMethod("PROPS", CommandFlags.Modal)> Public Sub PROPS() Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database db.SummaryInfo = Dwgprops() End Sub

It looks mostly the same as your method. But maybe you could try this?

topic Re: Set DWG Properties (will not show) in .NET Forum

Set DWG Properties (will not show)

Re: Set DWG Properties (will not show)