Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
c.neutschK4ZB6
244 Views, 1 Reply

revision table style doesn't change the table

I add a rev-table with Ilogic and it works quite ok. The table is created and placed correctly, but the style seems not to work.

 

The style is set correct, but the the view of the table is wrong. If I click the style once again with the mouse, the table is in shown correct style.

 

Where is the problem?

 

Dim oApp As Application
Dim oDoc As DrawingDocument
Dim oSheet As Sheet
Dim oRevTable As RevisionTable
Dim myPoint As Inventor.Point2d
Dim oRevTableId As RevisionTableStyle
Dim oRevStart As String
'Dim oRevTableLayer As Layer
oApp = ThisApplication
oDoc = ThisDoc.Document
oSheet = oDoc.ActiveSheet


If oSheet.RevisionTables.Count = 0 Then
    'MsgBox("There is no RevisionTable on this sheet.") 
	myPoint = oApp.TransientGeometry.CreatePoint2d(0, 0)
	oRevTableId = oDoc.StylesManager.RevisionTableStyles.Item("FW_Revisionstabelle")
	'oRevStart = "00"	
	oRevTable = oSheet.RevisionTables.Add2(myPoint, False, False, False, "00",oRevTableId)
	'oRevTable.Layer = "Titel (ISO)"
	'Exit Sub
End If

cneutschK4ZB6_0-1638878879363.png

 

after clicking the style once again

cneutschK4ZB6_1-1638878928682.png