Every time I want my tool bar buttons to work load various .CFS files I have to manually run Utilities,> MDL Applications> select CELLSEL and press LOAD
I made a button to do this on the tool bar, buit would like to inculde in the VBA Routine which I have severl: two exapl;es below:
Sub LCS1()
' 051817 - Trying to Modify to enable wo/haveing to run macro mdl
' ' 062714 - Modified to remove Macrohandler
' 070414 - WARING, Must use Utilities, MDL Applications, "be sure cellsel is loaded" for LCS VBA Commands to work. I have to load some times
' Start a command
' CadInputQueue.SendKeyin C:\ProgramData\Bentley\MicroStation V8i (SELECTseries)\WorkSpace\Projects\Rjbp\cell\Cellsel openselector RJBP_LOOP1csf"
CadInputQueue.SendKeyin "MDL LOAD CELLSEL"
CadInputQueue.SendKeyin "Cellsel openselector RJBP_LOOP1"
CadInputQueue.SendKeyin "m,ms Open Cell Loop1"
WORKS PERFECT AFTER I MANUALLY LOAD THE "MDL CELLSEL" LOAD
Example 2;
Sub LCL2()
' 111915 - Edit to get working
' 062714 - Renamed Loop file to match VBA command for tool bar
' 112613 - Removed DIM commands, comment CommandState.StartDefaultCommand AAB
' Start a command
CadInputQueue.SendCommand "DIALOG CELLMAINTENANCE"
CadInputQueue.SendCommand "cellsel exit"
CadInputQueue.SendCommand "ATTACH LIBRARY C:\ProgramData\Bentley\MicroStation V8i (SELECTseries)\WorkSpace\projects\RJBP\cell\Loop_002.cel"
CadInputQueue.SendKeyin "m,ms CELL LIBRARY LOOP 2 OPEN"
' CommandState.StartDefaultCommand
End Sub
Example 3:
Sub LCLpb()
' 051817 - Open Cell Library SpecialPB
' 112613 - Removed DIM commands, comment CommandState.StartDefaultCommand
' Start a command
CadInputQueue.SendCommand "DIALOG CELLMAINTENANCE"
CadInputQueue.SendCommand "ATTACH LIBRARY C:\ProgramData\Bentley\MicroStation V8i (SELECTseries)\WorkSpace\projects\RJBP\Cell\Specialpb.cel"
CadInputQueue.SendKeyin "m,ms CELL LIBRARY PUSH BUTTON LOAD"
CadInputQueue.SendKeyin "m,msOpen Cel SpecialPB"
' CommandState.StartDefaultCommand
End Sub
TRIED THE LONGER PATH NAME TO SEE IF IT WOULD HELP/ DID NOT STILL HAD TO "MDL CELLSEL" LOAD (Only has to be done 1 time per dgn)
I kept trying lines to match the Key-in mdl load cellsel (after doing this key-in they will all work again untill loading new dgn file. all my work is markups, changes
addittions. so seed file most likely would not help. Triend to put in two pictures, did not know how to do them