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.