操作审核表（Revision Table）

Inventor API对工程图的审核表（Revision Table）提供了丰富的功能。基本用户界面能做的， API都有相应的方法。 

• RevisionTables： 审核表的集合。它的Add或Add2用来添加新表
• RevisionTable：  审核表。可以操作其样式，标题，甚至删除
• RevisionTableColumns： 列集合。它提供了添加方法。

RevisionTableColumns.Add( 

PropertyType As RevisionTablePropertyEnum,

[PropertySetId] As String,

[PropertyIdentifier] As Variant,

[TargetIndex] As Long, 

[InsertBefore] As Boolean ) As RevisionTableColumn

其中的 RevisionTablePropertyEnum规定了列的数据类型。和用户界面对应。

 

• RevisionTableColumn： 列对象。可以修改样式，对齐方式，或删除等
• RevisionTableRows： 行集合。支持添加新的行
• RevisionTableRow：行对象。其中的RevisionTableRow.Item访问到每个格内值
• RevisionTableCell ： 具体每个格的对象

以下代码演示了如何添加审核表，添加行和列

Sub AddRevisionTable()

 

    Dim oDrawDoc As DrawingDocument

    oDrawDoc = ThisApplication.ActiveDocument

 

    Dim oRTBs As RevisionTables

    oRTBs = oDrawDoc.ActiveSheet.RevisionTables

 

    Dim oLocation As Point2d

    oLocation = ThisApplication.TransientGeometry.CreatePoint2d(10, 10)

 

    'add a new table

    Dim oRTB As RevisionTable

    oRTB = oRTBs.Add(oLocation)

 

    'add a new row

    Call oRTB.RevisionTableRows.Add()

 

    'add a new column of file property: Design Tracking Properties 
    '>> Part Number

    Call oRTB.RevisionTableColumns.Add(kRevisionTableFileProperty, 
                                      "{32853F0F-3444-11D1-9E93-0060B03C1CA6}",
                                       5)

 

    'add a custom column. [PropertySetId] is ignored. 
    ' [PropertyIdentifier] should be specified

    Call oRTB.RevisionTableColumns.Add(kRevisionTableCustomProperty, "", "MyCustomProperty")

 

    'add a date property

    'one table can only have one Date column

    Dim oEachCol As RevisionTableColumn

    Dim hasDate As Boolean

    hasDate = False

    For Each oEachCol In oRTB.RevisionTableColumns

        If oEachCol.PropertyType = kRevisionTableDateProperty Then

            hasDate = True

            Exit For

        End If

    Next

 

    If hasDate = False Then

        Call oRTB.RevisionTableColumns.Add(kRevisionTableDateProperty)

    End If

 

End Sub

论坛推荐阅读;

如何删除审核表的行

http://forums.autodesk.com/t5/inventor-customization/revision-table-delete-table-add-table-add-text-to-active-row/m-p/5183291/highlight/true#M51108