Hallo Massimo,
für den Umbruch der Tabelle nutze ich folgende Funktion:
Public Sub plist_hoehe(ByVal plisthoehe As Double)
Dim plist(-1), plsect As Tag
Dim npl, nsect As Integer
Dim tab As Annotations.Table
Dim tabsect As Annotations.TableSection = Nothing
Dim oman As NXObjectManager = sess.GetObjectManager()
ufs.Plist.AskTags(plist, npl)
If plist.Length > 0 Then
tab = CType(oman.GetTaggedObject(plist(0)), Annotations.Table)
' Sections aus Table ermitteln
ufs.Tabnot.AskNmSections(plist(0), nsect)
For j As Integer = 0 To nsect - 1
ufs.Tabnot.AskNthSection(plist(0), j, plsect)
tabsect = CType(oman.GetTaggedObject(plsect), Annotations.TableSection)
Next
Dim objects1(0) As NXOpen.DisplayableObject
objects1(0) = tabsect
Dim tableEditSettingsBuilder1 As NXOpen.Annotations.TableEditSettingsBuilder
tableEditSettingsBuilder1 = wp.SettingsManager.CreateTableEditSettingsBuilder(objects1)
tableEditSettingsBuilder1.TableSection.ApplyToAllSections = True
Dim editsettingsbuilders1(0) As NXOpen.Drafting.BaseEditSettingsBuilder
editsettingsbuilders1(0) = tableEditSettingsBuilder1
wp.SettingsManager.ProcessForMultipleObjectsSettings(editsettingsbuilders1)
tableEditSettingsBuilder1.TableSection.MaximumHeight = plisthoehe
Dim nXObject1 As NXOpen.NXObject
nXObject1 = tableEditSettingsBuilder1.Commit()
tableEditSettingsBuilder1.Destroy()
End If
End Sub
Zum Thema Style der Tabelle gibt es mehrere Ansätze.
Siehe hierzu den Thread: http://ww3.cad.de/foren/ubb/Forum442/HTML/001243.shtml
Herzliche Grüße
Tolo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP