[求助]请求修改 统计单行文本个数 的程序
本帖最后由 crazylsp 于 2011-4-21 09:48 编辑 <br /><br /><P><FONT face=Verdana>网上发现下面这个程序能显示所选择文本内容，但不能显示每个内容对应有几个,<BR>想修改一下这个程序，自己改了一下，但很有问题，请有空的修改一下，谢谢。</FONT></P><P><FONT face=Verdana></FONT> </P>
<P><FONT face=Verdana></FONT> </P> 本帖最后由 crazylsp 于 2011-4-21 09:48 编辑 <br /><br /><P><FONT face=Verdana color=#339966><EM>我又修改了下下，发生<BR><FONT face=Verdana>Error: 函数错误: 1</FONT><BR>继续解决中......</EM></FONT></P> 本帖最后由 作者 于 2010-9-26 21:12:45 编辑
(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)
)
我执行版主的程序出现“参数太少”，怎么回事？ 3楼改了 <p>版主，改了之后出现“<font style="BACKGROUND-COLOR: #ffffff" face="Verdana">参数类型错误: stringp 4”，</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">后来发现论坛里的一个帖子，将15行的atoi改为itoa就行了！</font></p>
<p>多谢版主分享！</p> <p>感谢Z版源码程序</p>
<p>学习了!</p> 想问一下出现“参数太少”一般是由于什么原因引起的？ 本帖最后由 作者 于 2010-10-3 10:11:39 编辑 <br /><br /> <font face="Verdana">谢谢Z版和dgygs, Z版思路奇妙至极, 严重学习了。<font face="Verdana">参数太少可能是少写参数了吧</font></font>
页:
[1]