利用ARX从AUTOLISP创建匿名组

newer

Create an anonymous group from Visual LISP with help from ARX



问题：
DevNote TS36234 describes how to create an anonymous group from VBA, with the
help of an ARX application that was supplied.  Is it possible to call this ARX
application directly from Lisp?  Is it also possible to return the Object ID
of the newly-created group to the Lisp function, as well?

解答：

The attached ARX project is slightly different from the one available in DevNote
(TS36234), in this example acedDefun() is used to define the command
acdbAddAnonGrpRet2Lsp() as an external Lisp function.  It is further modified
to return a list, containing the new group's ObjectID, to the external Lisp
function, as well.

1. // ObjectARX defined commands
   
2. 
   
3. 
   
4. #include "StdAfx.h"
   
5. #include "StdArx.h"
   
6. 
   
7. 
   
8. // This is command 'ACDBADDANONGRPRET2LSP'
   
9. int acdbAddAnonGrpRet2Lsp()
   
10. {
    
11.    // TODO: Implement the command
    
12.    resbuf *pArg =acedGetArgs () ;
    
13. 
    
14. 
    
15.    struct resbuf *startRb = NULL;
    
16.    AcDbGroup *pGroup = new AcDbGroup();
    
17.    AcDbObjectId grpId;
    
18.    AcDbDictionary *pGroupDict;
    
19.    Acad::ErrorStatus es;
    
20.    AcApDocument *curDoc;
    
21. 
    
22. 
    
23.    //get the group dictionary
    
24.    AcDbDatabase *pDb = acdbHostApplicationServices()->workingDatabase();
    
25.    if (Acad::eOk == (es = acDocManager->lockDocument(curDoc=acDocManager->curDocument())))
    
26.       es = pDb->getGroupDictionary(pGroupDict,AcDb::kForWrite);
    
27. 
    
28. 
    
29.    if (es != Acad::eOk)
    
30.       return es;
    
31. 
    
32. 
    
33.    //make an anonymous entry
    
34.    if ((es = pGroupDict->setAt("*", pGroup, grpId)) == Acad::eOk) {
    
35.       //retrieve its name char *pNam;
    
36.       pGroup->close();
    
37.    }
    
38. 
    
39. 
    
40.    // create a resbuf with our ObjectID in it
    
41.    struct resbuf *newRb = acutBuildList (RTLONG, grpId, RTNONE);
    
42.    // if ok
    
43.    if (newRb != NULL) {
    
44.       // if this is the first time we've done this
    
45.       if (startRb == NULL) {
    
46.          // then set this as the start
    
47.          startRb = newRb;
    
48.       }
    
49.       // otherwise add it to the end of our list
    
50.       else {
    
51.          // create a pointer to the beginning of our resbuf list
    
52.          struct resbuf *ptr = startRb;
    
53.          // find the end of our list
    
54.          while (ptr->rbnext != NULL)
    
55.             ptr = ptr->rbnext;
    
56. 
    
57. 
    
58.          // now attach our newly create resbuf to the end
    
59.          ptr->rbnext = newRb;
    
60.       }
    
61.    }
    
62. 
    
63. 
    
64.    pGroupDict->close();
    
65.    acDocManager->unlockDocument(curDoc);
    
66. 
    
67. 
    
68.    acedRetList(startRb);
    
69.    acutRelRb(startRb);
    
70.    return (RTNORM);
    
71. }
    

// ObjectARX defined commands<br /> <br /> <br /> #include "StdAfx.h"<br /> #include "StdArx.h"<br /> <br /> <br /> // This is command 'ACDBADDANONGRPRET2LSP'<br /> int acdbAddAnonGrpRet2Lsp()<br /> {<br />    // TODO: Implement the command<br />    resbuf *pArg =acedGetArgs () ;<br /> <br /> <br />    struct resbuf *startRb = NULL;<br />    AcDbGroup *pGroup = new AcDbGroup();<br />    AcDbObjectId grpId;<br />    AcDbDictionary *pGroupDict;<br />    Acad::ErrorStatus es;<br />    AcApDocument *curDoc;<br /> <br /> <br />    //get the group dictionary<br />    AcDbDatabase *pDb = acdbHostApplicationServices()->workingDatabase();<br />    if (Acad::eOk == (es = acDocManager->lockDocument(curDoc=acDocManager->curDocument())))<br />       es = pDb->getGroupDictionary(pGroupDict,AcDb::kForWrite);<br /> <br /> <br />    if (es != Acad::eOk)<br />       return es;<br /> <br /> <br />    //make an anonymous entry<br />    if ((es = pGroupDict->setAt("*", pGroup, grpId)) == Acad::eOk) {<br />       //retrieve its name char *pNam;<br />       pGroup->close();<br />    }<br /> <br /> <br />    // create a resbuf with our ObjectID in it<br />    struct resbuf *newRb = acutBuildList (RTLONG, grpId, RTNONE);<br />    // if ok<br />    if (newRb != NULL) {<br />       // if this is the first time we've done this<br />       if (startRb == NULL) {<br />          // then set this as the start<br />          startRb = newRb;<br />       }<br />       // otherwise add it to the end of our list<br />       else {<br />          // create a pointer to the beginning of our resbuf list<br />          struct resbuf *ptr = startRb;<br />          // find the end of our list<br />          while (ptr->rbnext != NULL)<br />             ptr = ptr->rbnext;<br /> <br /> <br />          // now attach our newly create resbuf to the end<br />          ptr->rbnext = newRb;<br />       }<br />    }<br /> <br /> <br />    pGroupDict->close();<br />    acDocManager->unlockDocument(curDoc);<br /> <br /> <br />    acedRetList(startRb);<br />    acutRelRb(startRb);<br />    return (RTNORM);<br /> }<br />

For the most part, the following Lisp code is a direct translation of the VBA
code from the DevNote (TS36234):

下面是LISP代码：

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