[编程交流] 用于锁定的Copytolayer命令

(vl-load-com)
;; PROBLEM
;; AutoCAD gives unhandled exception error with eOnLockedLayer.
;; TO ADD
;; Change this to have undo handling
(defun c:Lay_Copy_Locked (/ layUlist laydata ss)
  (setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  ; Unlock all layers - https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/unlocking-layers-is-painfully-slow/m-p/2881866#M294136
  (vlax-for item (vla-get-layers doc)
    (if (= (vlax-get-property item "Lock") :vlax-true)
      (progn
        (setq Locked_Layers (cons item Locked_Layers)) ; set variable "locked_layers" to all locked layers.
        (vlax-put-property item "Lock" :vlax-false) ; unlock each layer if it is locked.
      ) ; end progn
    ) ; end if
  ) ; end vlax
  ;; Copy to layer
  (if (setq ss (ssget "_:L"))
    (command "._-copytolayer" ss "")
  ) ; end if
  ; If any layers were locked at the beginning, lock them again. -https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/unlocking-layers-is-painfully-slow/m-p/2881866#M294136
  (if Locked_Layers
    (mapcar '(lambda (x) (vlax-put-property x "Lock" :vlax-true)) Locked_Layers)
  ) ; end if
  (princ)
) ; defun
(c:Lay_Copy_Locked)