My problem is definitely a V7 workmode problem, running the VBA in V8i it works without error, level manager displays and my tacked on prog works even when opening a V7 file and keeping in read only format.
Looks like I am going to need a work around for the level manager in V7 mode :(
If only clients would keep their products up to date!!
After a lot of cursing and head scratching I eventually gave up with the level manager and located another way to control the levels without starting another vba programme, I'm not sure but I think it is script:
Sub LayModule()
Dim msg As String
msg = "File determined as a (.lay) - Setting Lay File levels"
MessageCenter.AddMessage msg
CadInputQueue.SendKeyin "@W:\CADWorkspace\05-ClientResources\BootsStandard\Data\LevelSetV7Lay2013.txt"
End Sub
Text file contains:
lv=40;level set bylevel color 2 40;level set bylevel style 3 40;level set bylevel weight 1 40
lv=41;level set bylevel color 4 41;olor 6 7;
lv=9;level set bylevel color 7 9;
lv=10;level set bylevel color 1 10;
It's not as slick but it works!