---

Hallo,

wie kann ich ein Csys um eine seiner Achsen einen best. Winkel drehen?

Erstellen kann die es so:

Code:

---

' NX 5.0.6.3
' Journal created by met on Thu Oct 23 08:39:14 2014 Mitteleuropäische Sommerzeit
'
Option Strict Off
Imports System
Imports NXOpen

Module NXJournal1
    Sub Main()

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

        Dim displayPart As Part = theSession.Parts.Display

        Dim aktPoint As Point3d = New Point3d(100, 200, 300)
        Dim db As Features.DatumCsysBuilder = workPart.Features.CreateDatumCsysBuilder(Nothing)
        Dim xForm1 As Xform = workPart.Xforms.CreateXform(aktPoint, New Vector3d(1, 0, 0), New Vector3d(0, 1, 1), SmartObject.UpdateOption.WithinModeling, 1)
        db.Csys = workPart.CoordinateSystems.CreateCoordinateSystem(xForm1, SmartObject.UpdateOption.WithinModeling)
        db.ComponentsCreation = True
        db.FixedSizeDatum = True
        db.DisplayScaleFactor = 2
        Dim aktCSys As Features.DatumCsys = db.Commit()
        db.Destroy()
    End Sub
End Module

---

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

---

Hallo met,

die Antwort steckt wohl hier drin: Andere Vektoren verwenden ?

Dim xForm1 As Xform = workPart.Xforms.CreateXform(aktPoint, New Vector3d(1, 0, 0), New Vector3d(0, 1, 1), SmartObject.UpdateOption.WithinModeling, 1)
        db.Csys = workPart.CoordinateSystems.CreateCoordinateSystem(xForm1, SmartObject.UpdateOption.WithinModeling)

Gruß, Michael

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