标注想去公差程序不行

lzg8877

(defun c:BZCG (/ ss i ent entData txt newTxt)
  (princ "\n框选需要去掉内嵌公差的标注: ")
  (setq ss (ssget '((0 . "DIMENSION,TEXT,MTEXT"))))  ; 支持 DIMENSION, TEXT 和 MTEXT
  (if ss
    (progn
      (setq i 0)
      (repeat (sslength ss)
        (setq ent (ssname ss i))  ; 获取选中的对象
        (setq entData (entget ent))  ; 获取对象数据
        (setq txt (cdr (assoc 1 entData)))  ; 获取标注内容
        (if (and txt (or (wcmatch txt "*±*") (wcmatch txt "*+*") (wcmatch txt "* *-*")))  ; 检查是否包含公差符号
          (progn
            ;; 去掉内嵌公差部分
            (setq newTxt (vl-string-trim " ±0123456789+-/" txt))  ; 去掉公差部分
            (setq entData (subst (cons 1 newTxt) (assoc 1 entData) entData))  ; 更新标注内容
            (entmod entData)  ; 更新对象
            (entupd ent)  ; 刷新对象显示
          )
        )
        (setq i (1+ i))
      )
      (princ (strcat "\n已处理 " (itoa (sslength ss)) " 个标注。"))
    )
    (princ "\n未选择任何标注。")
  )
  (princ)
)

zhoupeng220

(wcmatch txt "*-*")?