Hallo, ich möchte die Achse des Bohrtisches automatisch auswählen, um sie automatisch ausblenden zu können. Wenn ich ein Makro aufnehme, bekomme ich Folgendes:
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
Bisher ist alles in Ordnung, außer wenn ich ein neues Stück mache, weil das "Detail Object" die Nummer ändert, so dass es nicht mehr funktioniert. Wie bekomme ich das Detailobjekt mit der korrekten Nummer einer Zeichnung oder wie wähle ich es direkt aus?
forum.png