编号建组

429014673

图中大量编号，现在需要把这些是相同的编号（单行文字）建立成一个组，希望一次性框选可以完成，单个编号也建组。

比如：
C1 编号的建一个组
C2 编号的建一个组
C3 编号的建一个组
........



(希望能供源码)
以下为附件。

叮咚

(defun c:bzz()
(setvar "cmdecho" 0)
(vl-cmdf "undo" "be")
(prompt "\n选择文字:")
(setq ss (ssget (list (cons 0 "text"))));最好有个说明
(or ss (setq ss (ssadd)))
(setq n 0 wz-lst nil)
(while (< n (sslength ss))
(setq en (ssname ss n) data (entget en))
(setq txt (cdr (assoc 1 data)))
(if (null (member txt wz-lst))(setq wz-lst (cons txt wz-lst)))
(setq n (1+ n))
)
(setq n 0)
(while (< n (length wz-lst))
(vl-cmdf "select" ss "")
(setq txt (nth n wz-lst) xx (ssget "p" (list (cons 0 "text")(cons 1 txt))))
(vl-cmdf "group" "" txt "" xx "")
(setq n (1+ n))
)
(vl-cmdf "undo" "e")
(setvar "cmdecho" 1)
(princ)
)

yzr2002626

不一定要重新搞个程序撒。
选择易(过滤，快速选择）都行，选出相同的标号，编组

恕放之生命

学习一下。