[LISP程序]：打印实体resbuf链表的Lisp函数是什么？

kfx2002

别笑俺先，Lisp一点不懂，呵呵，谢谢您

XDSoft

resbuf链表是ADSRX的数据结构，LISP不能直接读到的。

你可以用ADSRX写一个外部函数供LISP调用，去打印链表。

不过，没有什么实际意义吧，如果你开发供LISP调用的API，在命令行调试信息应该能用到的。

下面代码是打印RESBUF链表的函数，你可以把他们定义成外部函数。

1. 
   
2. [FONT=courier new]
   
3. /************************************************************************
   
4. **
   
5. **        XdRbUtils::dxfCodeToDataType:
   
6. **
   
7. **        **jma
   
8. **
   
9. ******************************************/
   
10. 
    
11. int
    
12. XdRbUtils::dxfCodeToDataType(int resType)
    
13. {
    
14.                 // which data type is this value
    
15.         if ((resType >= 0) && (resType <= 9))
    
16.                 return(RTSTR);
    
17.         else if ((resType >= 10) && (resType <= 19))
    
18.                 return(RT3DPOINT);
    
19.         else if ((resType >= 38) && (resType <= 59))
    
20.                 return(RTREAL);
    
21.         else if ((resType >= 60) && (resType <= 79))
    
22.                 return(RTSHORT);
    
23.         else if ((resType >= 90) && (resType <= 99))
    
24.                 return(RTLONG);
    
25.         else if ((resType == 100) || (resType == 102) ||(resType == 105))
    
26.                 return(RTSTR);
    
27.         else if ((resType >= 140) && (resType <= 147))
    
28.                 return(RTREAL);
    
29.         else if ((resType >= 170) && (resType <= 179))
    
30.                 return(RTSHORT);
    
31.         else if ((resType >= 210) && (resType <=239))
    
32.                 return(RT3DPOINT);
    
33.         else if ((resType >= 270) && (resType <= 279))
    
34.                 return(RTSHORT);
    
35.         else if ((resType >= 300) && (resType <= 309))
    
36.                 return(RTSTR);
    
37.         else if ((resType >= 310) && (resType <= 369))
    
38.                 return(RTENAME);
    
39.         else if ((resType>=370)&&(resType<=379))
    
40.                 return (RTSHORT);
    
41.         else if ((resType>=400)&&(resType<=409))
    
42.                 return (RTSHORT);
    
43.         else if ((resType>=410)&&(resType<=419))
    
44.                 return (RTSTR);
    
45.         else if (resType == 1004)
    
46.                 return(resType);                // binary chunk
    
47.         else if ((resType >= 1000) && (resType <= 1009))
    
48.                 return(RTSTR);
    
49.         else if ((resType >= 1010) && (resType <= 1013))
    
50.                 return(RT3DPOINT);
    
51.         else if ((resType >= 1038) && (resType <= 1059))
    
52.                 return(RTREAL);
    
53.         else if ((resType >= 1060) && (resType <= 1070))
    
54.                 return(RTSHORT);
    
55.         else if ((resType == 1071))
    
56.                 return(RTLONG);
    
57.         else if ((resType < 0) || (resType > 4999))
    
58.                 return(resType);
    
59.         else
    
60.                 return(RTNONE);
    
61. }
    
62. [/FONT]

复制代码

1. 
   
2. [FONT=courier new]
   
3. /*********************************************************************
   
4. **
   
5. **        XdRbUtils::dxfToStr:
   
6. **
   
7. **         
   
8. ******************************************/
   
9. 
   
10. void
    
11. XdRbUtils::dxfToStr(resbuf* rb, CString& dxfCodeStr, CString& valueStr)
    
12. {
    
13.         int dataType = XdRbUtils::dxfCodeToDataType(rb->restype);
    
14.         dxfCodeStr.Format(_T("%d"), rb->restype);
    
15. 
    
16.         CString tmpStr;
    
17. 
    
18.         switch (dataType) {
    
19.                 case RTSHORT:
    
20.                         valueStr.Format(_T("%d"), rb->resval.rint);
    
21.                         break;
    
22.                 case RTLONG:
    
23.                         valueStr.Format(_T("%ld"), rb->resval.rlong);
    
24.                         break;
    
25.                 case RTREAL:
    
26.                         valueStr.Format(_T("%g"), rb->resval.rreal);
    
27.                         break;
    
28.                 case RTSTR:
    
29.                         if (rb->resval.rstring == NULL)
    
30.                                 valueStr = _T("(NULL)");
    
31.                         else
    
32.                                 valueStr.Format(_T(""%s""), rb->resval.rstring);
    
33.                         break;
    
34.                 case RT3DPOINT:
    
35.                         valueStr.Format(_T("(%g, %g, %g)"), rb->resval.rpoint[X],
    
36.                                                 rb->resval.rpoint[Y], rb->resval.rpoint[Z]);
    
37.                         break;
    
38.                 case RTPOINT:
    
39.                         valueStr.Format(_T("(%g, %g)"), rb->resval.rpoint[X], rb->resval.rpoint[Y]);
    
40.                         break;
    
41.                 case 1004:
    
42.                         valueStr.Format(_T("Binary Chunk: "%s""),
    
43.                                                 XdRbUtils::bytesToHexStr(rb->resval.rbinary.buf,
    
44.                                                                 rb->resval.rbinary.clen, tmpStr));
    
45.                         break;
    
46.                 case -5:
    
47.                         valueStr = _T("Persistent Reactors");
    
48.                         break;
    
49.                 case -4:
    
50.                         valueStr.Format(_T("Conditional Operator: "%s""), rb->resval.rstring);
    
51.                         break;
    
52.                 case -3:
    
53.                         valueStr = _T("Start of Xdata");
    
54.                         break;
    
55.                 case -2:
    
56.                         valueStr.Format(_T("<Entity Name Reference: %8lx>"), rb->resval.rlname[0]);
    
57.                         break;
    
58.                 case -1:
    
59.                 case RTENAME:
    
60.                         if ((rb->restype >= 330 )&& (rb->restype < 340))
    
61.                                 valueStr.Format(_T("<Soft Pointer: %8lx>"), rb->resval.rlname[0]);
    
62.                         else if((rb->restype >= 340) && (rb->restype < 350))
    
63.                                 valueStr.Format(_T("<Hard Pointer: %8lx>"), rb->resval.rlname[0]);
    
64.                         else if((rb->restype >= 350) && (rb->restype < 360))
    
65.                                 valueStr.Format(_T("<Soft Ownership: %8lx>"), rb->resval.rlname[0]);
    
66.                         else if((rb->restype >= 360) && (rb->restype < 370))
    
67.                                 valueStr.Format(_T("<Hard Ownership: %8lx>"), rb->resval.rlname[0]);
    
68.                         else
    
69.                                 valueStr.Format(_T("<Entity Name: %8lx>"), rb->resval.rlname[0]);
    
70.                         break;
    
71.                 case RTPICKS:
    
72.                         valueStr.Format(_T("<Selection Set: %8lx>"), rb->resval.rlname[0]);
    
73.                         break;
    
74.                 case RTLB:
    
75.                         valueStr = _T("List Begin");
    
76.                         break;
    
77.                 case RTLE:
    
78.                         valueStr = _T("List End");
    
79.                         break;
    
80.                 case RTNIL:
    
81.                         valueStr = _T("NIL");
    
82.                         break;
    
83.                 case RTT:
    
84.                         valueStr = _T("T");
    
85.                         break;
    
86.                 default:
    
87.                         valueStr = _T("Unknown Type");
    
88.                         break;
    
89.         }
    
90. }[/FONT]

复制代码

1. 
   
2. [FONT=courier new]
   
3. 
   
4. /*********************************************************************
   
5. **
   
6. **        XdRbUtils::printResbufChain:
   
7. **
   
8. **       
   
9. ******************************************/
   
10. 
    
11. void
    
12. XdRbUtils::printResbufChain(resbuf* const rb)
    
13. {
    
14.         CString dxfCodeStr, valueStr, tmpStr;
    
15.         resbuf* tmp = rb;
    
16.         while (tmp) {
    
17.                 XdRbUtils::dxfToStr(tmp, dxfCodeStr, valueStr);
    
18.                 tmpStr.Format(_T("\n(%s . %s)"), dxfCodeStr, valueStr);
    
19.                 ads_printf(static_cast<LPCTSTR>(tmpStr));
    
20.                 tmp = tmp->rbnext;
    
21.         }
    
22. }
    
23. [/FONT]

复制代码

kfx2002

谢谢XDSoft！