怎么构造关联表

zhangq_cai1

2. ;(fget 'A 'B 'C "数据函数名")
   
3. (defun fget (fr sl fa lname) ;/ lh lst j nn)
   
4.   (setq lh  (car (eval(read lname)));分离表头
   
5.         lst (cadr(eval(read lname)));分离框架
   
6.         j   -1)
   
7.   (setq lst (cadr(assoc fa (cadr (assoc sl
   
8.             (cadr(assoc fr lst)))))));检索
   
9.   (repeat (length lh)
   
10.     (setq j (1+ j) nn (nth j lh))
    
11.     (set nn (nth j lst))             ;将检索值给相应表头
    
12.   )
    
13.   lst                                ;返回值
    
14.   )

;(fget 'A 'B 'C "数据函数名")<br /> (defun fget (fr sl fa lname) ;/ lh lst j nn)<br />   (setq lh  (car (eval(read lname)));分离表头<br />         lst (cadr(eval(read lname)));分离框架<br />         j   -1)<br />   (setq lst (cadr(assoc fa (cadr (assoc sl<br />             (cadr(assoc fr lst)))))));检索<br />   (repeat (length lh)<br />     (setq j (1+ j) nn (nth j lh))<br />     (set nn (nth j lst))             ;将检索值给相应表头<br />   )<br />   lst                                ;返回值<br />   )

怎么构造data3关联表，使检索表函数运行

newer

你就按数据的格式 LIST CONS 呗。

st788796

没看明白什么意思，Autolisp 仅仅是在 Autocad 下用，处理最多的就是实体，表处理是 Lisp 的特点，但是不要给 Alisp 加那么多难度，简化才能提高效率

zhangq_cai1

这是一本书上的程序，按书上的构造表结果检索不出来。这个程序assoc检索不出来

st788796

zhangq_cai1 发表于 2014-12-19 21:01
这是一本书上的程序，按书上的构造表结果检索不出来。这个程序assoc检索不出来

见笑了，没有读过几本Autolisp的书(勉强有一本还没有读完)

/db_自贡黄明儒_

zhangq_cai1 发表于 2014-12-19 21:01
这是一本书上的程序，按书上的构造表结果检索不出来。这个程序assoc检索不出来

构造复杂表不划算，不如用．TxT存贮数据，然后再处理

st788796

/db_自贡黄明儒_ 发表于 2014-12-19 21:32
构造复杂表不划算，不如用．TxT存贮数据，然后再处理

还不如用 XML 树形结构，检索有专门函数