[编程申请]：申请编一个统计屏幕选定区域特定文字数量的程序

fswind1108

请高手编一个统计屏幕选定区域特定文字数量的程序，r14可用,统计门窗数量用

zxq0220

(DEFUN C:TEST ()
(SSLENGTH (SSGET '((0 . "*TEXT"))))
)

fswind1108

命令提示：
Enter text to find:
[输入：M1 M2 M3 M4......]
Select objects:
[窗选或点选]
Find text M1 M2 M3 M4.... number is

zxq0220

在R14下的运行结果：
Command: test
Select objects: Other corner: 46 found
24 were filtered out.

Select objects:
22

fswind1108

可以连续统计多个文字并在屏幕写出!

zxq0220

2. 
   
3. (DEFUN C:TEST ()
   
4. (WHILE (SETQ SS (SSGET '((0 . "*TEXT"))))
   
5.   (PRINC "\nF‌ind text number is ")
   
6.   (PRINC (SSLENGTH SS))
   
7. )
   
8. (PRINC)
   
9. )
   

<br /> (DEFUN C:TEST ()<br /> (WHILE (SETQ SS (SSGET '((0 . "*TEXT"))))<br />   (PRINC "\nF&#8204;ind text number is ")<br />   (PRINC (SSLENGTH SS))<br /> )<br /> (PRINC)<br /> )<br />

fswind1108

谢谢了！我的想法是智能选取，分别列出各个文字的数量

ganok

用法：同时加载2个文件，然后命令tcc。R14下应该可以用，但没有试过。

coolzhb

用文字修改大师试试！

fswind1108

文字修改大师里的统计功能正是我所希望的，谢谢各位热心同志!

文影

奇怪了！为什么不用CAD的FIND命令呢？我统计门窗都是使用它来框选的，又快又准！