用反应器实现布局转换时隔离与布局相关联的层

夜未眠

不好意思，重新改了下。大家看看，有什么还需要改的，重点是更精炼、更直接。 ;;; 布局转换时隔离与布局名相关联的层，如布局名为1，则隔离1-1、1-2、……，回到模型空间时再所有图层全开。
(vl-load-com)
(setq snl '()
tbll (TblNext "LAYER" T)
)
(While (SetQ snl (Cons (Cdr (Assoc 2 tbll)) snl)
tbll (TblNext "LAYER" nil)
)
)
(if (not *miscellaneous-reactor*)
(setq *miscellaneous-reactor*
(vlr-miscellaneous-reactor
nil
'((:vlr-layoutSwitched . ctab-autorun))
)
)
) (defun mlayer (layl do)
(foreach name layl
(vla-put-layeron
(vla-item (vla-get-layers
(vla-get-activedocument (vlax-get-acad-object))
)
name
)
do
)
)
)
(defun ctab-autorun (x y / op)
(cond
((= (getvar "tilemode") 0)
(progn (setq op '())
(foreach name (vl-remove "0" snl)
(if (not (wcmatch name (strcat (getvar "ctab") "-*")))
(setq op (cons name op))
)
)
(mlayer snl :vlax-true)
(mlayer op :vlax-false)
)
)
((= (getvar "tilemode") 1) (mlayer snl :vlax-true))
)
)

meflying

怎么错了?(mlayer...)没有提供

龙龙仔

先了解LAYL & DO是甚么??
用:vlr-sysvarchanged对吗?
用:vlr-layoutswitched会好一点!
回调函数内最好全用ActiveX

夜未眠

(defun ctab-autorun (x y / op)里面的xy简直就是陪像的，好像没用上啊？可是去掉后又会出错，怎么回事？ to龙龙仔 ：vlr-layoutswitched 是比上次那个好多了，这个我还是今天早上又翻了遍书才发现还有这个的

meflying

因为系统调用回调函数就是这样的,会传入一些参数...只是你没有用到这个参数而已...但系统并不会因为你不用就不传,所以这两个参数还是需要存在的...


就同错误处理函数中的参数一样