[LISP程序]：一個只現所選圖層的工具

clyuyu

對模具設計很有用,是我的重要收藏
(defun   c:vt (  )                                                                                                            
(if     (= 0 (getvar "tilemode"))                                
        (progn  (setq tm 0)
                (command "mspace")
                (princ "\nSelect layer to UNfreeze on current viewport: "))
        (progn  (setq tm 1)
                (command "layer" "on" "*" "")
                (princ "\nALL ON for Select objects/layer to display :")))
(setq p (ssget))
(if p   (progn
        (setq l 0)
        (setq ck nil)
        (setq c (getvar "clayer"))
        (setq n (sslength p))
        (setq vt "")
        (while  (< l n)
                (setq va (cdr (assoc 8 (setq e (entget (ssname p l))))))
                (if (= c va)(setq ck 1))
                (setq vt (strcat vt va ","))
                (setq l (1+ l)))
        (setq exp(getvar "expert"))
        (setvar "expert" 1)
        (if     (= tm 1)        
                (progn  (setq ml(getvar "users2"))
                        (if (tblsearch "layer" ml)(setq vt(strcat vt ml)))      
                        (if (null ck)(command "layer" "s" va "off" "*" "on" vt "")
                                     (command "layer" "off" "*" "on" vt ""))
                )
                (progn  (command "layer" "s" va "")
                        (command "vplayer" "f" "*" "" "t" vt "" ""))
                )
        (if     (null ck)
                (princ (strcat "\nThe current layer change to : " va)))
        (setvar "expert" exp))
)

(princ))

地鼠

至少得翻译到中文吧。郁闷

aichong

很好用，谢谢！可用于R14。

sandylin2009

哈哈,这个我收下了

KENSHIN709

也可以用EXPRESS TOOLS 里面的提取图层命令"layiso"