求当前图层上的文字统计个数，其它图层上的文字不统计
求当前图层上的文字统计个数，其它图层上的文字不统计(defun c:tt ()
(sslength (ssget "X" (list '(0 . "*TEXT") (cons 8 (getvar "CLAYER")))))
)
ZZXXQQ 发表于 2014-3-24 21:11 static/image/common/back.gif
Z版牛
不知道楼主是统计字个个数还是字符串的个数........ ZZXXQQ 发表于 2014-3-24 21:11 static/image/common/back.gif
z大就是厉害啊。。。。几句代码就搞定了。。。 总的字的个数的话可以这样：
嘿嘿复制一下上面Z版的一句代码
(defun c:tt()
(setq ss (ssget "X" (list '(0 . "*TEXT") (cons 8 (getvar "CLAYER")))))
(setq i 0 zf 0)
(repeat (sslength ss)
(setq name (ssname ss i))
(setq en (cdr (assoc 1 (entget name))))
(setq geshu (strlen en))
(setq zf (+ zf geshu))
(setq i (1+ i))
)
(print zf)
(princ)
)
重慶崽兒 发表于 2014-3-24 22:21 static/image/common/back.gif
总的字的个数的话可以这样：
嘿嘿复制一下上面Z版的一句代码
总的字的个数，并在各个字上标上序号，按从左到右，从上到下的顺序，相同的字一种颜色，不同的字不同的颜色，这个应该才算完整 楼主求了很多程序啊，哈哈，支持下 emk 发表于 2014-3-25 21:32 static/image/common/back.gif
楼主求了很多程序啊，哈哈，支持下
只是个人想的问题多了点，一直在认真学习，只是没有进步，跟在高手后面，确实学习了不少语句用法，相信好多初学者也会一样 品茗新秀 发表于 2014-3-25 22:29 static/image/common/back.gif
只是个人想的问题多了点，一直在认真学习，只是没有进步，跟在高手后面，确实学习了不少语句用法，相信好 ...
记得我第一次看到的LISP源码是三个小程序，分别完成地质钻孔的的钻孔柱状图，每个命令调用一个TXT文件，运行了几次后，觉得要一个钻孔要准备三个数据文件,输入三次命令太麻烦，万一各个命令调用数据文件时弄成别的钻孔的数据文件会完全乱套，于是先把三个数据文件分成三段放在一个文件里，然后开始试着改程序，一边看帮助一边改一边调试，前前后后没日没夜的搞了一星期，楼主接触这个至少快三年了，总不至于一些细节还要要求吧？
页:
[1]