[求助]：在AUTOLISP中编程实现

gzlpwyyy

在一个数据序列中包括几种字符串，而每种字符串都分别有好几个如何才能统计出各种字符串的数量；
如（“二管荧光灯” “二管荧光灯”  “二管荧光灯” “单管荧光灯” “单管荧光灯” “单管荧光灯”  “吸顶灯” “吸顶灯” ）


该字符数据序列中有三类字符串，如何才能分别统计出各类字符串的数量

lsjjm

(SETQ L 0 M 0 N 0)
(FOREACH I (LIST “二管荧光灯” “二管荧光灯” “二管荧光灯” “单管荧光灯” “单管荧光灯” “单管荧光灯” “吸顶灯” “吸顶灯” ...)
(IF (= I “二管荧光灯")(SETQ L (1+ L)))
(IF (= I “单管荧光灯")(SETQ M (1+ M)))
(IF (= I “吸顶灯")(SETQ N (1+ N)))
)

cy956

可变数组，不能限制在l、m、n。。。

1。建议用表：
b1(list x1 x2 x3 x4 x5 ....)
b2(list (cons x1 n1)(cons x2 n2)(cons x3 n3).....)来历遍

(if (member x b1)
  (setq b2(subst (cons x (1+ (dxf x b2)))(assoc x b2) b2))
  (setq b1(cons x b1)
          b2(append b2(list (cons x 1))))
)

2。或者先
(ACAD_STRLSORT (LIST "二管荧光灯" "二管荧光灯" "二管荧光灯" "单管荧光灯" "单管荧光"
                     "单管荧光灯" "吸顶灯" "吸顶灯"))
再历遍，简单一些。

aeo

我想你的灯的名称也是不定的吧:

2. 
   
3. (setq li(“二管荧光灯” “二管荧光灯” “二管荧光灯” “单管荧光灯” “单管荧光灯” “单管荧光灯” “吸顶灯” “吸顶灯”... ))
   
4. (setq return nil)
   
5. (foreach n li
   
6.   (if (setq old(assoc n return))
   
7.      (setq return(subst(list(car old)(1+(cadr old)))(assoc n return) return)) ;如果有,找出来,数量+1
   
8.      (setq return(cons(list n 1)return))   ;如没有,加进去,当然数量为1
   
9. )
   
10. )
    

<br /> (setq li(“二管荧光灯” “二管荧光灯” “二管荧光灯” “单管荧光灯” “单管荧光灯” “单管荧光灯” “吸顶灯” “吸顶灯”... ))<br /> (setq return nil)<br /> (foreach n li<br />   (if (setq old(assoc n return))<br />      (setq return(subst(list(car old)(1+(cadr old)))(assoc n return) return)) ;如果有,找出来,数量+1<br />      (setq return(cons(list n 1)return))   ;如没有,加进去,当然数量为1<br /> )<br /> )<br />

return就是啦