超级方便快捷的图层操作二次开发源文件，吐血

tsiolearn · 发表于 2008-11-23 16:20:00

经典图书

实例如下，如果大家觉得好用，其他快捷操作的源文件我会陆续上传。。。
;建立新图层 NL
;将所选放入其他图层 LM
;设置当前图层 CU
;将所选放入当前图层 LU
;打开锁定的指定层 KK
;将所选图层锁定 LK
;将锁定图层全部打开 OK
;打开所有关闭的图层 ON
;关闭车所选外的其他图层 FF

hh_lay.rar (3.89 KB, 下载次数: 13)

zzy716 · 发表于 2008-11-23 19:00:20

关闭车所选外的其他图层 FF
源文件范例，
(Defun C:FF (/ SS CNT LAY LAYLST VAL VPMODE)
  (setvar "cmdecho" 0)
  (if (and (= 0 (getvar "tilemode")) ; if in a paper space
   (/= 1 (getvar "cvport")) ; viewport
   ) ;_ end of and
(setq VPMODE T)          ; set flag for viewport behavior
  ) ;_ end of if
  (if (not (setq SS (ssget "_i")))
(progn
   (prompt
"nSelect object(s) on the layer(s) to be isolated: "
   ) ;_ end of prompt
   (setq SS (ssget))
) ;_ end of progn
  ) ;_ end of if
  (if SS
(progn
   (setq CNT 0)
   (while (and ss
      (> (sslength ss) 0)
      (setq LAY (ssname SS CNT))
      )             ;and
(setq LAY (cdr (assoc 8 (entget LAY))))
(if (not (member LAY LAYLST))
      (setq LAYLST (cons LAY LAYLST))
) ;_ end of if
(setq CNT (1+ CNT))
   ) ;_ end of while
   (cond
(VPMODE       ;paper modle
   (command "_.vplayer" "_freeze" "*" "_Current")
   (foreach VAL LAYLST (command "_Thaw" VAL "_Current"))
   (command "")
)
(T
   (if (member (getvar "CLAYER") LAYLST)
      (setq LAY (getvar "CLAYER"))
      (setvar "CLAYER" (setq LAY (last LAYLST)))
   ) ;_ end of if
   (command "_.-LAYER" "_OFF" "*" "_Y")
   (foreach VAL LAYLST (command "_ON" VAL))
   (command "")
      ;(command "layerpmode" "on")
)
   ) ;_ end of cond
) ;_ end of progn
  ) ;_ end of if
  (setvar "cmdecho" 1)
  (princ)
) ;_ end of Defun
;

		自动登录	找回密码
密码			立即注册