Adding custom metadata to Documents
https://forums.autodesk.com/t5/net/adding-cu ... #100;ocuments/td-p/3840044

 'AddProp
    <CommandMethod("TcAddProp")> _
    Public Sub TcAddProp()
        Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Dim infoBuilder As New DatabaseSummaryInfoBuilder()
        infoBuilder.CustomPropertyTable("key1") = "value1"
        infoBuilder.CustomPropertyTable("key2") = "value2"
        doc.Database.SummaryInfo = infoBuilder.ToDatabaseSummaryInfo()
        doc.Database.SaveAs("C:/test.dwg", DwgVersion.Current)
    End Sub

 'ReadProp
    <CommandMethod("ReadProp")> _
    Public Sub TcReadProp()
        Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Dim db As Database = doc.Database
        Dim info As DatabaseSummaryInfo = db.SummaryInfo
        Dim cust As System.Collections.IDictionaryEnumerator = info.CustomProperties
        While cust.MoveNext()
            Dim key As String = TryCast(cust.Entry.Key, String)
             Dim value As String = TryCast(cust.Entry.Value, String)
        End While
    End Sub

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*6=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情