Accessing Revision number / Revision date / Purpose and Category of a sheet

By Balaji Ramamoorthy

Unlike the other sheet properties that are accessed using the IAcSmSheet interface, the Revision number, Revision date, Purpose and Category are properties defined in the IAcSmSheet2 interface.

Here is a sample code snippet to access those properties :

Imports ACSMCOMPONENTS19Lib
 
 _
 Public Sub DispSheetDetails()
    Dim dstFile As String
    dstFile = "C:TempMySheetSet.dst"
 
    Dim mgr As AcSmSheetSetMgr = New AcSmSheetSetMgr()
    Dim db As AcSmDatabase = New AcSmDatabase()
    db = mgr.OpenDatabase(dstFile, False)
 
    Dim ss As AcSmSheetSet = db.GetSheetSet()
    Dim EnumSheets As IAcSmEnumComponent = ss.GetSheetEnumerator()
 
    Dim smComponent As IAcSmComponent
    Dim sheet As IAcSmSheet
    Dim sheet2 As IAcSmSheet2
 
    ' Get the first sheet
    smComponent = EnumSheets.Next()
 
    While True
        If smComponent Is Nothing Then
            Exit While
        End If
 
        sheet = TryCast(smComponent, IAcSmSheet)
 
        ' To access the revision number, 
        ' Revision date, Purpose and Category,
        ' cast it as IAcSmSheet2
        sheet2 = TryCast(smComponent, IAcSmSheet2)
        If sheet2 IsNot Nothing Then
            'Revision Number
            Dim revNumber As String
            revNumber = sheet2.GetRevisionNumber()
 
            'Revision Date
            Dim revDate As String
            revDate = sheet2.GetRevisionDate()
 
            'Purpose
            Dim purpose As String
            purpose = sheet2.GetIssuePurpose()
 
            'Category
            Dim cat As String
            cat = sheet2.GetCategory()
        End If
 
        smComponent = EnumSheets.Next()
    End While
 
    mgr.Close(db)
End Sub