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

lyc3029

(defun findd ( str  / 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",有时运行会出现:
错误: 发生未知意外
; 警告: 忽略展开 未知异常
是怎么回事..谢谢

leeyuan

[php];;;文本替换,Txt_sub.lsp
;;;From xdcad,忘了了哪位兄弟写的
(defun Glisp_upd (ename code #new)
  (setq        inf (subst (cons code #new)
                  (assoc code (entget ename))
                  (entget ename)
           ) ;_ 结束subst
  )
  (entmod inf)
  (entupd ename)
)
;;;
(defun c:Txt_sub (/ ename n neirong new old ss cc)
  (setq Otxt (getstring "\nOriginal text Word....\n"))
  (setq ntxt (getstring "\nSubstitue New text word....\n"))
  (setq        ss (ssget '((0 . "TEXT")))
        n  0
  )
  (mapcar '(lambda (x)
             (setq new (car x)
                   old (cdr x)
             )
             (while (setq ename (ssname ss n))
               (setq neirong (cdr (assoc 1 (entget ename))))
               (if (vl-string-search old neirong)
                 (setq neirong (vl-string-subst new old neirong))
               )
               (setq n (1+ n))
               (Glisp_upd ename 1 neirong)
             )
             (setq n 0)
           )
          (list (cons ntxt otxt))
  )
  (princ)
)
[/php]