几个用于联合属性列表增删插入的函数

shizhen.yang

1. (defun endata_sub (key val_new pair_old ent_data / pair_old pair_new)
   
2. ;defun定义联合属性列表属性值替换函数：根据组码替换联合属性列表中组码值对应点对列表的属性值。
   
3.     (setq pair_new (cons key val_new))
   
4.     ;用key和属性值val_new生成新的点对列表，赋值pair_new。
   
5.     (if (and (= (type (cdr pair_new)) 'real) (= (type (cdr pair_old)) 'real));if_1 start.
   
6.       (if (<= 0.0001 (abs (- (cdr pair_new) (cdr pair_old))));if_1.1 start.
   
7.         (setq ent_data (subst pair_new pair_old ent_data))
   
8.         ;替换ent_data中组码key对应点对列表，并更新联合属性列表ent_data。
   
9.     );if_1.1 end.
   
10.       (if (/= pair_new pair_old);if_1.2 start.
    
11.         (setq ent_data (subst pair_new pair_old ent_data))
    
12.     );if_1.2 end.
    
13.   );if_1 end.
    
14.     ent_data
    
15. )
    
16. (defun endata_add (key val_new ent_data / pair_new)
    
17. ;defun定义合属性列表属性值增加函数：生成新的点对列表添加到联合属性列表中。
    
18.     (setq pair_new (cons key val_new))
    
19.     ;生成新的联合属性列表，赋值pair_new。
    
20.     (append ent_data (list pair_new))
    
21.   ;将新的点对列表pair_new添加到联合属性列表中，并更新联合属性列表ent_data。
    
22. )
    
23. (defun endata_find (key val ent_data / cnt)
    
24. ;defun定义查找指定组码与属性值的函数。
    
25.   (if (= (type val) 'real);real型带有浮点数特性，需要和其他类型变量分开讨论。
    
26.     (progn;progn_1 start.
    
27.         (setq lstlen (length ent_data))
    
28.         (setq cnt 0)
    
29.         (while (<= cnt lstlen);while_1 start.
    
30.           (setq pair (nth cnt ent_data))
    
31.           (if (= (type (cdr pair)) 'real);if_1 start.对比点对列表的属性值也为real型就需要考虑浮点数特性。
    
32.             (if (> 0.00001 (abs (- (cdr pair) val)));if_1.1 start.
    
33.               (setq signal T)
    
34.               (setq signal nil)
    
35.           );if_1.1 end.
    
36.             (if (= pair (cons key val));if_1.2 start.
    
37.               (setq signal T)
    
38.               (setq signal nil)
    
39.           );if_1.2 end.
    
40.           );if_1 end.
    
41.           (setq cnt (+ 1 cnt))
    
42.       );while_1 end.
    
43.       );progn_1 end.
    
44.     (progn;progn_2 start.
    
45.         (setq lstlen (length ent_data))
    
46.         (setq cnt 0)
    
47.         (while (<= cnt lstlen);while_2 start.
    
48.           (setq pair (nth cnt ent_data))
    
49.           (if (= pair (cons key val));if_2 start.
    
50.             (setq signal T)
    
51.             (setq signal nil)
    
52.         );if_2 end.
    
53.           (setq cnt (+ 1 cnt))
    
54.       );while_2 end.
    
55.       );progn_2 end.
    
56.   )
    
57.   signal
    
58. )
    
59. (defun endata_insert (index lst_insert ent_data / lst_front lst_rear)
    
60. ;defun定义根据指定索引（组码位置）把一个或多个点对列表组成的列表插入指定索引后的函数。
    
61.     (setq lst_rear ent_data lst_front (reverse ent_data))
    
62.     (repeat (+ 1 index) (setq lst_rear (cdr lst_rear)))
    
63.     ;删除索引位置之前（包括索引位置）的所有元素，赋值lst_rear。
    
64.     (repeat (- (- (length lst_front) index) 1) (setq lst_front (cdr lst_front)))
    
65.     ;删除索引位置之后（不包括索引位置）的所有元素（整个列表是倒序），赋值lst_front。
    
66.     (setq lst_front (reverse lst_front))
    
67.     ;将倒序列表拨正。
    
68.   (setq ent_data (append (append lst_front lst_insert) lst_rear))
    
69.     ;拼接插入目标列表。
    
70.     ent_data
    
71. )
    
72. (defun lst_del (lst stt end / cnt lst1 lst2)
    
73. ;删除列表lst中索引为0的元素开始的第stt至第end个元素，并返回删除后的列表。
    
74.   (setq lst1 lst lst2 (reverse lst))
    
75.   (repeat (+ 1 end)
    
76.    (setq lst1 (cdr lst1))
    
77.   )
    
78.   (repeat (- (length lst) stt)
    
79.    (setq lst2 (cdr lst2))
    
80.   )
    
81.   (setq lst (append (reverse lst2) lst1))
    
82. )

(defun endata_sub (key val_new pair_old ent_data / pair_old pair_new)<br /> ;defun定义联合属性列表属性值替换函数：根据组码替换联合属性列表中组码值对应点对列表的属性值。<br />     (setq pair_new (cons key val_new))<br />     ;用key和属性值val_new生成新的点对列表，赋值pair_new。<br />     (if (and (= (type (cdr pair_new)) 'real) (= (type (cdr pair_old)) 'real));if_1 start.<br />       (if (<= 0.0001 (abs (- (cdr pair_new) (cdr pair_old))));if_1.1 start.<br />         (setq ent_data (subst pair_new pair_old ent_data))<br />         ;替换ent_data中组码key对应点对列表，并更新联合属性列表ent_data。<br />     );if_1.1 end.<br />       (if (/= pair_new pair_old);if_1.2 start.<br />         (setq ent_data (subst pair_new pair_old ent_data))<br />     );if_1.2 end.<br />   );if_1 end.<br />     ent_data<br /> )<br /> (defun endata_add (key val_new ent_data / pair_new)<br /> ;defun定义合属性列表属性值增加函数：生成新的点对列表添加到联合属性列表中。<br />     (setq pair_new (cons key val_new))<br />     ;生成新的联合属性列表，赋值pair_new。<br />     (append ent_data (list pair_new))<br />   ;将新的点对列表pair_new添加到联合属性列表中，并更新联合属性列表ent_data。<br /> )<br /> (defun endata_find (key val ent_data / cnt)<br /> ;defun定义查找指定组码与属性值的函数。<br />   (if (= (type val) 'real);real型带有浮点数特性，需要和其他类型变量分开讨论。<br />     (progn;progn_1 start.<br />         (setq lstlen (length ent_data))<br />         (setq cnt 0)<br />         (while (<= cnt lstlen);while_1 start.<br />           (setq pair (nth cnt ent_data))<br />           (if (= (type (cdr pair)) 'real);if_1 start.对比点对列表的属性值也为real型就需要考虑浮点数特性。<br />             (if (> 0.00001 (abs (- (cdr pair) val)));if_1.1 start.<br />               (setq signal T)<br />               (setq signal nil)<br />           );if_1.1 end.<br />             (if (= pair (cons key val));if_1.2 start.<br />               (setq signal T)<br />               (setq signal nil)<br />           );if_1.2 end.<br />           );if_1 end.<br />           (setq cnt (+ 1 cnt))<br />       );while_1 end.<br />       );progn_1 end.<br />     (progn;progn_2 start.<br />         (setq lstlen (length ent_data))<br />         (setq cnt 0)<br />         (while (<= cnt lstlen);while_2 start.<br />           (setq pair (nth cnt ent_data))<br />           (if (= pair (cons key val));if_2 start.<br />             (setq signal T)<br />             (setq signal nil)<br />         );if_2 end.<br />           (setq cnt (+ 1 cnt))<br />       );while_2 end.<br />       );progn_2 end.<br />   )<br />   signal<br /> )<br /> (defun endata_insert (index lst_insert ent_data / lst_front lst_rear)<br /> ;defun定义根据指定索引（组码位置）把一个或多个点对列表组成的列表插入指定索引后的函数。<br />     (setq lst_rear ent_data lst_front (reverse ent_data))<br />     (repeat (+ 1 index) (setq lst_rear (cdr lst_rear)))<br />     ;删除索引位置之前（包括索引位置）的所有元素，赋值lst_rear。<br />     (repeat (- (- (length lst_front) index) 1) (setq lst_front (cdr lst_front)))<br />     ;删除索引位置之后（不包括索引位置）的所有元素（整个列表是倒序），赋值lst_front。<br />     (setq lst_front (reverse lst_front))<br />     ;将倒序列表拨正。<br />   (setq ent_data (append (append lst_front lst_insert) lst_rear))<br />     ;拼接插入目标列表。<br />     ent_data<br /> )<br /> (defun lst_del (lst stt end / cnt lst1 lst2)<br /> ;删除列表lst中索引为0的元素开始的第stt至第end个元素，并返回删除后的列表。<br />   (setq lst1 lst lst2 (reverse lst))<br />   (repeat (+ 1 end)<br />    (setq lst1 (cdr lst1))<br />   )<br />   (repeat (- (length lst) stt)<br />    (setq lst2 (cdr lst2))<br />   )<br />   (setq lst (append (reverse lst2) lst1))<br /> )

shizhen.yang

我不知道是不是activeX有我不知道的函数可以达到这些效果，就目前来说我是写了这些自定义函数充数。测试过各种类型，都还挺好用的。