可以通过修改图层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")
|