All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---AnyObject | +---TagGroupFactory
Set ParentObject = CATIA.ActiveDocument.Selection.FindObject("CATIAProduct") Set objTagGroupFact = ParentObject.GetTechnologicalObject("TagGroupFactory")
o Sub CopyTagGroup( | DELMIATagGroup | iTagGroup, |
DELMIATagGroup | ioTagGroup) |
... Dim objTagGroup(2) As TagGroup Dim objTagGroupFactory as TagGroupFactory ... objTagGroupFactory.CopyTagGroup objTagGroup(1), objTagGroup(2)
o Sub CreateTagGroup( | CATBSTR | iTagGroupName, |
boolean | iModifyReference, | |
CATIAProduct | iProduct, | |
DELMIATagGroup | 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 CreateTagGroupInDoc( | CATBSTR | iTagGroupName, |
DELMIATagGroup | oTagGroup) |
Set ParentObject = CATIA.ActiveDocument Dim Fact As TagGroupFactory Set Fact = ParentObject.GetItem("DELMTagGroupFactory") Dim TagGrp As TagGroup Fact.CreateTagGroupInDoc "ABC", TagGrp
o Sub DeleteTagGroup( | DELMIATagGroup | iTagGroup) |
... Dim objTagGroup(2) As TagGroup Dim objTagGroupFactory as TagGroupFactory ... objTagGroupFactory.DeleteTagGroup objTagGroup(1)
o Sub ReparentTagGroup( | DELMIATagGroup | iTagGroup, |
CATIAProduct | ioProduct, | |
boolean | 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.