圖層鎖定vlisp函數高版本圖元自動淡色顯示
阿新 • • 發佈:2017-07-29
active jna blog amp gen har brush doc name
(defun c:tt(/ obj) (sk_layerLock (getvar "clayer") nil) (princ) ) ;;;name:sk_layerLock ;;;desc:LayerLock圖層鎖定 ;;;arg:layername 圖層名 flag 鎖定標誌[t鎖定或nil解鎖] ;;;return:none 無 ;;;example:(sk_layerLock "0" t) ;;;date:2017-7-28 23:02:13 (defun sk_layerLock(layername flag / obj en) (if (setq en (tblobjname "layer" layername)) (progn (setq obj(vlax-ename->vla-object en)) (if flag (vla-put-lock obj :vlax-true) (vla-put-lock obj :vlax-false) ) (vla-put-layeron obj (vla-get-layeron obj)) (vla-regen (vla-get-activedocument(vlax-get-acad-object)) 1) (vlax-release-object obj) ) ) )
圖層鎖定vlisp函數高版本圖元自動淡色顯示