---

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

---

Hi Sirus,

welche Fehlermeldung bekommst du den?

bei workPart.FindObject("HANDLE R-12734"), ist auch das Problem das sich die Nummer schön beim schließen und öffnen des Parts ändern kann. Die Section Line was der Ursprung ist musst du schon mal anders auswählen...

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

---

Hallo urs,

versuch diese Schleife:

Code:

---

  For Each sectionLine As SectionLine In workPart.Drafting.SectionLines.ToArray()

    Dim slBuilder As SectionLineStyleBuilder = workPart.Drafting.SectionLines.CreateSectionLineStyleBuilder(sectionLine)
    slBuilder.SetColor(workPart.Colors.Find("Yellow"))

    Dim nXObject1 As NXObject
    nXObject1 = slBuilder.Commit()
    slBuilder.Destroy()

  Next

---

------------------
Gruß
Wladimir

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

---

hallo wladimir

vielen dank, funktioniert einwandfrei!

------------------
gruss urs 

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