---

hallo zusammen

hier im forum habe ich ein gutes beispiel gefunden
um alle bodies auf einen definierten layer zu verschieben, siehe unten.

gibt es evtl. auch eine funktion an stelle des move-layer
ein farben- wechsel der bodies?

------------------------

Option Strict Off
Imports System
Imports NXOpen

Module move_all_bodies_to_specified_layer
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workpart as Part = theSession.Parts.Work

Dim objArray(0) As DisplayableObject

Dim layer_1 As String = 1

  For Each obj As DisplayableObject In workpart.Bodies
      objArray(0) = obj
      workpart.Layers.MoveDisplayableObjects(Val(layer_1), objArray)
  Next

End Sub
End Module

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

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

---

Hi, generell musst du erst mal ein displayable object daraus machen und dann kannst du es aendern mit der DisplayModification...
hier mal schnibsel:

       Dim disopobj(dein displayable object) As DisplayableObject

        Dim dpmod As DisplayModification
        dpmod = s.DisplayManager.NewDisplayModification()
        dpmod.ApplyToAllFaces = True
        dpmod.NewColor = colnr 'deine Farbe...
        dpmod.Apply(disopobj)
        dpmod.Dispose()

------------------
Gruß

Michael

have you tried turning it off and on again

[Diese Nachricht wurde von little_ug am 15. Dez. 2011 editiert.]

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