SummaryInfo Example

Using Programming Languages other than VBA

Sub Example_SummaryInfo()
		' This example shows how to access drawing properties
		
		' Add and display standard properties
		ThisDrawing.SummaryInfo.Author = "John Doe"
		ThisDrawing.SummaryInfo.Comments = "Includes all ten levels of Building Five"
		ThisDrawing.SummaryInfo.HyperlinkBase = "http://www.autodesk.com"
		ThisDrawing.SummaryInfo.Keywords = "Building Complex"
		ThisDrawing.SummaryInfo.LastSavedBy = "JD"
		ThisDrawing.SummaryInfo.RevisionNumber = "4"
		ThisDrawing.SummaryInfo.Subject = "Plan for Building Five"
		ThisDrawing.SummaryInfo.Title = "Building Five"

		Author = ThisDrawing.SummaryInfo.Author
		Comments = ThisDrawing.SummaryInfo.Comments
		HLB = ThisDrawing.SummaryInfo.HyperlinkBase
		KW = ThisDrawing.SummaryInfo.Keywords
		LSB = ThisDrawing.SummaryInfo.LastSavedBy
		RN = ThisDrawing.SummaryInfo.RevisionNumber
		Subject = ThisDrawing.SummaryInfo.Subject
		Title = ThisDrawing.SummaryInfo.Title
		MsgBox "The standard drawing properties are " & vbCrLf & _
					"Author = " & Author & vbCrLf & _
					"Comments = " & Comments & vbCrLf & _
					"HyperlinkBase = " & HLB & vbCrLf & _
					"Keywords = " & KW & vbCrLf & _
					"LastSavedBy = " & LSB & vbCrLf & _
					"RevisionNumber = " & RN & vbCrLf & _
					"Subject = " & Subject & vbCrLf & _
					"Title = " & Title & vbCrLf

		' Add and display custom properties
		Dim Key0 As String
		Dim Value0 As String
		Dim Key1 As String
		Dim Value1 As String
		Dim CustomPropertyBranch As String
		Dim PropertyBranchValue As String
		Dim CustomPropertyZone As String
		Dim PropertyZoneValue As String

		CustomPropertyBranch = "Branch"
		PropertyBranchValue = "Main"
		CustomPropertyZone = "Zone"
		PropertyZoneValue = "Industrial"

		' Add custom properties
		If (ThisDrawing.SummaryInfo.NumCustomInfo >= 1) Then
				ThisDrawing.SummaryInfo.SetCustomByIndex 0, CustomPropertyBranch, PropertyBranchValue
		Else
				ThisDrawing.SummaryInfo.AddCustomInfo CustomPropertyBranch, PropertyBranchValue
		End If

		If (ThisDrawing.SummaryInfo.NumCustomInfo >= 2) Then
				 ThisDrawing.SummaryInfo.SetCustomByKey CustomPropertyBranch, "Satellite"
		Else
				 ThisDrawing.SummaryInfo.AddCustomInfo CustomPropertyZone, PropertyZoneValue
		End If

		'Get custom properties
		ThisDrawing.SummaryInfo.GetCustomByIndex 0, Key0, Value0
		Key1 = CustomPropertyZone
		ThisDrawing.SummaryInfo.GetCustomByKey Key1, Value1

		MsgBox "The custom drawing properties are " & vbCrLf & _
					"First property name = " & Key0 & vbCrLf & _
					"First property value = " & Value0 & vbCrLf & _
					"Second property name = " & Key1 & vbCrLf & _
					"Second property value = " & Value1 & vbCrLf
End Sub

 

   Comments?