Indexes
Set ParentObject = CATIA.ActiveDocument.Selection.FindObject("CATIAProduct") Set objTag = ParentObject.GetTechnologicalObject("Tag")
o Sub GetName( | oTagName) |
Dim objTag As Tag ... Dim Name as String objTag.GetName Name
o Sub GetType( | oFrameName) |
Dim objTag As Tag ... Dim FrameType as String objTag.GetType FrameType
o Sub GetXYZ( | ioXYZ) |
Dim objTag As Tag ... Dim List(3) objTag.GetXYZ List
o Sub GetYPR( | ioYPR) |
Dim objTag As Tag ... Dim List(3) objTag.GetYPR List
o Sub SetName( | iTagName) |
Dim objTag As Tag ... objTag.SetName("My_Tag")
o Sub SetType( | iFrameName) |
Dim objTag As Tag ... objTag.SetType("Design")
o Sub SetXYZ( | iX, | |
iY, | ||
iZ) |
Dim objTag As Tag ... objTag.SetXYZ 2800.0, 1800.0, 800.0
o Sub SetYPR( | iY, | |
iP, | ||
iR) |
Dim objTag As Tag ... objTag.SetYPR 1.4, 0.5, 3.14
Copyright © 2006, Dassault Systèmes. All rights reserved.