求当前图层上的文字统计个数，其它图层上的文字不统计

品茗新秀

求当前图层上的文字统计个数，其它图层上的文字不统计

ZZXXQQ

2. (defun c:tt ()
   
3. (sslength (ssget "X" (list '(0 . "*TEXT") (cons 8 (getvar "CLAYER")))))
   
4. )
   

(defun c:tt ()<br /> (sslength (ssget "X" (list '(0 . "*TEXT") (cons 8 (getvar "CLAYER")))))<br /> )<br />

重慶崽兒

ZZXXQQ 发表于 2014-3-24 21:11

Z版牛
不知道楼主是统计字个个数还是字符串的个数........

ysq101

ZZXXQQ 发表于 2014-3-24 21:11

z大就是厉害啊。。。。几句代码就搞定了。。。

重慶崽兒

总的字的个数的话可以这样：
嘿嘿复制一下上面Z版的一句代码

1. (defun c:tt()
   
2.   (setq ss (ssget "X" (list '(0 . "*TEXT") (cons 8 (getvar "CLAYER")))))
   
3.   (setq i 0 zf 0)
   
4.   (repeat (sslength ss)
   
5.     (setq name (ssname ss i))
   
6.     (setq en (cdr (assoc 1 (entget name))))
   
7.     (setq geshu (strlen en))
   
8.     (setq zf (+ zf geshu))
   
9.     (setq i (1+ i))
   
10.   )
    
11.   (print zf)
    
12.   (princ)
    
13. )

(defun c:tt()<br />   (setq ss (ssget "X" (list '(0 . "*TEXT") (cons 8 (getvar "CLAYER")))))<br />   (setq i 0 zf 0)<br />   (repeat (sslength ss)<br />     (setq name (ssname ss i))<br />     (setq en (cdr (assoc 1 (entget name))))<br />     (setq geshu (strlen en))<br />     (setq zf (+ zf geshu))<br />     (setq i (1+ i))<br />   )<br />   (print zf)<br />   (princ)<br /> )

品茗新秀

重慶崽兒 发表于 2014-3-24 22:21
总的字的个数的话可以这样：
嘿嘿复制一下上面Z版的一句代码

总的字的个数，并在各个字上标上序号，按从左到右，从上到下的顺序，相同的字一种颜色，不同的字不同的颜色，这个应该才算完整

emk

楼主求了很多程序啊，哈哈，支持下

品茗新秀

emk 发表于 2014-3-25 21:32
楼主求了很多程序啊，哈哈，支持下

只是个人想的问题多了点，一直在认真学习，只是没有进步，跟在高手后面，确实学习了不少语句用法，相信好多初学者也会一样

llsheng_73

品茗新秀 发表于 2014-3-25 22:29
只是个人想的问题多了点，一直在认真学习，只是没有进步，跟在高手后面，确实学习了不少语句用法，相信好 ...

记得我第一次看到的LISP源码是三个小程序，分别完成地质钻孔的的钻孔柱状图，每个命令调用一个TXT文件，运行了几次后，觉得要一个钻孔要准备三个数据文件,输入三次命令太麻烦，万一各个命令调用数据文件时弄成别的钻孔的数据文件会完全乱套，于是先把三个数据文件分成三段放在一个文件里，然后开始试着改程序，一边看帮助一边改一边调试，前前后后没日没夜的搞了一星期，楼主接触这个至少快三年了，总不至于一些细节还要要求吧？