我得到的是一个来自Autocad的例子，但我可以很容易地修改它来工作。
在这里...
Sub Example_SummaryInfo()
'此示例显示如何访问绘图属性
'添加并显示此绘图的标准属性。summary info . Author = " John Doe "
此图。SummaryInfo.Comments = "包括五号楼的所有十层"
此图纸。summary info . hyperlink base = " http://www . Autodesk . com "
此绘图。summary info . Keywords = " Building Complex "
此图。summary info . LastSavedBy = " JD "
此绘图。summary info . revision number = " 4 "
此绘图。SummaryInfo.Subject = "五号楼平面图"
此图。summary info . Title = " Building Five "
Author = this drawing。SummaryInfo . Author
Comments = this drawing。HLB =本图。summary info . hyperlink base KW = this drawing。SummaryInfo . Keywords
LSB = this drawing。summary info . LastSavedBy RN = this drawing。SummaryInfo . revision number
Subject = this drawing。summary info . Subject
Title = this drawingSummaryInfo.Title
MsgBox "标准绘图属性为" & vbCrLf & _
"作者= " &作者& vbCrLf & _
"注释= " &评论& vbCrLf & _
"超链接基础= " & HLB & vbCrLf & _
"关键字= " & KW & vbCrLf & _
" LastSavedBy = " & LSB & vbCrLf & _
"修订号= " & RN & vbCrLf & _
" Subject = " & Subject & vbCrLf & _
" Title = " & Title & ' vbCrLf '添加并显示自定义属性
Dim key 0 As String
Dim value 0 As String
Dim key 1 As String
Dim value 1 As String
Dim custompropertybranchvalue As String
Dim CustomPropertyZone As String
Dim property Zone value As String
CustomPropertyBranch = " Branch "
PropertyBranchValue = " Main "
customproperty Zone = " Zone "
property Zone value = " Industrial "
'添加自定义属性
If(如果 SummaryInfo.NumCustomInfo >= 1)，然后绘制。SummaryInfo.SetCustomByIndex 0，CustomPropertyBranch，PropertyBranchValue
Else
this drawing。summary info . AddCustomInfo custompropertybranchvalue
End If
If(this drawing。SummaryInfo.NumCustomInfo >= 2)，然后绘制。summary info . SetCustomByKey CustomPropertyBranch，" Satellite "
Else
this drawing。summary info . AddCustomInfo CustomPropertyZone，PropertyZoneValue
End If
' Get custom properties
this drawing。SummaryInfo.GetCustomByIndex 0，Key0，Value0。SummaryInfo.GetCustomByKey Key1，Value1
MsgBox "自定义绘图属性为" & vbCrLf & _
"第一个属性值= " & Key0 & vbCrLf & _
"第一个属性值= " & Value0 & vbCrLf & _
"第二个属性值= " & Key1 & vbCrLf & _
"第二个属性值= " & Value1 & vbCrLf
结束子
置顶卡
