All Frameworks Object Hierarchy This Framework Indexes
o Property AxisRotationAngle( | ) As (Read Only) |
o Property AxisRotationReference( | ) As |
o Property IsCurrent( | ) As |
isCurrent = axisSystem.IsCurrent
axisSystem.IsCurrent = 1
axisSystem.IsCurrent = 0
o Property OriginPoint( | ) As |
Dim HybridBody4 As AnyObject Set HybridBody4 = Body1.HybridBodies.Item ( "Geometrical Set.1" ) Dim HybridShapePointCoord5 As AnyObject Set HybridShapePointCoord5 = HybridBody4.HybridShapes.Item ( "Point.1" ) Dim Reference6 As Reference Set Reference6 = CATIA.ActiveDocument.Part.CreateReferenceFromGeometry ( HybridShapePointCoord5 ) AxisSystem0.OriginPoint = Reference6
o Property OriginType( | ) As |
Catia.SystemService.Print " OriginType = " & axisSystem.OriginType
axisSystem.OriginType = 1
o Property Type( | ) As |
type1 = axisSystem1.Type
axisSystem1.Type = 0
axisSystem1.Type = 1
axisSystem1.Type = 3
o Property XAxisDirection( | ) As |
Dim HybridBody4 As AnyObject Set HybridBody4 = Body1.HybridBodies.Item ( "Geometrical Set.1" ) Dim HybridShapePointCoord5 As AnyObject Set HybridShapePointCoord5 = HybridBody4.HybridShapes.Item ( "Point.1" ) Dim Reference6 As Reference Set Reference6 = CATIA.ActiveDocument.Part.CreateReferenceFromGeometry ( HybridShapePointCoord5 ) AxisSystem0.XAxisDirection = Reference6
o Property XAxisType( | ) As |
Catia.SystemService.Print " XAxisType = " & axisSystem.XAxisType
axisSystem.XAxisType = 1
o Property YAxisDirection( | ) As |
Dim HybridBody4 As AnyObject Set HybridBody4 = Body1.HybridBodies.Item ( "Geometrical Set.1" ) Dim HybridShapePointCoord5 As AnyObject Set HybridShapePointCoord5 = HybridBody4.HybridShapes.Item ( "Point.1" ) Dim Reference6 As Reference Set Reference6 = CATIA.ActiveDocument.Part.CreateReferenceFromGeometry ( HybridShapePointCoord5 ) AxisSystem0.YAxisDirection = Reference6
o Property YAxisType( | ) As |
Catia.SystemService.Print " YAxisType = " & axisSystem.YAxisType
axisSystem.YAxisType = 1
o Property ZAxisDirection( | ) As |
Dim HybridBody4 As AnyObject Set HybridBody4 = Body1.HybridBodies.Item ( "Geometrical Set.1" ) Dim HybridShapePointCoord5 As AnyObject Set HybridShapePointCoord5 = HybridBody4.HybridShapes.Item ( "Point.1" ) Dim Reference6 As Reference Set Reference6 = CATIA.ActiveDocument.Part.CreateReferenceFromGeometry ( HybridShapePointCoord5 ) AxisSystem0.ZAxisDirection = Reference6
o Property ZAxisType( | ) As |
Catia.SystemService.Print " ZAxisType = " & axisSystem.ZAxisType
axisSystem.ZAxisType = 1
o Sub GetEulerAngles( | oFirstAngle, | |
oSecondAngle, | ||
ThirdAngle) |
o Sub GetOrigin( | oOrigin) |
Dim originCoord(2) axisSystem.GetOrigin originCoord
o Sub GetVectors( | oVectorX, | |
oVectorY) |
Dim vectorXCoord(2) Dim vectorYCoord(2) axisSystem.GetVectors vectorXCoord, vectorYCoord
o Sub GetXAxis( | oXAxis) |
Dim XAxisCoord(2) axisSystem.GetXAxis XAxisCoord
o Sub GetYAxis( | oYAxis) |
Dim YAxisCoord(2) axisSystem.GetYAxis XAxisCoord
o Sub GetZAxis( | oZAxis) |
Dim ZAxisCoord(2) axisSystem.GetZAxis ZAxisCoord
o Sub PutOrigin( | iOrigin) |
Dim originCoord(2) originCoord ( 0 ) = 100.000000 originCoord ( 1 ) = 200.000000 originCoord ( 2 ) = 10.000000 axisSystem.PutOrigin originCoord
o Sub PutVectors( | iVectorX, | |
iVectorY) |
Dim vectorXCoord(2) vectorYCoord ( 0 ) = 1.000000 vectorYCoord ( 1 ) = -1.000000 vectorYCoord ( 2 ) = 0.000000 Dim vectorYCoord(2) vectorYCoord ( 0 ) = 0.000000 vectorYCoord ( 1 ) = 0.000000 vectorYCoord ( 2 ) = 1.000000 axisSystem.PutVectors vectorXCoord, vectorYCoord
o Sub PutXAxis( | iXAxis) |
Dim XAxis(2) XAxis ( 0 ) = 100.000000 XAxis ( 1 ) = 200.000000 XAxis ( 2 ) = 10.000000 axisSystem.PutXAxis XAxis
o Sub PutYAxis( | iYAxis) |
Dim YAxis(2) YAxis ( 0 ) = 100.000000 YAxis ( 1 ) = 200.000000 YAxis ( 2 ) = 10.000000 axisSystem.PutYAxis YAxis
o Sub PutZAxis( | iZAxis) |
Dim ZAxis(2) ZAxis ( 0 ) = 100.000000 ZAxis ( 1 ) = 200.000000 ZAxis ( 2 ) = 10.000000 axisSystem.PutZAxis ZAxis
Copyright © 2003, Dassault Systèmes. All rights reserved.