---

Wie kann ich bei einer bestehenden Tabelle den Style oder die Eigenschaften ändern? Z.B.: die max. Höhe einer Tabelle ab der die Tabelle umgebrochen wird.
Ich habe es mal so probiert:

  Dim tabeinstellungen As New UFTabnot.SectionPrefs
  ufs.Tabnot.AskSectionPrefs(tabelle, tabeinstellungen)
  tabeinstellungen.max_height = 250.0
  ufs.Tabnot.SetSectionPrefs(tabelle, tabeinstellungen)

das hat aber nicht funktioniert.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hast du in der Zwischenzeit eine Lösung gefunden? Ich habe hier das selbe Problem in NX 10.

------------------
Viele Grüsse aus dem Schwabenländle

Massimo Castell

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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