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
论坛推荐阅读;如何删除审核表的行