Tặng các bạn lisp khóa khung Viewport bên Layout

;; free lisp from cadviet.com
(defun C:VO ( / SelSet ST:VP-Toggle-DisplayLocked) ;VP toggle Locked
(kiemtra)
;======== Local Function =========
(defun ST:VP-Toggle-DisplayLocked (vpObj / rt)
;vp : vlaObject
;RT : T if Lock VP / nil if Open
(cond ((eq (vla-get-DisplayLocked vpObj) :vlax-false)(vla-put-DisplayLocked vpObj :vlax-true)(setq rt T)(vla-put-color vpObj acBlue))
(T (vla-put-DisplayLocked vpObj :vlax-False)(vla-put-color vpObj acByLayer)))
)
;========== Start Here ==============
(grtext -1 "\nBy : Nguy\U+1EC5n V\U+0103n Thanh")
(cond
((< (atof (getvar "ACADVER")) 15.0)
(alert " Lisp requires AutoCAD 2000 or higher. "))
((= (getvar "TILEMODE") 1)
(alert " Lisp can only be done in paper space. "))
((> (getvar "CVPORT") 1)
(ST:VP-Toggle-DisplayLocked (vlax-ename->vla-object (acet-currentviewport-ename))))
((and
(not (prompt "\nSelect Viewport for (un)lock... "))
(not (setq SelSet (ssget '((0 . "VIEWPORT"))))))
(princ "Nothing or no Viewport selected."))
(T
(vl-load-com)
(vlax-for vpObj (setq SelSet (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
(ST:VP-Toggle-DisplayLocked vpObj)
)))
(princ)
)
)