topic Re: revision table not updae by vba in Inventor Programming Forum

revision table not updae by vba

skyngu — Mon, 03 Dec 2012 12:34:13 GMT

hi,

I tried to add a revision table by vba routie. useing fllowing code

Dim oRevStyle As RevisionTableStyle

Set oRevStyle = oDoc.StylesManager.RevisionTableStyles.Item("Revision Table_NEW")

Dim oRevTable As RevisionTable

Set oRevTable = oDoc.ActiveSheet.RevisionTables.Add2(oPoint, , , , , oRevStyle)

It adds revision table is not shown correct in the drawing. I have to manually select certain style in the drawing.

I try doc.update or view.update. it doesnt work. any idea?

Re: revision table not updae by vba

adam.nagy — Tue, 11 Dec 2012 12:58:47 GMT

Hi,

How did you create the style?

Can you reproduce the problem with a simple copy of a built-in style? - and then e.g. modify label size.

What is not correct with the created table?

Could you add a very minimal non-confidental document that enables others to reproduce the problem?

Cheers,

Re: revision table not updae by vba

skyngu — Tue, 11 Dec 2012 19:16:52 GMT

sorry, i didnt state the issue clearly. The revision table style is not exist in "local styles" but in "all styles".

so after i run the code, it adds revision table on the drawing and adds revision table style in style selector. then, i have to manually select correct revision table style from style selector.

thanks for your reply.

Sub test()

Dim oDoc As DrawingDocument

Set oDoc = ThisApplication.ActiveDocument

Dim oRevStyle As RevisionTableStyle

Set oRevStyle = oDoc.StylesManager.RevisionTableStyles.Item("Revision Table_NEW")

Dim oPoint As Point2d

Set oPoint = ThisApplication.TransientGeometry.CreatePoint2d(16, 10)

Dim oRevTable As RevisionTable

Set oRevTable = oDoc.ActiveSheet.RevisionTables.Add2(oPoint, , , , , oRevStyle)

End Sub

Re: revision table not updae by vba

xiaodong_liang — Wed, 09 Jan 2013 02:58:08 GMT

Hi,

have your tried with ConvertToLocal if it helps?

Dim oRevStyle As RevisionTableStyle
If oRevStyle.StyleLocation = kLibraryStyleLocation Then
oRevStyle.ConvertToLocal
End If

Re: revision table not updae by vba

skyngu — Wed, 09 Jan 2013 23:27:28 GMT

thanks. i will give it a try.

just wondering if i should insert this code before or after add revision table.

thanks.