Bonjour je cherche à sélectionner automatiquement l'axe de la table de perçage, pour pouvoir la masquer en automatique. Quand j'enregistre une macro voila ce que j'ai :
Dim Part As Object
Dim boolstatus As Boolean
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Objet de détail60@Vue de mise en plan4", "HOLETABLEAXIS", 7.13125566729208E-02, 0.16701582974387, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Objet de détail60@Vue de mise en plan4", "HOLETABLEAXIS", 7.13125566729208E-02, 0.16701582974387, 0, False, 0, Nothing, 0)
Part.HideDimension
Part.HideDimension
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Objet de détail63@Vue de mise en plan1", "HOLETABLEAXIS", 5.59130828334526E-02, 0.113017674722358, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Objet de détail63@Vue de mise en plan1", "HOLETABLEAXIS", 5.59130828334526E-02, 0.113017674722358, 0, False, 0, Nothing, 0)
Part.HideDimension
Part.HideDimension
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Objet de détail61@Vue de mise en plan3", "HOLETABLEAXIS", 2.39141761540382E-02, 0.112617688388865, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Objet de détail61@Vue de mise en plan3", "HOLETABLEAXIS", 2.39141761540382E-02, 0.112617688388865, 0, False, 0, Nothing, 0)
Part.HideDimension
Part.HideDimension
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Objet de détail58@Vue de mise en plan5", "HOLETABLEAXIS", 5.59130828334526E-02, 7.98188090424655E-02, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Objet de détail58@Vue de mise en plan5", "HOLETABLEAXIS", 5.59130828334526E-02, 7.98188090424655E-02, 0, False, 0, Nothing, 0)
Part.HideDimension
Part.HideDimension
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Objet de détail62@Vue de mise en plan2", "HOLETABLEAXIS", 0.147109966869784, 0.112617688388865, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Objet de détail62@Vue de mise en plan2", "HOLETABLEAXIS", 0.147109966869784, 0.112617688388865, 0, False, 0, Nothing, 0)
Part.HideDimension
Part.HideDimension
Part.ClearSelection2 True
jusque la tout va bien, sauf quand je refait une nouvelle pièce car le "Objet de détail" change de numéro, du coup ça ne marche plus. Comment faire pour récupérer l'objet de détail avec le bon numéro d'une mise en plan, ou comment le sélectionner directement ?
forum.png