ssget一次性过滤文本被修改的的标注图元

冰与火之歌

(defun c:tt()
  (redraw)
  (if (setq ss (ssget "x" '((0 . "*dimension") (1 . "*?*"))))
        (progn
          (setq i 0)
          (repeat (sslength ss)
                (redraw (ssname ss i) 3)
                (setq i (1+ i))
                )
          )
        )
  (princ)
  )

关于"" 的测试
;(wcmatch "" "*?*") nil
;(wcmatch "" "~*?*") T
;(wcmatch "1" "~*?*") nil
;(wcmatch " " "~*?*") nil

wowan3344

(ssget "x" '((0 . "*dimension") (1 . "~")))