[编程申请]：■可否实现以下字符串查找功能■

zhuquanmao · 发表于 2006-5-12 09:33:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

可否编个程序实现以下功能：输入字符串“ABC”后，程序可以在图中查找“ABC-01”，若找不到则返回信息“无ABC-01”，若找n个“ABC-01”后则继续查找“ABC-02”，找不到“ABC-02”则返回“ABC-01共n个”，若找m个“ABC-02”后则继续查找“ABC-03”，找不到“ABC-03”则返回“ABC-01共n个，ABC-02共m个”，依次类推。大家帮出出主意。实在不行，实现以下功能也可：输入字符串“ABC”后，程序可以在图中查找“ABC-01”，若找不到则返回信息“无ABC-01”，若找“ABC-01”后则继续查找“ABC-02”，找不到“ABC-02”则返回“最后一个序号为ABC-01”，若找则继续查找“ABC-03”，找不到“ABC-03”则返回“最后一个序号为ABC-02”，依次类推。

eachy · 发表于 2006-5-12 10:19:15

(defun c:tt (/ pre num i str ss)
(setq pre (getstring "\n输入前缀字符: "))
(setq num (getint "\n输入查找最大数字: "))
(if (and num (/= pre ""))
(progn
(setq i 1)
(repeat num
(if (< i 10)
(setq str (strcat pre "0" (itoa i)))
(setq str (strcat pre (itoa i)))
)
(if (setq ss (ssget "x" (list (cons 1 str))))
(princ
(strcat "\n" str " " "共 " (itoa (sslength ss)) " 个")
)
(princ (strcat "\n无 " str))
)
(setq i (1+ i))
)
)
)
(princ)
)

zhuquanmao · 发表于 2006-5-12 10:26:34

找到后返回类似“最后一个序号为ABC-02”这样的信息就成

eachy · 发表于 2006-5-12 10:51:47

(defun c:tt (/ pre ss ssl i pos num e el str gbnum)
(setq pre (getstring "\n输入前缀字符: "))
(if (and (/= pre "")
(setq
ss (ssget "X"
(list (cons 1
(strcat pre "#," pre
"##," pre "###,"
pre "####," pre
"#####"
)
)
)
)
)
)
(progn
(setq ssl (sslength ss)
i -1
pos (1+ (strlen pre))
)
(repeat ssl
(setq e (ssname ss (setq i (1+ i)))
el (entget e)
str (cdr (assoc 1 el))
num (atoi (substr str pos))
)
(if (not gbnum)
(setq gbnum num)
(if (> num gbnum)
(setq gbnum num)
)
)
)
(if gbnum
(alert (strcat "\n最后一个序号为 " pre (itoa gbnum))))
)
)
(princ)
)

(defun c:tt (/ pre ss ssl i pos num e el str gbnum) 
  (setq pre (getstring "\n输入前缀字符: ")) 
  (if (and (/= pre "") 
           (setq 
             ss        (ssget "X" 
                       (list (cons 1 
                                   (strcat pre           "#,"           pre 
                                           "##,"   pre           "###," 
                                           pre           "####," pre 
                                           "#####" 
                                          ) 
                             ) 
                       ) 
                ) 
           ) 
      ) 
    (progn 
      (setq ssl        (sslength ss) 
            i        -1 
            pos        (1+ (strlen pre)) 
      ) 
      (repeat ssl 
        (setq e          (ssname ss (setq i (1+ i))) 
              el  (entget e) 
              str (cdr (assoc 1 el)) 
              num (atoi (substr str pos)) 
        ) 
        (if (not gbnum) 
          (setq gbnum num) 
          (if (> num gbnum) 
            (setq gbnum num) 
          ) 
        ) 
      ) 
      (if gbnum 
        (alert (strcat "\n最后一个序号为 " pre (itoa gbnum)))) 
    ) 
  ) 
  (princ) 
)

zhuquanmao · 发表于 2006-5-12 11:53:15

eachy高人啊！我已受益于你好多程序了。您可能误解了我的意思我是说输入字符串“ABC”后，程序可以在图中查找“ABC-01”，若找不到则返回信息“无ABC-01”，若找n个“ABC-01”后则继续自动（也就是命令继续执行）查找“ABC-02”，找不到“ABC-02”则返回“ABC-01共n个”，若找m个“ABC-02”后则自动（也就是命令继续执行）继续查找“ABC-03”，找不到“ABC-03”则返回“ABC-01共n个，ABC-02共m个”，依次类推。另外，这两个程序不支持当ABC是数字时的情况，能不能一并解决呢？要求越来越高了。

eachy · 发表于 2006-5-12 12:12:26

这个和图块数量统计是一个道理，以前的帖子有这种代码，前缀要输完全，如 ABC-

(defun c:tt (/ pre ss ssl i pos e el str strlst sl)
(setq pre (getstring "\n输入前缀字符: "))
(if (and (/= pre "")
(setq
ss (ssget "X"
(list (cons 1
(strcat pre "#," pre
"##," pre "###,"
pre "####," pre
"#####"
)
)
)
)
)
)
(progn
(setq ssl (sslength ss)
i -1
pos (1+ (strlen pre))
)
(repeat ssl
(setq e (ssname ss (setq i (1+ i)))
el (entget e)
str (cdr (assoc 1 el))
)
(if (setq sl (assoc str strlst))
(setq strlst (subst (cons str (1+ (cdr sl))) sl strlst))
(if strlst
(setq strlst (append (list (cons str 1)) strlst))
(setq strlst (list (cons str 1)))
)
)
)
(foreach i strlst
(princ (strcat "\n" (car i) " 共 " (itoa (cdr i)) " 个"))
)
)
)
(princ)
)

(defun c:tt (/ pre ss ssl i pos e el str strlst sl) 
  (setq pre (getstring "\n输入前缀字符: ")) 
  (if (and (/= pre "") 
           (setq 
             ss        (ssget "X" 
                       (list (cons 1 
                                   (strcat pre           "#,"           pre 
                                           "##,"   pre           "###," 
                                           pre           "####," pre 
                                           "#####" 
                                          ) 
                             ) 
                       ) 
                ) 
           ) 
      ) 
    (progn 
      (setq ssl        (sslength ss) 
            i        -1 
            pos        (1+ (strlen pre)) 
      ) 
      (repeat ssl 
        (setq e          (ssname ss (setq i (1+ i))) 
              el  (entget e) 
              str (cdr (assoc 1 el)) 
        ) 
        (if (setq sl (assoc str strlst)) 
          (setq strlst (subst (cons str (1+ (cdr sl))) sl strlst)) 
          (if strlst 
            (setq strlst (append (list (cons str 1)) strlst)) 
            (setq strlst (list (cons str 1))) 
          ) 
        ) 
      ) 
      (foreach i strlst 
        (princ (strcat "\n" (car i) " 共 " (itoa (cdr i)) " 个")) 
      ) 
    ) 
  ) 
  (princ) 
)

命令: tt
输入前缀字符: 1
1123 共 1 个
11 共 1 个
101 共 1 个
13699 共 1 个

zhuquanmao · 发表于 2006-5-12 13:47:36

效果巨好，非常感谢！对于属性块儿里面的文字没有办法查找，是吗？

eachy · 发表于 2006-5-12 14:45:29

最初由 madman 发布
[B]效果巨好，非常感谢！对于属性块儿里面的文字没有办法查找，是吗？ [/B]

什么要求？

zhuquanmao · 发表于 2006-5-12 14:52:50

您这个程序对于出现在属性块文字内的满足要求的字符串搜寻不到，是吗？

eachy · 发表于 2006-5-12 22:04:53

最初由 madman 发布
[B]您这个程序对于出现在属性块文字内的满足要求的字符串搜寻不到，是吗？ [/B]

你首先要知道属性是“属于”块的实体，选择只能对父实体，不能直接选择“子实体”，不能选择不代表不能处理。只要有处理条件就可以“搜索”。

zhuquanmao · 发表于 2006-5-12 22:50:22

eachy 您好能不能找个简单的例子说明一下如何搜寻属性块内的文字呢

eachy · 发表于 2006-5-12 23:01:45

最初由 madman 发布
[B]eachy 您好能不能找个简单的例子说明一下如何搜寻属性块内的文字呢 [/B]

首先属性块是可以用 SSGET 选择出来的（如果知道块名就更好办），属于块的属性可以依次取出来。既然定义属性，标签名称应该是和要统计的文字含义有关系的，这样属性才有其意义。

获取属性块的全部属性实体的方法有很多现成的代码。

http://www.google.com/search?q=v ... -CN&newwindow=1

unbos2 · 发表于 2006-5-14 13:40:14

eachy真高人，受益非浅。多谢！

zhuquanmao · 发表于 2006-5-14 18:41:19

请问eachy使用语句(strcat pre"#,"pre"##,"pre"###,"pre"####," pre "#####")是什么作用？似乎这个程序当后缀长了后就不能查到字符串了。这个程序是统计前缀字符串的文字，能否搞个对凡是包括指定字符串的文本的统计程序呢？

eachy · 发表于 2006-5-14 18:55:27

# 匹配任意单个数字， ## 匹配两个数字，依次类推。

包含指定字串的就简单了 "*ABC*" -〉包含ABC 所有的字串

账号		自动登录	找回密码
密码			立即注册

[编程申请]：■可否实现以下字符串查找功能■

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子