All Frameworks Object Hierarchy This Framework Indexes
Set ParentObject = CATIA.ActiveDocument.Selection.FindObject("CATIAProduct")
Set objTagGroupFact = ParentObject.GetTechnologicalObject("TagGroupFactory")
| o Sub CopyTagGroup( | iTagGroup, | |
| ioTagGroup) |
... Dim objTagGroup(2) As TagGroup Dim objTagGroupFactory as TagGroupFactory ... objTagGroupFactory.CopyTagGroup objTagGroup(1), objTagGroup(2)
| o Sub CreateTagGroupInDoc( | iTagGroupName, | |
| oTagGroup) |
Set ParentObject = CATIA.ActiveDocument
Dim Fact As TagGroupFactory
Set Fact = ParentObject.GetItem("DELMTagGroupFactory")
Dim TagGrp As TagGroup
Fact.CreateTagGroupInDoc "ABC", TagGrp
| o Sub CreateTagGroup( | iTagGroupName, | |
| iModifyReference, | ||
| iProduct, | ||
| oTagGroup) |
Set ParentObject = CATIA.ActiveDocument.Selection.FindObject("CATIAProduct")
Set objTagGroupFact = ParentObject.GetTechnologicalObject("TagGroupFactory")
Dim objTagGroup As TagGroup
Dim ModifyRef As Boolean
ModifyRef = FALSE
objTagGroupFact.CreateTagGroup "My_Group", ModifyRef, ParentObject, objTagGroup
| o Sub DeleteTagGroup( | iTagGroup) |
... Dim objTagGroup(2) As TagGroup Dim objTagGroupFactory as TagGroupFactory ... objTagGroupFactory.DeleteTagGroup objTagGroup(1)
| o Sub ReparentTagGroup( | iTagGroup, | |
| ioProduct, | ||
| iModifyReference) |
... Dim objTagGroup(2) As TagGroup Dim objTagGroupFactory as TagGroupFactory Dim objProd As Product ... objTagGroupFactory.ReparentTagGroup objTagGroup(0), objProd, TRUE
Copyright © 2003, Dassault Systèmes. All rights reserved.