lelian

Bonjour, Lors de controle, je voudrais m'assurer que les views de mes drawing soient a jour par rapport à mes parts. Tous les resultats vont apparaitre sous forme de tableau recapitulatif à la fin de cette macro. Toutes les views de mes drawing sont locke. Je suis incapable de voir si la view a besoin d'etre update ou pas. Voici le morceau du programme ou j'ai des probleme : -------------------------------- Dim PieceDocument As Document Set PieceDocument = CATIA.ActiveDocument For iJ = 1 To PieceDocument.Sheets.Count For i = 1 To PieceDocument.Sheets.Item(iJ).Views.Count PieceDocument.Sheets.Item(iJ).Views.Item(i).LockStatus = False NameView = PieceDocument.Sheets.Item(iJ).Views.Item(i).Name If ??? Morceau ou j'ai besoin d'aide ??? Then msgbox "Update" & NameView End If PieceDocument.Sheets.Item(iJ).Views.Item(i).LockStatus = True Next Next ---------------------------------- Cette macro a pour but de controler, je ne veux pas faire un update ou forceupdate Je suis preneur de toutes solutions et remarque sur mon CATVBA. Cdlt

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