[求助]：功能:注解輸出

前生

还以为你在东莞呢?

spring1983

呵呵,上次你說你要來昆山,我不是跟你說我在蘇州嗎???
我只去過廣東一次,在長安待了一個月.


aeo 有疑問,
你的程序中 (setq li (subst a (append a e) li))
為甚麼不直接用 (setq li (cons en li)) 將實體名寫進表裡呢?(按照現在的思路是要得到表 (tag1 实体1 实体4 实体.........),還要用 subst 替換掉呢?
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (setq a (assoc tag li))                             
    (setq li(subst a (append a e)li))                ;如果li里有这个标签引导的表了,就加这个实体到这表中.
    (setq li(cons(list tag e) li)                          ;如果li没有，就新生一个.
;;;;;;;;;;;;;;;;;;;;;;;;;;;
用你的程序得出的結果是
(("test" <Entity name: 4046eea8>) ("Spring" <Entity name: 4046eeb0>))
我全部選中了,只有一個實體名.

我改成 (setq li (cons en li))  後,選中兩個園時 li 如下
(<Entity name: 4046eee8> ("Spring" <Entity name: 4046eef0>))
選中3個園或全選,程序就中斷

aeo

不好意思
(setq li(subst a (append a e)li))
改为(setq li(subst a (append a (list e))li))