禁止用户修改打印设置

marting

1. (or (vl-some (function (lambda (r) (= (vlr-data r) "LayoutCheck")))
   
2.              (cdar (vlr-reactors :VLR-AcDb-Reactor))
   
3.     )
   
4.     (vlr-acdb-reactor "LayoutCheck" (list (cons :vlr-objectModified 'LayoutCheck)))
   
5. )
   
6. (defun LayoutCheck (reactor_object obj / ent)
   
7.   (setq ent (entget (cadr obj)))
   
8.   (if (= (cdr (assoc 0 ent)) "LAYOUT")
   
9.     (if        (/= (cdr (assoc 2 ent)) "dwg to pdf.pc3")
   
10.       (alert "You will be punnished!")
    
11.     )
    
12.   )
    
13. )
    

(or (vl-some (function (lambda (r) (= (vlr-data r) "LayoutCheck")))<br />              (cdar (vlr-reactors :VLR-AcDb-Reactor))<br />     )<br />     (vlr-acdb-reactor "LayoutCheck" (list (cons :vlr-objectModified 'LayoutCheck)))<br /> )<br /> (defun LayoutCheck (reactor_object obj / ent)<br />   (setq ent (entget (cadr obj)))<br />   (if (= (cdr (assoc 0 ent)) "LAYOUT")<br />     (if        (/= (cdr (assoc 2 ent)) "dwg to pdf.pc3")<br />       (alert "You will be punnished!")<br />     )<br />   )<br /> )<br />

yufeng37

cad2010运行后报错：
"no function definition: VLR-REACTORS" ，请问这是哪里有问题呢？

marting

yufeng37 发表于 2017-5-8 22:36

执行下  (vl-load-com)

pxt2015

这个程序的功能是什么？

marting

pxt2015 发表于 2017-5-8 22:44

就是介绍下反应器的作用，代码的作用是，你切换到布局时候，会弹出对话框警告。

yufeng37

刚刚试了一下，可以正常运行和提示了。但实际上还可以可以修改布局里的打印设置呀，这是为何？