I have not dug into if it is possible to add that menu item from the RMB menu as a button to a toolbar. Making a macro would not be that difficult, you have to use this method.
Loop thru the selected views (or all...?) and change the setting to what you like. If you like I can set up a macro if you like.. but then I need to know if you want to apply that for all views or only selected. The macro can be executed by pressing a button.
But I must say that it sounds like you're in a need of updating your system options so you do not have to do this all the time.
I modified a macro I had to change the tangent line style for all views on all sheets in a drawing. You find the macro attached.
Just add a button for the macro and you have cut down you time and energy spent on this....
I also looked at adding a button with the function that is possible to access from the menus, but it seems not to be possible to customize the UI in a regular way to do this. Perhaps I missed it somewhere...
I also suggest that you change your system settings so that new views is created in the way you like... pay attention to the "Tangent edges in new views".
ChangeTangetStyle1.zip 10.4 KB
I don't use a macro for this function, I have a few keys customized to do the same thing. I use the "T" key to change the views to Tangent edge with Font. I have 'M" for Measure and others for view manipulation. Look up Customization.
Thanks for the replies. I think id still neeed a button so will look at the link and Marco when have the chance.
Although good to know you can hae a shortcut key for this. Very helpful. Means just because there isnt a button doesnrt mean you cant have a shortcut key. Didnt think of that.
Will keep u posted.
Thanks for the tip
When i record a macro with using a shortcut key (as i think this will avoid any mis clicking) and with the view already selected i get this code:
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = _
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Dim myView As Object
Set myView = Part.SelectionManager.GetSelectedObject3(True)
When i try to run it again it doesnt work. I think its having trouble with where to apply the macro. Selection issues?
Really have no idea.
Oh hang on...
I now see your macro attached. Doh!
It doesnt do it view by view however i think thatll be just fine.
I like that you can change if its font, visible or hidden.
As usual very helpful