---

Hallo zusammen,

ich will über ein NxOpen Programm gerenderte Bilder erstellen und scheitere aber gerade an der Beleuchtung. Ich habe 2 subs, einmal um Lichter zu erstellen, einmal um Lichter  zu modifizieren.

Code:

---

    Public Sub add_Light_spot(Name As String)
        Dim Light As Light = Nothing
        Dim Lightbuilder As Display.LightBuilder = displayPart.Views.CreateLightBuilder(Light)
        'Lightbuilder.LightType = LightType.Spot gibt internal Error, daher unten nochmal
        Lightbuilder.UseWithRayTracedImageBasedLighting = True
        Lightbuilder.Intensity = 1
        Lightbuilder.ConeAngle = 60
        Lightbuilder.DestinationPosition = displayPart.Points.CreatePoint(New Point3d(0, 0, 0))
        Lightbuilder.SourcePosition = displayPart.Points.CreatePoint(New Point3d(0, 0, 0))
        Lightbuilder.LightShadowType = Display.LightBuilder.ShadowType.SoftEdged
        Lightbuilder.Commit()
        Lightbuilder.Destroy()

        Light = displayPart.Lights.ToArray(displayPart.Lights.ToArray.Length - 1)
        Light.SetName(Name)

        Dim Lightbuilder2 As Display.LightBuilder = displayPart.Views.CreateLightBuilder(Light)
        Lightbuilder2.LightType = LightType.Spot
        Lightbuilder2.Commit()
        Lightbuilder2.Destroy()
    End Sub

---

Spotlicht wird erzeugt und richtig benannt. Source und Destinationposition stehen aber auf "Nothing". Daher:

Code:

---

    Public Sub modify_light(Name As String, TargetPoint As Point3d, SourcePoint As Point3d)
        Dim theLightCollection As LightCollection = displayPart.Lights
        Dim theLight As Light = theLightCollection.FindObject(Name)
        Dim theLightbuilder As Display.LightBuilder = workPart.Views.CreateLightBuilder(theLight)

        theLightbuilder.DestinationPosition.SetCoordinates(TargetPoint)

        theLightbuilder.SourcePosition = displayPart.Points.CreatePoint(SourcePoint)

        theLightbuilder.Commit()
        theLightbuilder.Destroy()
    End Sub

---

Dabei schmeisst

Code:

---

      theLightbuilder.DestinationPosition.SetCoordinates(TargetPoint)

---

eine "Object reference not set to an instance of an object" Exception. Warum auch immer, ist aber auch nicht schlimm.

Code:

---

theLightbuilder.SourcePosition = displayPart.Points.CreatePoint(SourcePoint)

---

die Zeile funktioniert einwandfrei, im Programmdurchlauf wird dem Lightbuilder der richtige Punkt zugeordnet. Rufe ich aber den nächsten Lightbuilder für das gerade bearbeitete Licht auf, steht "SourcePosition" wieder auf "Nothing"

Was genau mach ich hier falsch? Danke für eure Hilfe.

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

---

Eventuell bin ich einen Schritt weiter gekommen. Mit den Userfunctions kann ich die Positionen der Lichter modifizieren:

Code:

---

    Public Sub modify_light(Name As String, TargetPoint As Point3d, SourcePoint As Point3d)
        Dim theUFlighting As UFView.Lighting = Nothing
        theUfSession.View.askviewlight(Tag.Null, theUFlighting)

        I = 0
        For Each theUfLight As UFView.Lights In theUFlighting.lights
            If theUfLight.light_name = Name Then
                theUfLight.light_mode = 1 'UFView.LightMode.FixedToThePart
                theUfLight.location = {SourcePoint.X, SourcePoint.Y, SourcePoint.Z}
                theUfLight.to = {TargetPoint.X, TargetPoint.Y, TargetPoint.Z}

                theUFlighting.lights(I) = theUfLight
            Else
                theUfLight.light_mode = 1 'UFView.LightMode.FixedToThePart
                theUFlighting.lights(I) = theUfLight
            End If
            I += 1
        Next

        theUfSession.View.SetViewLight(Tag.Null, theUFlighting)
        'theUfSession.View.askviewlight(Tag.Null, theUFlighting)
    End Sub

---

Dafür habe ich hier ein anderes Problem: den light_mode setze ich explizit auf "fixed to part" für jedes Licht. Im Programmdurchlauf kommt das bei "theUFlighting" auch an. Nach SetViewLight(...) stehen aber alle Lichter auf "fixed to observer". Damit stimmt keine Richtung mehr. Woran klemmts jetzt hier?

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