马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 marting 于 2020-5-15 19:00 编辑
 - (defun c:xdtb_lyreot (/ lyrs i lyr)
- (defun XD::Layer:GetBy70 (key tf / e layerl obj locktf)
- (setq obj (xdrx_object_get "layer"))
- (while (setq e (xdrx_object_next))
- (setq locktf (xdrx_getentdxf 70))
- (if tf
- (progn
- (and (or (and (= key 0) (= locktf 0))
- (and (/= locktf 0) (= locktf (logand locktf key)))
- )
- (setq layerl (cons (car e) layerl))
- )
- )
- (progn
- (and
- (not (or (and (= key 0) (= locktf 0))
- (and (/= locktf 0) (= locktf (logand locktf key)))
- )
- )
- (setq layerl (cons (car e) layerl))
- )
- )
- )
- )
- (reverse layerl)
- )
- (xdrx-begin)
- (xdrx-prompt "\n**删除所有冻结和关闭图层上的所有物体**")
- (if (setq lyrs (xd::layer:getby70 1 t)
- lyrs (append lyrs (XD::Layer:GetOff))
- )
- (progn
- (setq i 0)
- (mapcar
- '(lambda (x)
- (if (setq lyr (tblobjname "layer" x))
- (progn (xdrx-setpropertyvalue lyr "off" nil "frozen" nil)
- (xdrx-entity-delete (ssget "x" (list (cons 8 x))))
- (setq i (1+ i))
- )
- )
- )
- lyrs
- )
- )
- )
- (xdrx-prompt "\n>>处理了 " (length lyrs) "个图层.") (xdrx-end)
- (princ)
- )
|