Topic: On App Activate Event

[ML]

OK, well, here is my last attempt
The code works well but it still did not resolve the problem
DAM cui files!  :pissed:

The below code will check for your Active Profile,
Your current menu (main cui) file
Then set the workspace you want to be current.

Thanks again Matt!

Mark

Code: [Select]

Sub WsCurrent()

Dim Username As Variant
Dim Preferences As AcadPreferences
Dim ActProfile As String
Dim CurrMenuPath As String
Dim CurrMenuFile As String


Set WshNetwork = CreateObject("WScript.Network")
Set Preferences = ThisDrawing.Application.Preferences

Username = WshNetwork.Username
ActProfile = Preferences.Profiles.ActiveProfile
CurrMenuPath = "C:\Documents and Settings\" & Username & "\Application Data\Autodesk\Autodesk Land Desktop 2006\R16.2\enu\Support\"
CurrMenuFile = Preferences.Files.MenuFile


If ActProfile = "Land Desktop" Then
  Select Case CurrMenuFile
   Case Is = CurrMenuPath & "land"
   ThisDrawing.SetVariable "wscurrent", "Land Destop Complete"
  End Select
End If
If ActProfile = "MapGeneral" Then
  Select Case CurrMenuFile
   Case Is = CurrMenuPath & "acmap"
   ThisDrawing.SetVariable "wscurrent", "Map Classic"
  End Select
End If

End Sub


[Guest]

It's NOT gonna work because you STILL haven't spelled it correctly!!!

ThisDrawing.SetVariable "wscurrent", "Land Destop Complete"

 

[ML]

LOL

Good catch!

Mark

[ML]

Have a great weekend man!

[ML]

OK, I definetely got it now and it is doing exactly what the article said
On startup, set the workspace that you want current to be current.

This fixed my toolbar location problem; they are now being retained on each start of ACAD.
I think my earlier approach to the coding was the reason it was not working.

If anyone is interested; here is my approach and code:
Again, for me, it is working just fine.

Mark

On Startup, in The acad.dvb file

Code: [Select]

Sub Acadstartup()
Set AutoCAD = ThisDrawing.Application

RunMacro ("WsCurrent")  '<----- This is calling my WsCurrent Module

End Sub

WsCurrent Module:

Code: [Select]

Sub WsCurrent()

Dim Username As Variant
Dim Preferences As AcadPreferences
Dim ActProfile As String
Dim CurrMenuPath As String
Dim CurrMenuFile As String

Set WshNetwork = CreateObject("WScript.Network")
Set Preferences = ThisDrawing.Application.Preferences

Username = WshNetwork.Username
ActProfile = Preferences.Profiles.ActiveProfile
CurrMenuPath = "C:\Documents and Settings\" & Username & "\Application Data\Autodesk\Autodesk Land Desktop 2006\R16.2\enu\Support\"
CurrMenuFile = Preferences.Files.MenuFile


If ActProfile = "Land Desktop" Then
 CurrMenuFile = CurrMenuPath & "land"
 ThisDrawing.SetVariable "wscurrent", "Land Destop Complete"
End If
If ActProfile = "MapGeneral" Then
 CurrMenuFile = CurrMenuPath & "acmap"
 ThisDrawing.SetVariable "wscurrent", "Map Classic"
End If

End Sub