有关查找问题

戏男

(defun c:TS(/ aa ss  n)

(setq aa(getstring"\n请输入文本:"))


(setq ss (ssget "X" (list  '(0 . "TEXT,MTEXT") (cons 1 aa) )))



(if(= ss nil)

(progn
(princ "\n无对应文字")
)

(progn
  (sssetfirst nil ss)

(setq n (sslength ss))

(princ (strcat "\n共选定" (itoa n) "个文字对象"))
  )

  )

(setq ss nil)

(prin1)
)



大师帮我改一下嘛，查找字符的时侯，不区分大小写，比如我要查找：dw21193,那图上的三处包含这个字符

竹天

2. ;---计算以"kW"(不分大小写)结尾的数字之和---
   
3. (defun C:sump                                                ;声明命令名称--sump
   
4.         (/ S_list sl i sum n str)                                ;声明局部变量
   
5.         (setq S_list (ssget '((0 . "*TEXT")                        ;限定被选择的对象为：文字(包括多行文字和天正文字)
   
6.                                     (1 . "*#kW,*#KW,*#kw,*#Kw"))));限定被选择的对象为：内容为数字加“kW”(不分大小写)结尾
   
7.         (setq sl (sslength S_list))                                ;读取选择集中的对象个数
   
8.         (setq i 0)                                                ;将循环标记设置为0
   
9.         (setq SUM 0)                                        ;将求和结果设置为0
   
10.         (while (< i sl)                                        ;开始循环
    
11.                 (setq n (ssname S_list i))                        ;取出选择集中第i个文字的对象名称
    
12.                 (setq str (cdr (assoc 1 (entget n))))                ;提取当前文字的内容
    
13.                 (setq SUM (+ SUM (atof str)))                        ;累加
    
14.                 (setq i (1+ i)))                                ;更新循环标志
    
15.         (princ "\n功率总和为：")                                ;提示将要输出的内容
    
16.         (princ SUM)                                                ;输出求和结果        
    
17.         (princ "kW")                                        ;输出单位        
    
18.         (prin1)
    
19. )

;---计算以"kW"(不分大小写)结尾的数字之和---<br /> (defun C:sump                                                ;声明命令名称--sump<br />         (/ S_list sl i sum n str)                                ;声明局部变量<br />         (setq S_list (ssget '((0 . "*TEXT")                        ;限定被选择的对象为：文字(包括多行文字和天正文字)<br />                                     (1 . "*#kW,*#KW,*#kw,*#Kw"))));限定被选择的对象为：内容为数字加“kW”(不分大小写)结尾<br />         (setq sl (sslength S_list))                                ;读取选择集中的对象个数<br />         (setq i 0)                                                ;将循环标记设置为0<br />         (setq SUM 0)                                        ;将求和结果设置为0<br />         (while (< i sl)                                        ;开始循环<br />                 (setq n (ssname S_list i))                        ;取出选择集中第i个文字的对象名称<br />                 (setq str (cdr (assoc 1 (entget n))))                ;提取当前文字的内容<br />                 (setq SUM (+ SUM (atof str)))                        ;累加<br />                 (setq i (1+ i)))                                ;更新循环标志<br />         (princ "\n功率总和为：")                                ;提示将要输出的内容<br />         (princ SUM)                                                ;输出求和结果        <br />         (princ "kW")                                        ;输出单位        <br />         (prin1)<br /> )

可以参考下这个，了解下通配符*
“A*”：前缀为A；“*A”：后缀为A；“*A*”：包含A；

戏男

谢谢大师

戏男

不会用你这个呀？能帮我加到我的那个里面嘛？

戏男

竹天 发表于 2021-9-30 09:26
可以参考下这个，了解下通配符*
“A*”：前缀为A；“*A”：后缀为A；“*A*”：包含A；

在吗？大神

竹天

2. (defun C:dwf;声明命令名称--dwf
   
3.   (/ S_list sl i sum n str);声明局部变量
   
4.   (setq S_list (ssget '((0 . "*TEXT");限定被选择的对象为：文字(包括多行文字和天正文字)
   
5.                         (1 . "*dw21193*,*DW21193*,*dW21193*,*Dw21193*"))));限定内容：包含“dw21193”(不分大小写)
   
6.   (setq sl (sslength S_list));读取选择集中的对象个数
   
7.   (princ "\n包含“dw21193”(不分大小写)的文字共有：");提示将要输出的内容
   
8.   (princ sl);输出总数
   
9.   (princ "处")
   
10.   (prin1)
    
11. )
    

(defun C:dwf;声明命令名称--dwf<br />   (/ S_list sl i sum n str);声明局部变量<br />   (setq S_list (ssget '((0 . "*TEXT");限定被选择的对象为：文字(包括多行文字和天正文字)<br />                         (1 . "*dw21193*,*DW21193*,*dW21193*,*Dw21193*"))));限定内容：包含“dw21193”(不分大小写)<br />   (setq sl (sslength S_list));读取选择集中的对象个数<br />   (princ "\n包含“dw21193”(不分大小写)的文字共有：");提示将要输出的内容<br />   (princ sl);输出总数<br />   (princ "处")<br />   (prin1)<br /> )<br />

试试这个，前一段时间论坛登不上也一直在忙，大神大师不敢当，我就一刚入门的小白，相互学习吧

戏男

竹天 发表于 2021-11-15 15:20
试试这个，前一段时间论坛登不上也一直在忙，大神大师不敢当，我就一刚入门的小白，相互学习吧

我试下，谢谢您