vlr-dwg-reactor :vlr-endDwgOpen反应器问题

xinxirong

我想让cad2008支持高版本的dwg文件，在打开文件后立即判断文件版本，如果版本高于２００７，则转换成低版后再打开。
试着让Lisp去实现这个功能，因为lisp比较通用，以后移植到其它版本比较方便。
:vlr-endDwgOpen，但打开高版的dwg文件根本就不能中断(alert)，现在想用arx的办法也不行，好像没有这种接口？

2. 
   
3. (defun *begin_dwg_open_callbak*
   
4.        (reactor calls)
   
5.   (alert (strcat (vl-prin1-to-string  reactor)
   
6.      (vl-prin1-to-string  calls)
   
7.      )
   
8.    )
   
9. )
   
10. 
    
11. (setq *begin_dwg_open*
    
12.   (vlr-editor-reactor  
    
13.     "Fsxm.app"
    
14.     '((:vlr-beginDwgOpen . *begin_dwg_open_callbak*))
    
15.   )
    
16. )
    
17. 
    
18. (vlr-set-notification *begin_dwg_open* 'all-documents)

<br /> (defun *begin_dwg_open_callbak*<br />        (reactor calls)<br />   (alert (strcat (vl-prin1-to-string  reactor)<br />      (vl-prin1-to-string  calls)<br />      )<br />    )<br /> )<br /> <br /> (setq *begin_dwg_open*<br />   (vlr-editor-reactor  <br />     "Fsxm.app"<br />     '((:vlr-beginDwgOpen . *begin_dwg_open_callbak*))<br />   )<br /> )<br /> <br /> (vlr-set-notification *begin_dwg_open* 'all-documents)

ivde

低的能打开高的，Autodesk还忙活那么多版本早该倒闭了

Gu_xl

不要想了，无法实现的！

xinxirong

arx的AcEditorReactor::beginDwgOpen跟vlist VLR的函数作用是一样的，打开高版本的dwg一样无效，
用过很多种方法：
一、acdbHostApplicationServices()->
                registerSelectFileCallback(_T("AdskFileOpen"),
                fileOpenCB, true, false);
二、commandWillStart(const ACHAR* cmdStr)
都没有我想要的文件名。
看来要用函数hook，这是我最不想用的，因为每个版本的cad需要中断的位置都不一样，打上补丁也会有变化.