CATscripts : Define in work objet

[lelian]

Bonjour a tous,

Afin de respecter des regles, j'ai cree un CAtScripts qui me permet de mettre en no show tous les axis system , les set geometrie et plan dans une catpart et les contraintes dans un product en utilisant ces lignse de commande :

Set selection1 = partDocument1.Selection

selection1.Search "(CATPrtSearch.AxisSystem + CATPrtSearch.OpenBodyFeature + CATPrtSearch.Plane + CATAsmSearch.MfConstraint),all"

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties

visProperties1.SetShow catVisPropertyNoShowAttr

 

il faudrait que je mette mon partbody de catpart en 'define in work objet', j'arrive a selectionner le part body par :

Set selection1 = partDocument1.Selection

selection1.Search "CATPrtSearch.MechanicalFeature,all"

mais je ne trouve pas la ligne de commande qui me permettrée de le definir comme ' 'define in work objet'

 

Cordialement

[prosper67]

Salut lelian,

 

ça a l'air d'un joli bricolage ton script mais bon.... :)

 

Admettons que ta Part est ouverte. Pour faire un Define in Work de ton PartBody:

 

set opart = CATIA.Activedocument.part

set opartbody = opart.bodies.item(1)

 

opart.defineinwork opartbody

 

ou

 

opart.defineinworkobject opartbody

 

ou

 

opart.defineinwork = opartbody

 

je sais plus trop par coeur, mais c'est un truc dans le style.

 

Bon courage!

 

Salutations

Chris