Indexes Previous Next
o Property AxisRotationAngle( | ) As Angle (Read Only) |
o Property AxisRotationReference( | ) As Reference |
o Property IsCurrent( | ) As boolean |
isCurrent = axisSystem.IsCurrent
axisSystem.IsCurrent = 1
axisSystem.IsCurrent = 0
o Property OriginPoint( | ) As Reference |
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 CATAxisSystemOriginType |
Catia.SystemService.Print " OriginType = " & axisSystem.OriginType
axisSystem.OriginType = 1
o Property Type( | ) As CATAxisSystemMainType |
type1 = axisSystem1.Type
axisSystem1.Type = 0
axisSystem1.Type = 1
axisSystem1.Type = 3
o Property XAxisDirection( | ) As Reference |
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 CATAxisSystemAxisType |
Catia.SystemService.Print " XAxisType = " & axisSystem.XAxisType
axisSystem.XAxisType = 1
o Property YAxisDirection( | ) As Reference |
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 CATAxisSystemAxisType |
Catia.SystemService.Print " YAxisType = " & axisSystem.YAxisType
axisSystem.YAxisType = 1
o Property ZAxisDirection( | ) As Reference |
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 CATAxisSystemAxisType |
Catia.SystemService.Print " ZAxisType = " & axisSystem.ZAxisType
axisSystem.ZAxisType = 1
o Sub GetEulerAngles( | Angle | oFirstAngle, |
Angle | oSecondAngle, | |
Angle | ThirdAngle) |
o Sub GetOrigin( | CATSafeArrayVariant | oOrigin) |
Dim originCoord(2) axisSystem.GetOrigin originCoord
o Sub GetVectors( | CATSafeArrayVariant | oVectorX, |
CATSafeArrayVariant | oVectorY) |
Dim vectorXCoord(2) Dim vectorYCoord(2) axisSystem.GetVectors vectorXCoord, vectorYCoord
o Sub GetXAxis( | CATSafeArrayVariant | oXAxis) |
Dim XAxisCoord(2) axisSystem.GetXAxis XAxisCoord
o Sub GetYAxis( | CATSafeArrayVariant | oYAxis) |
Dim YAxisCoord(2) axisSystem.GetYAxis XAxisCoord
o Sub GetZAxis( | CATSafeArrayVariant | oZAxis) |
Dim ZAxisCoord(2) axisSystem.GetZAxis ZAxisCoord
o Sub PutOrigin( | CATSafeArrayVariant | iOrigin) |
Dim originCoord(2) originCoord ( 0 ) = 100.000000 originCoord ( 1 ) = 200.000000 originCoord ( 2 ) = 10.000000 axisSystem.PutOrigin originCoord
o Sub PutVectors( | CATSafeArrayVariant | iVectorX, |
CATSafeArrayVariant | 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( | CATSafeArrayVariant | iXAxis) |
Dim XAxis(2) XAxis ( 0 ) = 100.000000 XAxis ( 1 ) = 200.000000 XAxis ( 2 ) = 10.000000 axisSystem.PutXAxis XAxis
o Sub PutYAxis( | CATSafeArrayVariant | iYAxis) |
Dim YAxis(2) YAxis ( 0 ) = 100.000000 YAxis ( 1 ) = 200.000000 YAxis ( 2 ) = 10.000000 axisSystem.PutYAxis YAxis
o Sub PutZAxis( | CATSafeArrayVariant | iZAxis) |
Dim ZAxis(2) ZAxis ( 0 ) = 100.000000 ZAxis ( 1 ) = 200.000000 ZAxis ( 2 ) = 10.000000 axisSystem.PutZAxis ZAxis
Copyright © 2006, Dassault Systèmes. All rights reserved.