【文字】找相同字

marting · 发表于 2020-7-8 00:06:37

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

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

×

(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)
)

(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) 
)

音河之声 · 发表于 2020-7-8 09:26:40

感谢楼主分享！！！

453055586 · 发表于 2022-3-25 12:53:15

谢大师的大作，下载来学习下

sandyvs · 发表于 2022-7-18 23:43:40

不错不错，赞一个

jzf1987 · 发表于 2022-8-25 11:17:09

不错不错不错，赞一个!!!!

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

[文字] 【文字】找相同字

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