AnsweredAssumed Answered

Macro - deselect

Question asked by Kamil Kw on Nov 15, 2017
Latest reply on Nov 15, 2017 by Kamil Kw

HI, I have this macro to deselect in configuration properties in advanced options value: expiry operations. How can I do it automatically in all parts? Is there any better way to do it?

 

Dim swApp As Object

 

 

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

 

 

Sub main()

 

 

Set swApp = _

Application.SldWorks

 

 

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True

boolstatus = Part.EditConfiguration3("Default", "Default", "", "", 32)

End Sub

 

 

Thanks for help

Outcomes