马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - (defun c:xdtb_txtsrhsame (/ lst i x)
- (xdrx-begin)
- (xd::doc:getint "\n输入颜色号" "#xd-var-global-color" 1)
- (if (setq ss (xdrx-ssget "\n选择查找的文字<退出>:" '((0 . "*text"))))
- (progn (setq lst (mapcar '(lambda (x)
- (list (xdrx-getpropertyvalue x "textstring") x)
- )
- (xdrx-pickset->ents ss)
- )
- lst (xd::list:groupbyindex lst 1)
- )
- (setq i 0)
- (mapcar '(lambda (x)
- (if (> (length (cdr x)) 1)
- (progn (setq i (1+ i))
- (xdrx-setpropertyvalue
- (cdr x)
- "color"
- #xd-var-global-color
- )
- )
- )
- )
- lst
- )
- (xdrx-prompt "\n共发现 " i " 组相同的文字.")
- )
- )
- (xdrx-end)
- (princ)
- )
|