---

Hallo alle zusammen,
ich hoffe ihr könnt mir weiter helfen,
hat schon mal einer von euch sich mit Journal in NX3 beschäftigt, genauer gesagt vb.net?

Wie kann ich eine Stückliste eine Spalte (Column) hinzufügen,

in c soll das so funktionieren

extern UFUNEXPORT int UF_PLIST_create_column(
    double width,                      /* <I> Column width */
    UF_PLIST_col_prefs_p_t col_prefs,  /* <I> Column preferences */
    UF_PLIST_column_type_t column_type, /* <I> Column type */
    tag_t *column                      /* <O> New column */
);

jetzt habe ich das nach VB.net umgeschrieben:

.Plist.CreateColumn(90.0, ColPrefs, UFPlist.ColumnType.ColumnTypeGeneral, ColTag)

aber er mach das nicht. Er schmeist mich immer raus mit einer "ObjectNotSetToAnInstance"
Exception.
Das heist irgendeiner der Parameter innerhalb der ColPrefs ist
nothing.

Danke in voraus für eure hilfe

l.pesch

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

---

Hallo alle zusammen,

hat den wenigstens einer ein C-Code wie ich einer Stückliste eine Spalte (Column) hinzufügen kann.
Hab bei ugs alles abgesucht, aber leider nichts darüber gefunden, nur wie man eine Stückliste erzeugt, das habe ich ja, ich will ja nur noch Stückliste selectieren und Spalte hinzufügen.

Ich hoffe es kann mir einer helfen.

Danke in voraus für die Hilfe.

Gruß l.pesch

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

---

Hallo alle zusammen,

ist den wirklich keiner da, der sich mit sowas auskennt?

ich will ja nur ne spalte programmtechnisch in eine Stückliste einfügen.

Gruß l.pesch

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

---

Hallo, möchte eigentlich keine 18 Jahre alten Beiträge wieder ausgraben, aber hatte auch gerade das Problem, bei mir funzt folgendes:

Vielleicht kann es ja jemand brauchen...

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module Module1

Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()

Sub Main()

If IsNothing(theSession.Parts.BaseWork) Then
'active part required
Return
End If

Dim workPart As Part = theSession.Parts.Work
Const undoMarkName As String = "edit parts list column "
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, undoMarkName)

Dim partsListTags() As Tag
Dim numPartsLists As Integer

theUfSession.Plist.AskTags(partsListTags, numPartsLists)

If numPartsLists = 0 Then
Msgbox("No parts lists found in work part, exiting")
Return
End If

For Each temp As Tag In partsListTags
Dim colWidth As Double
colWidth = 100
Dim colPrefs As UFPlist.colPrefs = Nothing
theUfSession.Plist.AskDefaultColPrefs(colprefs)

Dim columntype As UFPlist.ColumnType = 0

Dim columnTag As Tag = Tag.Null
colPrefs.default_string = "<W$=@$PART_NAME>"
colPrefs.is_key_field = True
theUfSession.Plist.CreateColumn(colWidth,colPrefs,columntype,columnTag)
theUfSession.Tabnot.AddColumn(temp, columnTag, UFConstants.UF_TABNOT_APPEND)
Next

End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

'Unloads the image immediately after execution within NX
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

End Function

End Module

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