smcadman
Mechanical
- Nov 6, 2002
- 1,589
Very often I will go to a page that has a broken view and the view is not broken. By that I mean the view still has the broken-view lines, but there is no clear gap between the lines.
See pic:
I have to right-click the view, pick "un-break view", then break the again.
I thought instead of doing this several times a day, a broken-view toggle would be the better way to do this.
Preconditions: view is pre-selected
1. Un-break view
2. Break view
The problem is that it only works with the original view. It doesn't work with different views on different pages.
Can anybody help correct this problem?
Flores
See pic:
I have to right-click the view, pick "un-break view", then break the again.
I thought instead of doing this several times a day, a broken-view toggle would be the better way to do this.
Preconditions: view is pre-selected
1. Un-break view
2. Break view
Code:
' ******************************************************************************
' macro recorded on 06/18/08
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.1035512874926, 0.06293938349189, -1999.382179705, False, 0, Nothing, 0)
Part.UnBreakView
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.09800694802044, 0.06776054825029, -1999.382179705, False, 0, Nothing, 0)
Part.BreakView
Part.ClearSelection2 True
End Sub
The problem is that it only works with the original view. It doesn't work with different views on different pages.
Can anybody help correct this problem?
Flores