求一个代码，文字分组

wgij007 · 发表于 2020-11-23 08:30

功能，只有一个的是一个色，两个的是一个色，相同数量不一样色也不一样,有明确区分也可。谢谢。

start4444 · 发表于 2020-11-23 12:33

试试``

wgij007 · 发表于 2020-11-23 13:30

start4444 发表于 2020-11-23 12:33
试试``

也差不多了，但我要的是只要有2个相同的是一种色（不管有多少组都是一种色），3个相同的是一种色。如果能做到，变色后可以看图，按ESC还原最好了，不能就算了，

wgij007 · 发表于 2020-11-23 13:47

先选择1组，再选择权组，如有相同的变色，也是2个相同的一种色，（不管有多少组），3个的也一种色。没有相同的不变。达到要求，可另外支付5个币。

start4444 · 发表于 2020-11-23 14:20

wgij007 发表于 2020-11-23 13:47
先选择1组，再选择权组，如有相同的变色，也是2个相同的一种色，（不管有多少组），3个的也一种色。没有相 ...

为什么要分开选，一次全选结果一样的吧

lijiao · 发表于 2020-11-23 17:21

(defun c:tt5 ( / 62DXF ENTDXF I J OSTR OUT SS)
(if (setq ss (ssget "x" (list '(0 . "*text")
(cons 410 (getvar "ctab"))
)
)
)
(progn
(setq i -1 out '())
(repeat (sslength ss)
(setq ostr (cdr (assoc 1 (entget (ssname ss (setq i (1+ i)))))))
(or (member ostr out) (setq out (cons ostr out)))
)
(setq j 0)
(foreach ostr out
(setq ss (ssget "x" (list '(0 . "*text")
(cons 1 ostr)
(cons 410 (getvar "ctab"))
)
)
)
(setq i -1 j (1+ j))
(repeat (sslength ss)
(setq entdxf (entget (ssname ss (setq i (1+ i)))))
(if (setq 62dxf (assoc 62 entdxf))
(entmod (subst (cons 62 j) 62dxf entdxf))
(entmod (cons (cons 62 j) entdxf ))
)
)
)
)
)
(princ)
)
(defun c:tt6 ( / 62DXF ENTDXF I SS)
(setq i -1)
(if (setq ss (ssget "x" (list '(0 . "*text")
(cons 410 (getvar "ctab"))
)
)
)
(repeat (sslength ss)
(setq entdxf (entget (ssname ss (setq i (1+ i)))))
(and (setq 62dxf (assoc 62 entdxf))
(entmod (subst (cons 62 256) 62dxf entdxf))
)
)
)
(princ)
)

(defun c:tt5 ( / 62DXF ENTDXF I J OSTR OUT SS) 
  (if (setq ss (ssget "x" (list '(0 . "*text") 
                                (cons 410 (getvar "ctab")) 
                                ) 
                      ) 
            ) 
    (progn 
      (setq i -1 out '()) 
      (repeat (sslength ss) 
        (setq ostr (cdr (assoc 1 (entget (ssname ss (setq i (1+ i))))))) 
        (or (member ostr out) (setq out (cons ostr out))) 
        ) 
      (setq j 0) 
      (foreach ostr out 
        (setq ss (ssget "x" (list '(0 . "*text") 
                                  (cons 1 ostr) 
                                (cons 410 (getvar "ctab")) 
                                ) 
                      ) 
              ) 
        (setq i -1 j (1+ j)) 
        (repeat (sslength ss) 
          (setq entdxf (entget (ssname ss (setq i (1+ i))))) 
          (if (setq 62dxf (assoc 62 entdxf)) 
            (entmod (subst (cons 62 j) 62dxf entdxf)) 
            (entmod (cons (cons 62 j) entdxf )) 
            ) 
          ) 
        ) 
      ) 
    ) 
  (princ) 
  ) 
(defun c:tt6 ( / 62DXF ENTDXF I SS) 
      (setq i -1) 
  (if (setq ss (ssget "x" (list '(0 . "*text") 
                                (cons 410 (getvar "ctab")) 
                                ) 
                      ) 
            ) 
    (repeat (sslength ss) 
      (setq entdxf (entget (ssname ss (setq i (1+ i))))) 
      (and (setq 62dxf (assoc 62 entdxf)) 
            (entmod (subst (cons 62 256) 62dxf entdxf)) 
            ) 
          ) 
        ) 
  (princ) 
    )

wgij007 · 发表于 2020-11-23 18:00

lijiao 发表于 2020-11-23 17:21

运行没反应呀

wgij007 · 发表于 2020-11-23 18:01

start4444 发表于 2020-11-23 14:20
为什么要分开选，一次全选结果一样的吧

因为左边可能用很多一样的，主要比较左右两组有没有相同的

wgij007 · 发表于 2020-11-23 23:03

如果改成这样是不是简单点，1组和2组只有完全匹配的才变色。

wgij007 · 发表于 2020-11-24 13:31

顶一下

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

[提问] 求一个代码，文字分组

点评

本帖子中包含更多资源

本帖子中包含更多资源