请看看这个程序

mmmjjj

不了解VL，照猫画虎写了一个，不能运行，烦请各位帮我改一下，先谢过了！ (defun C:lk (/ str)
(vl-load-com)
(setq str (getstring "\n 图层全部[解锁Unlock]或[锁定Lock] <锁定Lock>:"))
(if (not str)
(vl-cmdf "layer" "lock" "*" "")
(vl-cmdf "layer" "unlock" "*" "")
)
(princ)
)

龙龙仔

(defun c:lk (/ str)
(vl-load-com)
(setq str (getstring "\n 圖層全部解鎖[U] / 圖層全部鎖定<ENTER>:"))
(if (= "" str)
(vl-cmdf "layer" "lo" "*" "")
(vl-cmdf "layer" "u" "*" "")
)
(princ)
)

mmmjjj

多谢龙版主！