Hi,
In drawing I need a button to do clear selection after i click on the Dimension.
Thanks
to
Sub main()Dim swApp As SldWorks.SldWorksDim swModel As SldWorks.ModelDoc2 Set swApp = Application.SldWorksSet swModel = swApp.ActiveDocswModel .ClearSelectionEnd Sub
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModel .ClearSelection
End Sub