查找相同字符串并变红色

yn1985321 · 发表于 2014-5-24 10:21:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;相同串变红色
(defun c:xv ()
(setvar "CMDECHO" 0)
(if (setq sst (getstring "\n要查找字串 :"))
  (if (setq ss (ssget "X" (list '(0 . "TEXT") (cons 1 sst))))
(command "chprop" ss "" "c" 1 "")
  )
)
(setvar "CMDECHO" 1)
(princ)
)

st788796 · 发表于 2014-5-24 11:05:14

再进一步改为通过拾取字串

/db_自贡黄明儒_ · 发表于 2014-5-24 11:13:52

st788796 发表于 2014-5-24 11:05
再进一步改为通过拾取字串

对头，LZ输入字符串，那多麻烦呀！

yxianfo · 发表于 2014-6-3 09:14:05

楼上的建议很好，符合CAD的实际操作，还望能者完善一下。

xvjiex · 发表于 2021-6-21 00:24:56

感谢分享找相同字符串并变红色

账号		自动登录	找回密码
密码			立即注册

[每日一码] 查找相同字符串并变红色

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评