[求助]在arx中如何读出lisp写的扩展数据

骑士 · 发表于 2006-7-23 18:10:00

在arx中如何读出lisp写的扩展数据
有一以前的系统是LISP写的
在以前的系统中生成有如下的扩展数据，我现在的代码是ARX写的，要兼容以前的数据，就用读取这样扩展数据，在Arx中能不能读出这些数据，如何读出。或者有没有其他方法，只要能读出这些数据，让我在Arx代码中用就可以。
我一直用arx开发，lisp基本不懂
(-3 ("控规：街坊" (1002 . "{") (1000 . "APA-01") (1000 . "居住")
(1000 . "2000") (1000 . "0.00") (1000 . "25.6") (1000 . "4.1") (1000 .
"12班小学1所，6班幼儿园2所，垃圾中转站1处") (1000 . "无") (1000 .
"20060418-0.001") (1002 . "}")))
高手指教！

haill2000 · 发表于 2006-7-25 15:20:00

搞规划的吧，你lisp不懂就会arx，比俺强多了，用AutoCAD MAP,直接转到RDB里，还编什么程啊

wzz1968 · 发表于 2006-7-27 15:57:00

我是用C语言写的程序.
struct resbuf *rb2,*rb1;
rb1=ads_buildlist(RTSTR,"APA-01",0);
rb2=ads_entgetx(ent,rb1);
assoc_dxf_str(rb1,1000,sTemp);
... ...
上边assoc-dxf_str函是检索数据链表的.详细如下
  ------ 缓冲链表操作函数 5.链表检索(字符型) -------------- */
int assoc_dxf_str(struct resbuf *rb,int dxf_code,char *result)
  {
struct resbuf *rb1;
if (dxf_type(dxf_code)!=RTSTR) return RTERROR;
if (rb==NULL) return RTERROR;
for (rb1=rb;rb1!=NULL;rb1=rb1->rbnext)
{ if (rb1->restype==dxf_code)
   {
strcpy(result,rb1->resval.rstring);
return RTNORM;
   }
   }
return RTERROR;
}
/***************************************************************************/
------ 缓冲链表操作函数 1.节点类型  */
int dxf_type(int dxf_code)
  {
if (dxf_code>=1000) dxf_code=dxf_code-1000;
if (dxf_code=0 && dxf_code=10 && dxf_code=38 && dxf_code=60 && dxf_code=210 && dxf_code

[求助]在arx中如何读出lisp写的扩展数据

发表回复

精选推荐