Overview

The following example illustrates using the AddCustomlnfo method and setting properties of the Summarylnfo object to manipulate standard built-in drawing properties and create custom properties:

Public Sub TestSummaryInfoObject() With ThisDrawing.Summarylnfo .Author = "Joe Sutphin" .RevisionNumber = "3" .Subject = "The Flying Delorean Project" .Title = "Flux Capacitor" .AddCustomlnfo "ItemNo", "11051955" End With End Sub

Figure 21-2 illustrates the resulting DWGPROPS dialog box when you execute the code in the preceding example above. Note the added custom property ItemNo.

Figure 21-2. Summary and custom property views

Figure 21-2. Summary and custom property views

Was this article helpful?

0 0

Post a comment