Hallo Michael,
ich habe das schon in folgender Weise probiert:
Dim objects1(7) As NXOpen.DisplayableObject
Dim component As NXOpen.Assemblies.Component = CType(nxui.SelectionManager.GetSelectedTaggedObject(0), NXOpen.Assemblies.Component)
Dim cartesianCoordinateSystem1 As NXOpen.CartesianCoordinateSystem = CType(component.FindObject("PROTO#.Features|DATUM_CSYS(0)|CSYSTEM 1"), NXOpen.CartesianCoordinateSystem)
objects1(0) = cartesianCoordinateSystem1
Dim point1 As NXOpen.Point = CType(component.FindObject("PROTO#.Features|DATUM_CSYS(0)|POINT 1"), NXOpen.Point)
objects1(1) = point1
Dim datumPlane1 As NXOpen.DatumPlane = CType(component.FindObject("PROTO#.Datums|DATUM_CSYS(0) XY plane"), NXOpen.DatumPlane)
objects1(2) = datumPlane1
Dim datumAxis1 As NXOpen.DatumAxis = CType(component.FindObject("PROTO#.Datums|DATUM_CSYS(0) X axis"), NXOpen.DatumAxis)
objects1(3) = datumAxis1
Dim datumPlane2 As NXOpen.DatumPlane = CType(component.FindObject("PROTO#.Datums|DATUM_CSYS(0) XZ plane"), NXOpen.DatumPlane)
objects1(4) = datumPlane2
Dim datumPlane3 As NXOpen.DatumPlane = CType(component.FindObject("PROTO#.Datums|DATUM_CSYS(0) YZ plane"), NXOpen.DatumPlane)
objects1(5) = datumPlane3
Dim datumAxis2 As NXOpen.DatumAxis = CType(component.FindObject("PROTO#.Datums|DATUM_CSYS(0) Y axis"), NXOpen.DatumAxis)
objects1(6) = datumAxis2
Dim datumAxis3 As NXOpen.DatumAxis = CType(component.FindObject("PROTO#.Datums|DATUM_CSYS(0) Z axis"), NXOpen.DatumAxis)
objects1(7) = datumAxis3
sess.DisplayManager.ShowObjects(objects1, NXOpen.DisplayManager.LayerSetting.ChangeLayerToSelectable)
Aber ab der Zeile mit "PROTO#.Datums|DATUM_CSYS(0) XY plane" wird gemeldet, dass das Object nicht gefunden wird.
Wenn ich diese Zeilen auskommentiere, wird der Punkt und das Csys-Gerippe dann auch angezeigt.
Ich habe es auch mal mit "PROTO#.Datums|DATUM_CSYS(0)|XY plane" probiert.
Herzliche Grüße
Thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP