[求助]：请大家帮忙看看

lyc3029

(defun findd ( strs  / out  k )
;; (setq strs "aabbcc")(假设)
  (if (= (type strs) 'STR)
    (progn
      (if (wcmatch strs "*bb*")
        (progn
          (setq k (strlen strs))
          (while (= (wcmatch (substr strs k) "bb*") nil)
            (setq k (- k 1))
          )
          (setq out (substr strs 1 (- k 1))
                out (strcat out (substr strs (+ k 2)))
          )
        )
        (setq out strs)
      )
    )
    (setq out nil)
  )
out
  )
此程序为一个程序的子程序,作用是为了去掉字符串的"bb",在CAD07之后的版本运行常会出现错误:
发生未知意外
; 警告: 忽略展开 未知异常
是什么回事啊?
要不请各位帮我重编一个可以实现这个功能的试试,谢谢

eachy

用 vl-string-subst 或者 vl-remove + vl-string->list

lyc3029

谢谢eachy,上述那个错误原因,是因什么引起的啊,是变量问题还是什么?还是CAD的BUG,06以前的CAD是没有问题的
(defun C:findd ( / out k nam2l 　nam2 　sn)
  (setq nam2 "aabbcc")
  (if (= (type nam2) 'STR)
    (progn
      (setq nam2l (vl-string->list nam2))
      (setq sn (vl-string->list "bb"))
      (vl-remove sn  nam2l)
      (setq out (vl-list->string  nam2l))
      )      
    (setq out nil)
  )
  (princ out)
(princ)
  )
我想通过删除表内元素达到目的，但是有问题，哪个好人帮我看看