hallo zusammen
ich habe versucht, ein programm "zusammenzubauen", aus einer
funktionierenden schleife, und aus einer aufzeichnung (basis).
ziel: die farbe aller schnittlinien in einer zeichnung ändern.
leider geht das nicht, wer kann mir helfen?
-------------------------------------------------
Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
Sub Main
Dim theSession As Session = Session.GetSession()
Dim theUI As UI = UI.GetUI()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim worksheet As NXOpen.Drawings.DrawingSheet = workpart.DrawingSheets.CurrentDrawingSheet
worksheet.View.Fit()
Dim allVisObjects As NXOpen.DisplayableObject() = worksheet.View.AskVisibleObjects()
' das ist die basis
'Dim steppedSectionLine As Drawings.SteppedSectionLine = CType(workPart.FindObject("HANDLE R-12734"), Drawings.SteppedSectionLine)
'Dim sectionLineStyleBuilder As Drawings.SectionLineStyleBuilder = workPart.Drafting.SectionLines.CreateSectionLineStyleBuilder(steppedSectionLine)
'sectionLineStyleBuilder.SetColor(workPart.Colors.Find("Yellow"))
'Dim nXObject1 As NXObject = sectionLineStyleBuilder.Commit()
'sectionLineStyleBuilder.Destroy()
For Each obj As NXOpen.DisplayableObject In allVisObjects
Try
Dim steppedSectionLine As Drawings.SteppedSectionLine = CType(obj, Drawings.SteppedSectionLine)
If (Not steppedSectionLine Is Nothing) Then
Dim sectionLineStyleBuilder As Drawings.SectionLineStyleBuilder = workPart.Drafting.SectionLines.CreateSectionLineStyleBuilder(steppedSectionLine)
sectionLineStyleBuilder.SetColor(workPart.Colors.Find("Yellow"))
Dim nXObject1 As NXObject = sectionLineStyleBuilder.Commit()
sectionLineStyleBuilder.Destroy()
End If
Catch ex As Exception
End Try
Next
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
End Function
End Module
------------------
gruss urs
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP