马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - (defun c:xdtb_lyrfrozenother (/ e lyrs #layer all)
- (setq lyrs nil)
- (while
- (and (setq
- e (car (xdrx-entsel "\n拾取要保留的(其他冻结)图层<退出>:"))
- )
- (xdrx-getpropertyvalue e "layer" nil)
- (xdrx-layer-setislocked #layer nil)
- (progn
- (or (member #layer lyrs) (setq lyrs (cons #layer lyrs)))
- )
- (xdrx-entity-redraw (ssget "x" (list (cons 8 #layer))) 3)
- )
- )
- (setq all (xd::layer:getall))
- (mapcar '(lambda (x)
- (if (not (member x lyrs))
- (progn (if (= (getvar "clayer") x)
- (setvar "clayer" (car lyrs))
- )
- (xdrx-layer-setisfrozen x t)
- )
- (xdrx-layer-setisfrozen x nil)
- )
- )
- all
- )
- (xdrx-entity-redraw
- (ssget "x" (list (cons 8 (xdrx-string-join lyrs ","))))
- 4
- )
- (princ)
- )
|