Hallo, ik ben op zoek om automatisch de as van de boortafel te selecteren, om deze automatisch te kunnen verbergen. Als ik een macro opneem, is dit wat ik krijg:
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
tot nu toe is alles in orde, behalve als ik een nieuw stuk maak omdat het "Detail Object" van nummer verandert, dus het werkt niet meer. Hoe haal ik het detailobject met het juiste nummer van een tekening op, of hoe selecteer ik het direct?
forum.png