[编程交流] AutoLISP锁定视口，ch

(defun c:VPortFix ( / doc ss vl )
 (vl-load-com)
 (setq vl "VIEWPORTS") ;; VP Layer
 
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (or (tblsearch "LAYER" vl)
     (vla-Add (vla-get-layers doc) vl)
 )
 (cond
   ( (ssget "_X" '((0 . "VIEWPORT")))
     (vlax-for vport (setq ss (vla-get-ActiveSelectionSet doc))
       (vla-put-VisualStyle vport 1)
       (vla-put-layer vport vl)
       (vla-put-DisplayLocked vport :vlax-true)
     )
     (vla-delete ss)
   )
 )
 (princ)
)
(defun c:VPortReactor nil
 (vl-load-com)
 (  (lambda ( data foo / react )
      (if (setq react
            (vl-some
              (function
                (lambda ( reactor )
                  (if (eq data (vlr-data reactor)) reactor)
                )
              )
              (cdar (vlr-reactors :vlr-editor-reactor))
            )
          )
        (if (vlr-added-p react)
          (vlr-remove react)
          (vlr-add react)
        )
        (setq react
          (vlr-editor-reactor data
            (list
              (cons :vlr-beginsave foo)
            )
          )
        )
      )
      (princ
        (if (vlr-added-p react)
          "\n** Reactor Activated **"
          "\n** Reactor Deactivated **"
        )
      )
      react
    )
   "VPort-Reactor"
   'VPort-CallBack
 )
 (princ)
)
(defun VPort-CallBack ( reactor arguments ) (c:VPortFix))
(c:VPortReactor)

2