This content has been marked as final. Show 2 replies
Check if these help
Option Explicit Dim swApp As SldWorks.SldWorks Dim swDraw As SldWorks.DrawingDoc Dim swView As SldWorks.View Sub main() Set swApp = Application.SldWorks Set swDraw = swApp.ActiveDoc Set swView = swDraw.GetFirstView Do While Not swView Is Nothing swView.PositionLocked = True Set swView = swView.GetNextView Loop End Sub
Short and sweet and does the job.
Thank you most kindly.
Have a nice one