Hallo,
ich bin noch Anfänger was das Journaling angeht.
Ich möchte die ausgewählte Zeichnungsansicht umbenennen.
Leider unterscheidet NX zwischen Schnitt-Ansicht, Importierter-Ansicht usw.
Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
Sub Main (ByVal args() As String)
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim theUI As UI = UI.GetUI()
Dim objects2(0) As NXObject
'objects2(0) = CType(theUI.SelectionManager.GetSelectedObject(0), Drawings.SectionView) 'Schnitt Ansicht
objects2(0) = CType(theUI.SelectionManager.GetSelectedObject(0), Drawings.BaseView) 'Importieret Ansicht (Grundansicht)
'objects2(0) = CType(theUI.SelectionManager.GetSelectedObject(0), Drawings.ProjectedView) 'Projizierte Ansicht
Dim objectGeneralPropertiesBuilder1 As ObjectGeneralPropertiesBuilder
objectGeneralPropertiesBuilder1 = workPart.PropertiesManager.CreateObjectGeneralPropertiesBuilder(objects2)
Dim selectNXObjectList1 As SelectNXObjectList
selectNXObjectList1 = objectGeneralPropertiesBuilder1.SelectedObjects
objectGeneralPropertiesBuilder1.Name = "Ansicht xx"
Dim nXObject2 As NXObject
nXObject2 = objectGeneralPropertiesBuilder1.Commit()
End Sub
End Module
Kann man den Ansichtstyp nicht auslesen und mit If..then umgehen?
Oder hat jemand eine einfachere Lösung?
Danke.
Gruß
Holgi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP