1樓：朱正偉
圖層鎖定或解鎖，**如下。
;圖層鎖定及解鎖
(defun c:tes ( / ent lay1)
(vl-load-com)
(while (and (setq ent (entsel "\n請選擇要鎖定或解鎖的圖元")) (setq lay1 (cdr (assoc 8 (entget (car ent))))))
(w1712251 lay1)
)(princ)
)(defun w1712251 (lay1 / lay lay1)
(vlax-for lay (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (= (vla-get-name lay) lay1)
(progn
(if (= (vla-get-lock lay) :vlax-true);如果圖層鎖定
(vla-put-lock lay :vlax-false) ;解鎖
(vla-put-lock lay :vlax-true) ;鎖定)))))
2樓：許權逯雅達
在百思論壇上找到的，用autocad2008自帶的visual lisp編輯器存入，並用載入應用程式執行過，**如下
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 (command "chprop" lm_ssd "" "la" "dim"""))
(if lm_sst (command "chprop" lm_sst "" "la" "txt"""))
);end defun
;-------------------------------------
;圖層孤立顯示，通過選擇物件單顯某圖層
;_____________________________________
(defun c:layiso(/ l9_ss l9_ent l9_lay ii)
(setq l9_ss "" ii 0)
(princ "\n選擇要保留顯示的圖層:")
(setq l9_ss (ssget))
(if l9_ss (command "-layer""off""*""y"""))
(repeat (sslength l9_ss)
(setq l9_ent (entget (ssname l9_ss ii)))
(setq l9_lay (cdr (assoc 8 l9_ent)) ii (1+ ii))
(command "-layer""on" l9_lay "")
);end repeat
);end defun layiso
;--------------------------
;開啟所有圖層
;__________________________
(defun c:layon()(command "-layer""on""*"""))
;--------------------------
;解除所有圖層鎖定
;__________________________
(defun c:layul()(command "-layer""u""*"""))
;--------------------------
;解除所有圖層凍結
;__________________________
(defun c:layuk()(command "-layer""t""*"""))
;--------------------------
;通過選擇解除圖層鎖定
;__________________________
(defun c:layulk(/ l9_ss l9_ent l9_lay)
(setq l9_ss (entsel "\n選擇要解鎖的圖層:"))
(while l9_ss
(setq l9_ent (entget (car l9_ss)))
(setq l9_lay (cdr (assoc 8 l9_ent)))
(command "layer""u" l9_lay"")
(setq l9_ss (entsel "\n選擇要解鎖的圖層:"))
);end while
);end defun
;--------------------------
;通過選擇鎖定圖層
;__________________________
(defun c:laylck(/ l9_ss l9_ent l9_lay)
(setq l9_ss (entsel "\n選擇要鎖定的圖層:"))
(while l9_ss
(setq l9_ent (entget (car l9_ss)))
(setq l9_lay (cdr (assoc 8 l9_ent)))
(command "layer""u" l9_lay"")
(setq l9_ss (entsel "\n選擇要鎖定的圖層:"))
);end while
);end defun
;--------------------------
;通過選擇凍結圖層
;_________________
(defun c:layfrz(/ l9_ss l9_ent l9_lay l9_clay ii)
(setq l9_clay (getvar "clayer"))
(princ "\n選取凍結圖層參考物件: ")
(setq l9_ss (ssget))
(setq ii 0)
(command "-layer")
(repeat (sslength l9_ss)
(setq l9_ent (entget (ssname l9_ss ii)))
(setq l9_lay (cdr (assoc 8 l9_ent)))
(command "f" l9_lay)
(setq ii (1+ ii))
);end repeat
(command "")
);end defun layfrz
;--------------------------
;通過選擇隱藏圖層
;__________________________
(defun c:layoff(/ l9_ss l9_ent l9_lay l9_clay ii)
(princ "\n選取隱藏圖層參考物件: ")
(setq l9_ss (ssget))
(setq l9_clay (getvar "clayer"))
(setq ii 0)
(command "-layer")
(repeat (sslength l9_ss)
(setq l9_ent (ssname l9_ss ii))
(setq l9_lay (cdr (assoc 8 (entget l9_ent))))
(if (/= l9_lay l9_clay)
(command "off" l9_lay)(command "off" l9_lay"y")
);end if
(setq ii (1+ ii))
);end repeat
(command "")
);end defun layoff
;--------------------------
(princ "\n---------->> 圖層調整
(laymod)layiso/layon/layuk/layulk/laylck/layfrz/layoff<<----------")
(prin1)
3樓：
(defun c:8 (/ es en el a)
(princ "凍結視口圖層.")
(setq es (ssget) a 0 en "" el nil fl nil)
(while (/= en nil)
(setq en (ssname es a) el (cons en el) a (1+ a)))
(setq el (cdr el) fl (cdr (assoc ' 8 (entget (car el)))) el (cdr el))
(repeat (- a 2)
(setq en (cdr (assoc ' 8 (entget (car el))))
fl (strcat en "," fl) el (cdr el)) )
(command "vplayer" "f" (eval fl) "")
(princ))
4樓：匿名使用者
(command "vplayer" "f" laname "" )有問題：
"vplayer"應為"layer"吧。
"f" 應為"u" 吧。
求一個cad的lisp程式 50
5樓：
不要什麼lisp程式，工具-選項-開啟儲存-檔案儲存 另存為 選擇你要的版本，確定 退出，以後就儲存你選擇的版本了。
求魔獸世界德魯伊巨集命令設定，求寫乙個魔獸世界德魯伊的巨集命令
showtooltip cast nostealth,nocombat 潛行 stealth 突襲 nostealth,combat 撕碎 showtooltip cast nostealth,nocombat 潛行 stealth 毀滅 第3個羅列2個技能就可以了，最好把提示語音和紅字關了 cas...
求魔術解析求乙個魔術解析
這個魔術十分簡單哦。道具 三個杯子 乙個小物品。準備 在其中乙個杯子上做上乙個小內記號 如用黑筆容點個小點 表演 三個杯子依次擺在桌子上 記住記號杯的位置 轉身，觀眾把小物品放入其中乙個杯子。若當你回頭後發現記號杯沒有動到，那就說明觀眾挪動了另外兩個杯子，小物品是在記號杯裡。如果發現記號杯調換到了另...
求恐怖小說，求乙個恐怖小說
一號怪談社的怪談系列吧 都是七個故事 七夜怪談 作品 版七夜怪談 作者 壹號怪談社權 出版社 朝華出版社 型別 文藝 懸疑 編輯本段 作品簡介 7個年輕人，同住一層樓，平日都喜歡刺激冒險，愛看恐怖片，也愛講恐怖故事。於是有人提議開個 怪談社 每個週末輪流講乙個刺激的鬼故事。從某個週末起，怪談社開始了...