ARX 向CAD 发送命令 带参数

lingbinbai

定义CAD命令，就是得定义一个函数。我想可不可以给这个函数添加个参数，发送命令时，带个参数。不知道这个可以实现不。比如定义函数void LTTest(CString str);然后定义命令test,调用LTTest 然后使用SendMsgToAutoCAD,或其他方式调用这个命令，在这个调用命令中给出参数。

lingbinbai

自己顶？？？？？

XDSoft

lingbinbai 发表于 2013-8-14 16:01
自己顶？？？？？

向ACAD命令行发送字符串执行，需要什么参数，你字符串都写好就行了。

有好多种方法

1. //----------------------------------------------------------------------------------------
   
2. //向CAD 窗口发送命令
   
3. //----------------------------------------------------------------------------------------
   
4. LRESULT  XdDbUtils::SendCommand(CString cmd)
   
5. {
   
6.         COPYDATASTRUCT cmdMsg;
   
7.         cmdMsg.dwData = (DWORD)1;
   
8.         cmdMsg.cbData = (DWORD)_tcslen(cmd) + 1;
   
9.         cmdMsg.lpData = cmd.GetBuffer(0);
   
10.         LRESULT ret = SendMessage(adsw_acadMainWnd(),WM_COPYDATA,NULL,(LPARAM)&cmdMsg);
    
11.         return ret;
    
12. }
    
13. 
    
14. //----------------------------------------------------------------------------------------
    
15. //向CAD 窗口发送命令
    
16. //----------------------------------------------------------------------------------------
    
17. #if (ADS>16)
    
18. HRESULT  XdDbUtils::SendCommand(BSTR cmd)
    
19. {
    
20.         IAcadApplication * pApp =(IAcadApplication *) acedGetIDispatch(TRUE);
    
21.         IAcadDocument * pDoc;
    
22.         pApp->get_ActiveDocument(&pDoc);
    
23.         HRESULT ret = pDoc->SendCommand(cmd);
    
24.         pApp->Release();
    
25.         pDoc->Release();
    
26.         return ret;
    
27. }
    
28. 
    

//----------------------------------------------------------------------------------------<br /> //向CAD 窗口发送命令<br /> //----------------------------------------------------------------------------------------<br /> LRESULT  XdDbUtils::SendCommand(CString cmd)<br /> {<br />         COPYDATASTRUCT cmdMsg;<br />         cmdMsg.dwData = (DWORD)1;<br />         cmdMsg.cbData = (DWORD)_tcslen(cmd) + 1;<br />         cmdMsg.lpData = cmd.GetBuffer(0); <br />         LRESULT ret = SendMessage(adsw_acadMainWnd(),WM_COPYDATA,NULL,(LPARAM)&cmdMsg);<br />         return ret;<br /> }<br /> <br /> //----------------------------------------------------------------------------------------<br /> //向CAD 窗口发送命令<br /> //----------------------------------------------------------------------------------------<br /> #if (ADS>16)<br /> HRESULT  XdDbUtils::SendCommand(BSTR cmd)<br /> {<br />         IAcadApplication * pApp =(IAcadApplication *) acedGetIDispatch(TRUE); <br />         IAcadDocument * pDoc;<br />         pApp->get_ActiveDocument(&pDoc);<br />         HRESULT ret = pDoc->SendCommand(cmd);<br />         pApp->Release();<br />         pDoc->Release();<br />         return ret;<br /> }<br /> <br />

XDSoft

AcApDocManager::sendStringToExecute Function

virtual Acad::ErrorStatus

sendStringToExecute(

AcApDocument* pAcTargetDocument,

const ACHAR * pszExecute,

bool bActivate = true,

bool bWrapUpInactiveDoc = false,

bool bEchoString = true) = 0;

pAcTargetDocument	Document to send input to
pszExecute	String to use as input
bActivate	Input Boolean indicating whether to activate the target document
bWrapUpInactiveDoc	Input Boolean indicating whether to queue current active document to complete in the next OnIdle() when switching active documents.
bEchoString	Input Boolean indicating whether the sent string is echoed on the command line

This function sends a string to the command line to be executed in the provided target document.

1. void
   
2. XdAcadUi::stuffAcadCmdLine(const CString& str)
   
3. {
   
4.     if (str.IsEmpty())
   
5.         return;
   
6. 
   
7.     CString tmpStr = str;
   
8.     tmpStr += _T("\n");
   
9. 
   
10.         Acad::ErrorStatus es;
    
11.         es = acDocManager->sendStringToExecute(acDocManager->curDocument(), tmpStr, false, true);
    
12.         if (es != Acad::eOk)
    
13.                 XdAcadUi::rxErrorMsg(es);
    
14. }
    
15. 
    

void<br /> XdAcadUi::stuffAcadCmdLine(const CString& str)<br /> {<br />     if (str.IsEmpty())<br />         return;<br /> <br />     CString tmpStr = str;<br />     tmpStr += _T("\n");<br /> <br />         Acad::ErrorStatus es;<br />         es = acDocManager->sendStringToExecute(acDocManager->curDocument(), tmpStr, false, true);<br />         if (es != Acad::eOk)<br />                 XdAcadUi::rxErrorMsg(es);<br /> }<br /> <br />

XDSoft

1. int SendStrToExcute()
   
2. {
   
3.         resbuf *rb=ads_getargs();
   
4.         if (!rb)
   
5.                 return RTNORM;
   
6.         if (rb->restype!=RTSTR)
   
7.                 return RTNORM;
   
8.         ads_queueexpr(rb->resval.rstring);
   
9.         ads_rett();
   
10.         return RTNORM;
    
11. }
    

int SendStrToExcute()<br /> {<br />         resbuf *rb=ads_getargs();<br />         if (!rb)<br />                 return RTNORM;<br />         if (rb->restype!=RTSTR)<br />                 return RTNORM;<br />         ads_queueexpr(rb->resval.rstring);<br />         ads_rett();<br />         return RTNORM;<br /> }<br />

lingbinbai

谢谢老大，俺来仔细研究下。

lingbinbai

XDSoft 发表于 2013-8-14 18:01

晓东老大，您写的我看懂了。但我想要的没实现。我想实现的效果是这个样子的。
//声明
void LTStartSKTC(CString str);
//添加命令
AddCommand( , StartSKTC, StartSKTC, , LTStartSKTC);//开始色块填充

//实现命令
void LTStartSKTC(CString str)
{

}

//调用命令或使用其他方式调用
acDocManager->sendStringToExecute(curDoc(), _T("StartSKTC"));

这种方式行不能，因为CAD不让给LTStartSKTC带参数。
我想通过一种方式调用该命令，然后给LTStartSKTC函数传递个值。
如果不用使用这种方式，还有什么好的办法呢。

XDSoft

lingbinbai 发表于 2013-8-15 17:55
晓东老大，您写的我看懂了。但我想要的没实现。我想实现的效果是这个样子的。
//声明
void LTStartSKTC ...

咱们一直讨论的是如何发送字符串让ACAD执行。 就是说发送的字符串你在ACAD命令行手动交互输入也一样执行的。

你的程序发送的是一个命令，在ACAD下面输入也不能带参数的。

你不要定义成命令了，用ads_defun 定义个外部函数，函数可以带参数。

定义外部函数在kLoadDwgMsg消息循环中添加，func_table结构里面是你的外部函数的名字

1. // 在此定义由外部函数名称和对应的用户函数名称所构成的结构数组
   
2. 
   
3. static struct func_entry func_table[] = {
   
4.         {_T("lisp_funcname"),ARXFUNC},
   
5. }
   
6. 
   
7. virtual AcRx::AppRetCode On_kLoadDwgMsg (void *pkt)
   
8.         {
   
9.                 AcRx::AppRetCode retCode =AcRxArxApp::On_kLoadDwgMsg (pkt) ;
   
10.                 LoadFunctions();
    
11.                 return AcRx::kRetOK;
    
12.         }
    
13. 
    
14. AcRx::AppRetCode LoadFunctions()
    
15. {
    
16.         int i;
    
17.         for (i = 0; i < ELEMENTS(func_table); i++)
    
18.         {
    
19.                 ret = ads_defun(func_table.func_name, (short)i);
    
20.                 if (ret != RTNORM)
    
21.                         return AcRx::kRetError;
    
22.         }
    
23.         return AcRx::kRetOK;
    
24. }
    
25. 
    

// 在此定义由外部函数名称和对应的用户函数名称所构成的结构数组<br /> <br /> static struct func_entry func_table[] = { <br />         {_T("lisp_funcname"),ARXFUNC},<br /> }<br /> <br /> virtual AcRx::AppRetCode On_kLoadDwgMsg (void *pkt)<br />         {<br />                 AcRx::AppRetCode retCode =AcRxArxApp::On_kLoadDwgMsg (pkt) ;<br />                 LoadFunctions();<br />                 return AcRx::kRetOK;<br />         }<br /> <br /> AcRx::AppRetCode LoadFunctions()<br /> {<br />         int i;<br />         for (i = 0; i < ELEMENTS(func_table); i++) <br />         {<br />                 ret = ads_defun(func_table<i>.func_name, (short)i);<br />                 if (ret != RTNORM)<br />                         return AcRx::kRetError;<br />         }<br />         return AcRx::kRetOK;<br /> }<br /> <br />

lingbinbai

XDSoft 发表于 2013-8-15 18:31
咱们一直讨论的是如何发送字符串让ACAD执行。 就是说发送的字符串你在ACAD命令行手动交互输入也一样执行 ...

哈哈。谢谢您。

why1025

咋用啊！:@:@:@:@

why1025

\acrxEntryPoint.cpp(7446) : error C2065: “IAcadApplication”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7446) : error C2065: “pApp”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7446) : error C2065: “IAcadApplication”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7446) : error C2059: 语法错误 : “)”
1>.\acrxEntryPoint.cpp(7447) : error C2065: “IAcadDocument”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7447) : error C2065: “pDoc”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7448) : error C2065: “pApp”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7448) : error C2227: “->get_ActiveDocument”的左边必须指向类/结构/联合/泛型类型
1>        类型是“'unknown-type'”
1>.\acrxEntryPoint.cpp(7448) : error C2065: “pDoc”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7449) : error C2065: “pDoc”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7449) : error C2227: “->SendCommand”的左边必须指向类/结构/联合/泛型类型
1>        类型是“'unknown-type'”
1>.\acrxEntryPoint.cpp(7450) : error C2065: “pApp”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7450) : error C2227: “->Release”的左边必须指向类/结构/联合/泛型类型
1>        类型是“'unknown-type'”
1>.\acrxEntryPoint.cpp(7451) : error C2065: “pDoc”: 未声明的标识符
1>.\acrxEntryPoint.cpp(7451) : error C2227: “->Release”的左边必须指向类/结构/联合/泛型类型

why1025

XDSoft 发表于 2013-8-15 18:31
咱们一直讨论的是如何发送字符串让ACAD执行。 就是说发送的字符串你在ACAD命令行手动交互输入也一样执行 ...

这段咋用啊