Macro Help???

[Ebbie22]

I found a macro sometime last year that hides/blanks out Planes, Sketches, etc in the model tree (Correct Location) instead of turning those features off in the View Menu. This macro works great but after awhile, I noticed the hiding the Origin in the model tree wasn't a good idea/option. I really don't know much about making macro's but I was able to delete the origin option from the macro. I guess what I'm really looking for is to leave all the other options as is but instead of hiding the origin in the model tree it would hide from the View Menu instead.

Thanks,
Todd

 

[Ebbie22]

This is the Macro..

 

[TheTick]

You could change the initializing routine so that the origin selection is unchecked during the setup. Then add code to the end of the routine to blank origins in the view menu.

For your own use, you can change this code any way you wish. However, I do not sanction any redistribution of alterations of my original work.

Honesty may be the best policy, but insanity is a better defense.

http://www.EsoxRepublic.com

-SolidWorks API VB programming help

 

[Ebbie22]

Correct, this is for my own use. Just needed some guidance on where to even start! I will make an attempt to update as suggested. Thanks

 

[TheTick]

Public Sub InitValues()
OKFlag = False
SelectSum = 0
cmdSelectAll_Click
[highlight #8AE234]'add code to uncheck origin checkbox here[/highlight]
Me.Show
End Sub

 

[TheTick]

ExitStrategy:
[highlight #8AE234]'add code to hide origins in view menu here[/highlight]
Set swRootComp = Nothing                 'SldWorks.Component2
Set swConf = Nothing                     'SldWorks.Configuration
Set swModel = Nothing                    'SldWorks.ModelDoc2
Set swApp = Nothing                      'SldWorks.SldWorks

EmptyCollection colCompList
EmptyCollection colComponents
EmptyCollection colFeatures

'Debug.Print "Finish " & Now
'Debug.Print
'MsgBox "Done"
End Sub

Honesty may be the best policy, but insanity is a better defense.

http://www.EsoxRepublic.com

-SolidWorks API VB programming help