[求助]：每日一问：会反应器的进来瞧瞧

animal212

问题一： 反应器能否与TXT文件关联？比如说其他人通过网上邻居修改了本人放在共享文件夹内的TXT文件，这时反应器能不能监测到并发出alert的提示框呢？

问题二：本人今天才接触反应器，感觉比lisp难学多了。不知道哪里有学习材料？ VLR涵数只介绍功能却没有实例，真让我们这些初学者望而却步！

fsxm

在CAD中是没有这种反应器的~！

wujimmy

可以建立命令反应器
参考我的"编辑记录器" 用的就是反应器技支

busuanshou

对啊~除了AUTOcad自带的教程外，还有没有关于反应器的教程和实例啊？
请高手们在这里贴出几个反应器的实例吧！


楼上的wujimmy朋友，你说你的“编辑记录器”在哪啊？能不能把地址贴出来啊？或是直接把代码帖在这里吧！

animal212

找了一个早上没找到啊。你所说的"编辑记录器"发表在哪里了？谢谢

yy5heng

这种可以命令式反应器，但是要自动侦测txt文件是否修改，目前还没有这种。
用某个自定义命令也可以实现。

carrot1983

侦测文件是否修改，可能需要用到DOSlib,（只要能取得文件的修改时间）
文件的修改时间变化来确定吧！
那要在运行你这个检测程序时，才有检测的结果啊！

mmmm

可以建立一个命令反应器，每次AutoCAD命令结束后，都去用vl-file-size检查文件的尺寸（前提是TXT文件被修改并保存），而后同上次记录的i时间比较。两者不同则文件已经被修改。

Simple code

2. 
   
3. (setq VLR (vlr-editor-reactor
   
4.             (list (vlax-get-acad-object))
   
5.             '((:vlr-commandEnded . CheckNetWorkTXT))
   
6.           )
   
7. )
   
8. (Defun CheckNetWorkTXT (obj data0 / file)
   
9.   (if (null (setq file
   
10.                    (findfile "\\\\Server\\Folder\\ABC.TXT")
    
11.             )
    
12.       )
    
13.     (alert "Network file not found!")
    
14.     (progn
    
15.       (if (null *size*)
    
16.         (setq *size* (vl-file-size file))
    
17.         (if (/= *size* (vl-file-size file))
    
18.           (progn
    
19.             (alert "Network file changed!")
    
20.             (setq *size* (vl-file-size file))
    
21.           )
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26. )
    

<br /> (setq VLR (vlr-editor-reactor<br />             (list (vlax-get-acad-object))<br />             '((:vlr-commandEnded . CheckNetWorkTXT))<br />           )<br /> )<br /> (Defun CheckNetWorkTXT (obj data0 / file)<br />   (if (null (setq file<br />                    (findfile "\\\\Server\\Folder\\ABC.TXT")<br />             )<br />       )<br />     (alert "Network file not found!")<br />     (progn<br />       (if (null *size*)<br />         (setq *size* (vl-file-size file))<br />         (if (/= *size* (vl-file-size file))<br />           (progn<br />             (alert "Network file changed!")<br />             (setq *size* (vl-file-size file))<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br />

它山之石

mmmm的方法可行
如果一直未执行CAD的命令
就不能检测了

可是用CAD来监视这个好象有点。。。
另外好象有专门的局域网监视程序

mmmm

一般说来，只要你在使用AutoCAD，就不可能不使用AutoCAD命令。除非你打开图形，只用眼看，动眼不动手。连个ZOOM或PAN都别用。：）

carrot1983

反正没有打开CAD是不能检测到的。因为用到lisp，除非是用其它的语言，是吧！

wujimmy

http://www.jgcad.com/article.asp?id=261

animal212

你们简直是无所不能啊，太棒了！看来以后得多问几个伤脑筋的问题。

zml84

一个对象反映器的示例:
http://zml84.blog.sohu.com/47081559.html

busuanshou

最初由 zml84 发布
[B]一个对象反映器的示例:
http://zml84.blog.sohu.com/47081559.html [/B]

哇~版主的博客真是太棒了~！好多我想要的东西~！
太感谢了！