Locked viewport command

[sssteve72]

^C^C-layer;m;VPORT;c;81;;p;n;VPORT;;_vports

^C^C-layer;m;VPORT;c;81;;p;n;$M=$(if,$(eq,$(getvar,tilemode),0),^C^C_-vports _p,^C^C^P(ai_viewports_alert)^P) 

A long time ago I had made a button with the above macro (actually there are two buttons there) to basically make a viewport and always put it in a specific layer with a specific color etc..  Well since then I've discovered I'd like to make that same viewport locked as part of the command so that when I initially draw the viewport it is locked.  I am not good with code and I know I didn't make that second one as that is way beyond me.

Is there a way to code a locked viewport without picking on it or typing in a name so that I basically click my command button and draw my viewport and when I am done everything in my macro up above is done and the viewport is locked?  Does anyone have anything like this ?

[scot-65]

A quick and dirty LISP...
(if (= (getvar "TILEMODE") 0)
(command ".VPORTS" "Lock" "On" (ssget "A" '((0 . "VIEWPORT"))) "")
)

[smaher12 · Accepted solution]

The following will create your layer, with the viewport on that layer, and then lock the viewport...

^C^C-layer;m;VPORT;c;81;;p;n;VPORT;;VPORTS;\\VPORTS;LOCK;ON;LAST;;

[sssteve72]

I couldn't get scot's to work (probably something I did wrong) but this one works great, thanks smaher12.