冰与火之歌 发表于 2014-11-22 14:25:52

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 发表于 2014-11-23 15:51:36

(ssget "x" '((0 . "*dimension") (1 . "~")))
页: [1]
查看完整版本: ssget一次性过滤文本被修改的的标注图元