yangchao2005090 发表于 2020-6-27 16:57:00

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

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

xvjiex 发表于 2020-6-27 16:57:01

请查看：

xvjiex 发表于 2020-6-28 13:45:08

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

yangchao2005090 发表于 2020-6-28 19:48:00

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

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

he378980280 发表于 2020-6-29 11:12:44

本帖最后由 he378980280 于 2024-11-21 13:58 编辑

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

fxlt619 发表于 2020-6-29 12:00:14

支持！！！

pusslica 发表于 2020-7-14 21:58:34

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 发表于 2023-5-15 16:52:09

谢谢分享，，用上了

蓝天cayuer 发表于 2023-9-24 07:34:47

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

蓝天cayuer 发表于 2023-9-24 07:41:26

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


感谢 这个好用多了 还不用明经币 谢谢
页: [1] 2
查看完整版本: 选对象，设置所在图层打印或者不打印