Lock All Viewports using AutoLISP

[@PMSteve]

Thanks for this. Some very useful information here. I'm looking forward to the future video about the database sweep.

[@randomCADstuff]

Here's the code. ***BUT MAKE SURE YOU KNOW WHAT YOU'RE DOING, ESPECIALLY IF YOU EDIT THE CODE***
(defun C:LOCKALLVIEWPORTS ( / )
(vlax-for layout (vla-get-layouts (vla-get-activeDocument (vlax-get-acad-object)))
(if (/= (vla-get-name layout) "Model")
(vlax-for object (vla-get-block layout)
(if (= (vla-get-objectName object) "AcDbViewport")
(if (= (vla-get-displayLocked object) :vlax-false)
(vla-put-displaylocked object :vlax-true)
)
)
)
)
)
) ; ______________________________________________________________________________

[@zwiebec78]

I didn't even know I wanted this, but now I do! should pin your comment so it stays at the top ;) thanks