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