ARX的综合运用--反应器,IPM,JIG,acedDragGen,自定义实体及与LISP的通信机制

Highflybird

此贴起源于：

http://bbs.xdcad.net/thread-667838-1-1.html

这些天做了个程序给LISP调用，其中综合运用了arx的 JIG类，AcEdInputPointMonitor类，反应器，和自定义实体,以及对acedDragGen函数和回调函数做了一些研究。有些部分牵涉到了简单的事务处理。后面我还加了一些定时器，和钩子等。虽然是给LISP的，但其中有许多东西，还是可以利用的。
这个东西花费我一些时间，希望的是能跟大家一起讨论研究，虽然我开源给大家，但是我还是收取了一定数量D豆，那些真心学习研讨的人应该不会在乎这点吧。所以此贴非诚勿扰。如果你相信此贴的价值超过它收取的D豆，就下载吧。
一些有用的建议和bug指出，我会给他们加分。
欢迎大家多提意见。

游客，本帖隐藏的内容需要积分高于 100 才可浏览，您当前积分为 0

版本更新到2013年10月。

Gdlprfcu

{:soso_e102:}，可惜还不够权限，我得努力。

守仁格竹GM

积分也差太多了

XDSoft

守仁格竹GM 发表于 2013-5-7 13:12
积分也差太多了

静下心，多交流，会够的。

传下你的代码，给你加分，一个贡献10个积分，一个威望15个积分。

守仁格竹GM

积极努力中，现在快到了:lol

cxjzxf

高大师的贴子一定要顶

Gdlprfcu

给点小小建议：我觉得既然是给lisp调用的，钩子和定时器应该做成文档级的，不应该是全局性的。

yxpxa

偶像的帖子，一定要顶

Highflybird

Gdlprfcu 发表于 2013-5-23 11:19
给点小小建议：我觉得既然是给lisp调用的，钩子和定时器应该做成文档级的，不应该是全局性的。

现在看来，因为钩子和定时器牵涉到的arx函数都是全局级的，看来无法做到文档级别的了。

zhangq_cai1

权限不够，努力中~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

Gdlprfcu

Highflybird 发表于 2013-7-26 17:11
现在看来，因为钩子和定时器牵涉到的arx函数都是全局级的，看来无法做到文档级别的了。

应该可以吧，我是这样做的，把定时器做成类结构，再在DOC类中定义一个map容器保存当前文档的定时器类，文档被释构时同时释放已实例化的定时器类，这样做还可以同时在同一文档定义多个定时器。具体代码如下：

1. #include "StdAfx.h"
   
2. #include "Timer.h"
   
3. class Timer
   
4. {
   
5. public:
   
6.   Timer(HWND CurHandle,UINT nElapse,const ACHAR * CallbackFunction);
   
7.   static void CALLBACK TimerProc(HWND hWnd,UINT nMsg,UINT nTimerid,DWORD dwTime);
   
8.   static int LispTimer(void);
   
9.   static int KillLispTimer(void);
   
10. public:
    
11.   ~Timer(void);
    
12. private:
    
13.   ACHAR *m_CallbackFunction;
    
14.   UINT m_nElapse;
    
15.   static UINT TimerID;
    
16.   AcApDocument *m_doc;
    
17.   HWND m_CurHandle;
    
18.   UINT_PTR uIDEvent;
    
19. };
    
20. UINT Timer::TimerID = 1000;
    
21. Timer::Timer(HWND CurHandle,UINT nElapse,const ACHAR * CallbackFunction):m_CurHandle(CurHandle)
    
22. {
    
23.   if (nElapse > 0)
    
24.   {
    
25.     m_nElapse = nElapse;
    
26.   }
    
27.   else
    
28.   {
    
29.     m_nElapse = 500;
    
30.   }
    
31.   TimerID++;
    
32.   m_doc = acDocManager->curDocument();
    
33.   m_CallbackFunction = new ACHAR[wcslen(CallbackFunction)+ 1];
    
34.   wcscpy(m_CallbackFunction,CallbackFunction);
    
35.   //m_CurHandle = CurHandle;\\adsw_acadDocWnd();
    
36.   uIDEvent = SetTimer(m_CurHandle,TimerID,nElapse,(TIMERPROC)Timer::TimerProc);
    
37.   if (uIDEvent == 0)
    
38.   {
    
39. --TimerID;
    
40.   }
    
41. }
    
42. Timer::~Timer(void)
    
43. {
    
44.   if (m_CallbackFunction != NULL)
    
45.   {
    
46.     delete[] m_CallbackFunction;
    
47.     m_CallbackFunction = NULL;
    
48.   }
    
49. }
    
50. void Timer::TimerProc(HWND hWnd,UINT nMsg,UINT nTimerid,DWORD dwTime)
    
51. {
    
52.   AcApDocument *curdoc = acDocManager->curDocument();
    
53.   Timer *curtimer = DocVars.docData().mapTimers[nTimerid];
    
54.   if (curtimer->m_doc != curdoc)
    
55.   {
    
56.     return;
    
57.   }
    
58.   struct resbuf *in_rb=NULL,*out_rb=NULL;
    
59.   in_rb = acutBuildList(RTSTR,curtimer->m_CallbackFunction,RTSHORT,hWnd,RTSHORT,nMsg,RTSHORT,nTimerid,RTSHORT,dwTime,0);
    
60.   if (in_rb == NULL)
    
61.   {
    
62.     return;
    
63.   }
    
64.   if (acedInvoke(in_rb,&out_rb) != RTNORM )
    
65.   {
    
66.     return;
    
67.   }
    
68.   acutRelRb(in_rb);
    
69.   in_rb = NULL;
    
70.   if (out_rb != NULL)
    
71.   {
    
72.     acutRelRb(out_rb);
    
73.     out_rb = NULL;
    
74.   }
    
75.   return;
    
76. }
    
77. 
    
78. int Timer::LispTimer()
    
79. {
    
80.   struct resbuf *m_rb = acedGetArgs();
    
81.   if (m_rb == NULL || m_rb->rbnext == NULL || m_rb->restype != RTSHORT ||(m_rb->rbnext->restype != RTSHORT && m_rb->rbnext->restype != RTSTR))
    
82.   {
    
83.     return RTERROR;
    
84.   }
    
85.   HWND CurHandle ;
    
86.   if (m_rb->restype == RTSHORT && m_rb->rbnext->restype == RTSHORT)
    
87.   {
    
88.     if (m_rb->rbnext->rbnext == NULL || m_rb->rbnext->rbnext->restype != RTSTR)
    
89.     {
    
90.       return RTERROR;
    
91.     }
    
92.     CurHandle =(HWND) m_rb->resval.rint;
    
93.     m_rb = m_rb->rbnext;
    
94.   }
    
95.   else
    
96.   {
    
97.      CurHandle = adsw_acadDocWnd();
    
98.   }
    
99.   Timer *myTime = new Timer(CurHandle,m_rb->resval.rint,m_rb->rbnext->resval.rstring);
    
100.   if (myTime->uIDEvent == 0)
     
101.   {
     
102.     delete myTime;
     
103.     myTime = NULL;
     
104.     acedRetNil();
     
105.   }
     
106.   else
     
107.   {
     
108.     DocVars.docData().mapTimers[myTime->uIDEvent] = myTime;
     
109.     acedRetInt(myTime->uIDEvent);
     
110.   }
     
111.   return RSRSLT;
     
112. }
     
113. int Timer::KillLispTimer(void)
     
114. {
     
115.   struct resbuf *m_rb = acedGetArgs();
     
116.   if (NULL == m_rb || m_rb->restype != RTSHORT)
     
117.   {
     
118.     acutPrintf(_T("\n参数类型错误。"));
     
119. return RTERROR;
     
120.   }
     
121.   map<UINT,Timer*>::iterator iter;
     
122.   iter = DocVars.docData().mapTimers.find((UINT)m_rb->resval.rint);
     
123.   if (iter == DocVars.docData().mapTimers.end())
     
124.   {
     
125.     acedRetNil();
     
126.     return RSRSLT;
     
127.   }
     
128.   Timer *m_timer = DocVars.docData().mapTimers[m_rb->resval.rint];
     
129.   bool isok;
     
130.   isok = KillTimer(m_timer->m_CurHandle,m_timer->uIDEvent);
     
131.   if (isok)
     
132.   {
     
133.     DocVars.docData().mapTimers.erase(m_rb->resval.rint);
     
134.     delete m_timer;
     
135.     m_timer = NULL;
     
136.     acedRetT();
     
137.   }
     
138.   else
     
139.   {
     
140.     acutPrintf(_T("\n删除定时器时出错。"));
     
141. return RTERROR;
     
142.   }
     
143.   return RSRSLT;
     
144. }
     

#include "StdAfx.h"<br /> #include "Timer.h"<br /> class Timer<br /> {<br /> public:<br />   Timer(HWND CurHandle,UINT nElapse,const ACHAR * CallbackFunction);<br />   static void CALLBACK TimerProc(HWND hWnd,UINT nMsg,UINT nTimerid,DWORD dwTime);<br />   static int LispTimer(void);<br />   static int KillLispTimer(void);<br /> public:<br />   ~Timer(void);<br /> private:<br />   ACHAR *m_CallbackFunction;<br />   UINT m_nElapse;<br />   static UINT TimerID;<br />   AcApDocument *m_doc;<br />   HWND m_CurHandle;<br />   UINT_PTR uIDEvent;<br /> };<br /> UINT Timer::TimerID = 1000;<br /> Timer::Timer(HWND CurHandle,UINT nElapse,const ACHAR * CallbackFunction):m_CurHandle(CurHandle)<br /> {<br />   if (nElapse > 0)<br />   {<br />     m_nElapse = nElapse;<br />   }<br />   else<br />   {<br />     m_nElapse = 500;<br />   }<br />   TimerID++;<br />   m_doc = acDocManager->curDocument();<br />   m_CallbackFunction = new ACHAR[wcslen(CallbackFunction)+ 1];<br />   wcscpy(m_CallbackFunction,CallbackFunction);<br />   //m_CurHandle = CurHandle;\\adsw_acadDocWnd();<br />   uIDEvent = SetTimer(m_CurHandle,TimerID,nElapse,(TIMERPROC)Timer::TimerProc);<br />   if (uIDEvent == 0)<br />   {<br /> --TimerID;<br />   }<br /> }<br /> Timer::~Timer(void)<br /> {<br />   if (m_CallbackFunction != NULL)<br />   {<br />     delete[] m_CallbackFunction;<br />     m_CallbackFunction = NULL;<br />   }<br /> }<br /> void Timer::TimerProc(HWND hWnd,UINT nMsg,UINT nTimerid,DWORD dwTime)<br /> {<br />   AcApDocument *curdoc = acDocManager->curDocument();<br />   Timer *curtimer = DocVars.docData().mapTimers[nTimerid];<br />   if (curtimer->m_doc != curdoc)<br />   {<br />     return;<br />   }<br />   struct resbuf *in_rb=NULL,*out_rb=NULL;<br />   in_rb = acutBuildList(RTSTR,curtimer->m_CallbackFunction,RTSHORT,hWnd,RTSHORT,nMsg,RTSHORT,nTimerid,RTSHORT,dwTime,0);<br />   if (in_rb == NULL)<br />   {<br />     return;<br />   }<br />   if (acedInvoke(in_rb,&out_rb) != RTNORM )<br />   {<br />     return;<br />   }<br />   acutRelRb(in_rb);<br />   in_rb = NULL;<br />   if (out_rb != NULL)<br />   {<br />     acutRelRb(out_rb);<br />     out_rb = NULL;<br />   }<br />   return;<br /> }<br /> <br /> int Timer::LispTimer()<br /> {<br />   struct resbuf *m_rb = acedGetArgs();<br />   if (m_rb == NULL || m_rb->rbnext == NULL || m_rb->restype != RTSHORT ||(m_rb->rbnext->restype != RTSHORT && m_rb->rbnext->restype != RTSTR))<br />   {<br />     return RTERROR;<br />   }<br />   HWND CurHandle ;<br />   if (m_rb->restype == RTSHORT && m_rb->rbnext->restype == RTSHORT)<br />   {<br />     if (m_rb->rbnext->rbnext == NULL || m_rb->rbnext->rbnext->restype != RTSTR)<br />     {<br />       return RTERROR;<br />     }<br />     CurHandle =(HWND) m_rb->resval.rint;<br />     m_rb = m_rb->rbnext;<br />   }<br />   else<br />   {<br />      CurHandle = adsw_acadDocWnd();<br />   }<br />   Timer *myTime = new Timer(CurHandle,m_rb->resval.rint,m_rb->rbnext->resval.rstring);<br />   if (myTime->uIDEvent == 0)<br />   {<br />     delete myTime;<br />     myTime = NULL;<br />     acedRetNil();<br />   }<br />   else<br />   {<br />     DocVars.docData().mapTimers[myTime->uIDEvent] = myTime;<br />     acedRetInt(myTime->uIDEvent);<br />   }<br />   return RSRSLT;<br /> }<br /> int Timer::KillLispTimer(void)<br /> {<br />   struct resbuf *m_rb = acedGetArgs();<br />   if (NULL == m_rb || m_rb->restype != RTSHORT)<br />   {<br />     acutPrintf(_T("\n参数类型错误。"));<br /> return RTERROR;<br />   }<br />   map<UINT,Timer*>::iterator iter;<br />   iter = DocVars.docData().mapTimers.find((UINT)m_rb->resval.rint);<br />   if (iter == DocVars.docData().mapTimers.end())<br />   {<br />     acedRetNil();<br />     return RSRSLT;<br />   }<br />   Timer *m_timer = DocVars.docData().mapTimers[m_rb->resval.rint];<br />   bool isok;<br />   isok = KillTimer(m_timer->m_CurHandle,m_timer->uIDEvent);<br />   if (isok)<br />   {<br />     DocVars.docData().mapTimers.erase(m_rb->resval.rint);<br />     delete m_timer;<br />     m_timer = NULL;<br />     acedRetT();<br />   }<br />   else<br />   {<br />     acutPrintf(_T("\n删除定时器时出错。"));<br /> return RTERROR;<br />   }<br />   return RSRSLT;<br /> }<br />

Highflybird

Gdlprfcu 发表于 2013-7-28 01:30
应该可以吧，我是这样做的，把定时器做成类结构，再在DOC类中定义一个map容器保存当前文档的定时器类，文 ...

嗯，好方法。
但是那个钩子是全局级别的函数，似乎没办法改。

Gdlprfcu

Highflybird 发表于 2013-7-28 09:39
嗯，好方法。
但是那个钩子是全局级别的函数，似乎没办法改。

钩子我没试过，不过钩子有一个也够了，只要把回调函数字符串做成文档级的，在ARX里判断一下就可以了，这样就不会在没有加载LISP回调数的文档里出现“xxxx函数没定义"这样的提示了。然后再做一个获取当前回调函数字符串的函数，就像设置系统变量一样，使用完再恢复。

pengfei2010

100积分是什么概念啊？我多少积分了？

aeo

看看，要50豆呀，我一共才105豆