视口锁定解锁lisp_求一个cad 图层锁定和解锁的lisp命令？

展开全部

在百思论坛上找到的，用AutoCAD2008自带的Visual LISP编辑器存入，并用加载应用程序运行过，代码如下32313133353236313431303231363533e4b893e5b19e31333264633435

laymod.lsp

;__________________________

;解决R14“bonus”工具的移植

;图层管理工具

;-------------------------------------------

;图层对象选择,将标注归入dim层,文字归入txt层

;___________________________________________

(defun C:laymod(/ lm_ssd lm_sst)

(if (not (tblsearch "layer" "DIM"))

(command "-layer" "n" "DIM" "c" "1""DIM"""));endif

(if (not (tblsearch "layer" "TXT"))

(command "-layer" "n" "TXT" "c" "1""TXT"""));endif

(setq lm_ssd (ssget "X" '((0 . "DIMENSION")))

lm_sst (ssget "X" '((-4 . ""))));endsetq

(if lm_ssd (comma