如何将一个图层改为不打印图层
如何将一个已有图层改为不打印图层? (command ".layer" "p" "n" "不打印的图层名称" "")本帖最后由 wandong 于 2014-11-3 19:45 编辑
非常感谢提示。 可以通过修改图层DXF数据的290组来实现...
(defun setprint(la f / a);;la图层名 f为nil设为不可打印
(if(setq la(TBLOBJNAME"layer"la))
(entmod(setq la(entget la)a(assoc 290 la)
la(subst(cons 290(if f 1 0))a la)))))
(SETPRINT "0" nil);;;将图层"0"设置为不可打印
(SETPRINT "0" t);;;参数F非nil时设置炎可打印
(SETPRINT "0" 1)
(SETPRINT "0" "A")
好!刚好在找!谢谢! 留个记号谢谢
页:
[1]