Macro help

Ok- years ago I did a little bit of VBA programming, but notmuch, and other than writing excel functions, not much macro work.

So, my first question is where do you find a reference list of allthe SW system variables and objects? IMO, that's the mostoverwhelming part of VB programming. How do you learn all of them?When I start typing in some object, it doesn't auto fill withchoices (like it used to when I was using VB.NET, like I said,years ago), so I have no clue how to get what I want done...

On to question #2- I want to write a VERY simple macro- let meexplain. I'm lazy. If I can take something that takes threekeystrokes and turn it into one keystroke- I'll do the work upfront so I can be lazy in the long run. Right now I have 'A' set totoggle the display of temporary axes, and 'Shift+A' set to toggethe display of reference axes. I would love a macro that I canassign to the letter 'A', that toggles both simultaneously.

As far as the programming goes, I figure I need to first check tosee the current state of the axes display- and I wouldn't need toknow the status of both temporary axes and reference axes, eitherone would suffice. Then, with a simpe if-then statement, have itmake both of them opposite of the first check.

end sub...

Sounds super simple...

Thanks...
BM

Edit- this is all I have, from just recording myself turning theaxes on and off agian. I need the check and and if/then deal...

 

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

boolstatus =Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes,True)
boolstatus =Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAxes,True)


boolstatus =Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes,False)
boolstatus =Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayAxes,False)

End Sub

SolidworksApi macros