【反应器】模型和布局使用不同的全局比例

kucha007

加载但不必运行，如果想每次都加载就放启动组或者acadiso.lsp

本来是有点感兴趣但不知道怎么操作，无意中接触了反应器，就学习了一下，学习资料也放在这里：
https://www.afralisp.net/visual-lisp/tutorials/reactors-part-1.php

1. (vl-load-com)
   
2. ;;加载就修改
   
3. (K:ChkModel)
   
4. ;;设置并初始化反应器，切换工作空间时修改
   
5. (vlr-sysvar-reactor nil '((:vlr-sysVarChanged . *WSReactor*)))
   
6. ;;反应器回调函数
   
7. (defun *WSReactor* (Rea Data)
   
8.   (if (= (car Data) "TILEMODE")
   
9.     (K:ChkModel)
   
10.   )
    
11. )
    
12. 
    
13. 
    
14. ;;通用函数:判断工作空间
    
15. (defun K:ChkModel nil
    
16.   (cond
    
17.     ((= 1 (getvar "TILEMODE"));模型空间
    
18.         ;(setvar "PSLTSCALE" 0);缩放时不使用视口比例
    
19.         (setvar "LTSCALE" 500);设置全局缩放比例为500
    
20.     )
    
21.     ((= 0 (getvar "TILEMODE"));布局空间
    
22.         (setvar "PSLTSCALE" 1);缩放时使用视口比例
    
23.         (setvar "LTSCALE" 10);设置全局缩放比例为10
    
24.     )
    
25.   )
    
26. )
    

(vl-load-com)<br /> ;;加载就修改<br /> (K:ChkModel)<br /> ;;设置并初始化反应器，切换工作空间时修改<br /> (vlr-sysvar-reactor nil '((:vlr-sysVarChanged . *WSReactor*)))<br /> ;;反应器回调函数<br /> (defun *WSReactor* (Rea Data) <br />   (if (= (car Data) "TILEMODE")<br />     (K:ChkModel)<br />   )<br /> )<br /> <br /> <br /> ;;通用函数:判断工作空间<br /> (defun K:ChkModel nil<br />   (cond<br />     ((= 1 (getvar "TILEMODE"));模型空间<br />         ;(setvar "PSLTSCALE" 0);缩放时不使用视口比例<br />         (setvar "LTSCALE" 500);设置全局缩放比例为500<br />     )<br />     ((= 0 (getvar "TILEMODE"));布局空间<br />         (setvar "PSLTSCALE" 1);缩放时使用视口比例<br />         (setvar "LTSCALE" 10);设置全局缩放比例为10<br />     )<br />   )<br /> )<br />

另一个有意思的东西，用来判断活动视口：

1. ;;判断工作空间及是否在活动视口中
   
2. (cond
   
3.   ((= (getvar "TILEMODE") 1)
   
4.    (princ "\n——★★★ 在模型空间中 ★★★——")
   
5.   )
   
6.   ((and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1))
   
7.    (princ "\n——★★★ 在布局空间中 ★★★——")
   
8.   )
   
9.   ((and (= (getvar "TILEMODE") 0)(> (getvar "CVPORT") 1))
   
10.    (princ "\n——★★★ 在活动视口中 ★★★——")
    
11.   )
    
12. )
    

;;判断工作空间及是否在活动视口中<br /> (cond <br />   ((= (getvar "TILEMODE") 1)<br />    (princ "\n——★★★ 在模型空间中 ★★★——")<br />   )<br />   ((and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1))<br />    (princ "\n——★★★ 在布局空间中 ★★★——")<br />   )<br />   ((and (= (getvar "TILEMODE") 0)(> (getvar "CVPORT") 1))<br />    (princ "\n——★★★ 在活动视口中 ★★★——")<br />   )<br /> )<br />

中国梦

谢谢楼主分享

magicheno

感谢大佬分享

lxl217114

++++++++++лз

tomonkey239

再想反应器是怎么样的，感谢分享
但是试了下，运行不成功

kucha007

tomonkey239 发表于 2022-12-30 17:01
再想反应器是怎么样的，感谢分享
但是试了下，运行不成功

不用运行。加载就可以用了，加载后你切换空间，再检查全局比例就知道了

tomonkey239

有没有画一个矩形的的反应器？大佬

kucha007

tomonkey239 发表于 2022-12-31 13:29
有没有画一个矩形的的反应器？大佬

学习资料里有关于命令反应器的信息

dingtiedt

大师，把两个一合并，切换到model空间，提示是正常的；在布局与布局、或者在布局与活动视口之间切换时，有时显示不正常，在布局空间时，提示“在活动视口中”，在活动视口中时，提示“在布局空间中”，请大师看看什么原因



(vl-load-com)
(K:ChkModel)
(vlr-sysvar-reactor nil '((:vlr-sysVarChanged . *WSReactor*)))
(defun *WSReactor* (Rea Data)
  (if (= (car Data) "TILEMODE")
    (K:ChkModel)
  )
)

(defun K:ChkModel nil
  (cond
   ((= (getvar "TILEMODE") 1)
    (princ "\n——★★★ 在模型空间中 ★★★——")
   )
   ((and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1))
    (princ "\n——★★★ 在布局空间中 ★★★——")
   )
   ((and (= (getvar "TILEMODE") 0)(> (getvar "CVPORT") 1))
    (princ "\n——★★★ 在活动视口中 ★★★——")
   )
)）

atone

厉害厉害，膜拜