The following is a simple macro to initiate smart dimensioning, yet also disable the pre-selection of entities. It does this, except that it also, for some reason, is effecting the numlock/caplock keys by turning them on and off as well. Why is it doing this. What would I need to change or add to prevent this.
'to circumvent smart dimension preselect
'escape 3 times, initiate smart dimension
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
swModelDocExt.RunCommand swCommands_SmartDimension, ""