[求助]请求修改 统计单行文本个数 的程序

crazylsp

网上发现下面这个程序能显示所选择文本内容，但不能显示每个内容对应有几个,
想修改一下这个程序，自己改了一下，但很有问题，请有空的修改一下，谢谢。

 

 

crazylsp

我又修改了下下，发生
Error: 函数错误: 1
继续解决中......

ZZXXQQ

3. (defun C:tt (/ N SS STR)
4. (setq SS  (ssget '((0 . "text")))
5.        N   0
6.        lst (list)
7. )
8. (repeat (sslength SS)
9.   (setq STR (cdr (assoc 1 (entget (ssname SS N)))))
10.   (if (assoc str lst)
11.    (setq lst (subst (cons str (1+ (cdr(assoc str lst)))) (assoc str lst) lst))
12.    (setq lst (cons (cons str 1) lst))
13.   )
14.   (setq N (1+ N))
15. )
16. (textscr)
17. (foreach str lst (princ (strcat (car str) "  " (atoi (cdr str)) "个\n")))
18. (princ)
19. )

(defun C:tt (/ N SS STR) (setq SS  (ssget '((0 . "text")))        N   0        lst (list) ) (repeat (sslength SS)   (setq STR (cdr (assoc 1 (entget (ssname SS N)))))   (if (assoc str lst)    (setq lst (subst (cons str (1+ (cdr(assoc str lst)))) (assoc str lst) lst))    (setq lst (cons (cons str 1) lst))   )   (setq N (1+ N)) ) (textscr) (foreach str lst (princ (strcat (car str) "  " (atoi (cdr str)) "个\n"))) (princ) )

dgygs

我执行版主的程序出现“  参数太少”，怎么回事？

ZZXXQQ

3楼改了

dgygs

版主，改了之后出现“参数类型错误: stringp 4”，

后来发现论坛里的一个帖子，将15行的atoi改为itoa就行了！

多谢版主分享！

yoyoho

感谢Z版源码程序

学习了!

dgygs

想问一下出现“  参数太少”一般是由于什么原因引起的？

crazylsp

 谢谢Z版和dgygs, Z版思路奇妙至极, 严重学习了。参数太少可能是少写参数了吧