选对象，设置所在图层打印或者不打印

yangchao2005090

图纸中有n个图层，输入命令，选择某个或某几个图层上的对象，然后将对象所在的图层设置为打印或不打印

xvjiex

请查看：

xvjiex

在命令行输入la，空格点击打印机图标，有红色标记为不打印状态。

yangchao2005090

xvjiex 发表于 2020-6-28 13:45
在命令行输入la，空格点击打印机图标，有红色标记为不打印状态。

图层有点多，而且现在2014cad图层管理好像没有以前2008的那么方便，每次改要找半天，可否直接选图层上的对象控制该图层打印或者不打印

he378980280

可选择对象图层设置为打印或者不打印，也可以设置固定图层（无需选择）为打印或不打印

fxlt619

支持！！！

pusslica

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:bdy (/ ES EN EL A)
(vl-load-com)
(princ "选择不打印图层")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "p" "n" (eval FL) "")
(command "LAYER" "LW" "default" (eval FL) "")

(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:ydy (/ ES EN EL A)
(vl-load-com)
(princ "选择要打印图层")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "p" "p" (eval FL) "")
(command "LAYER" "LW" "default" (eval FL) "")

(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

yaojing38

谢谢分享，，用上了

蓝天cayuer

收藏了 等有了明经币来下 我这想批量取消一些无法打印的图层 改为可以打印

蓝天cayuer

pusslica 发表于 2020-7-14 21:58
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:bdy (/ ES EN EL A)
(vl-load-com)

感谢 这个好用多了 还不用明经币 谢谢