编号建组
本帖最后由 429014673 于 2012-12-3 12:31 编辑图中大量编号，现在需要把这些是相同的编号（单行文字）建立成一个组，希望一次性框选可以完成，单个编号也建组。
比如：
C1 编号的建一个组
C2 编号的建一个组
C3 编号的建一个组
........
(希望能供源码)
以下为附件。
本帖最后由 叮咚 于 2012-12-3 13:26 编辑
(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 于 2012-12-3 12:08 编辑
不一定要重新搞个程序撒。
选择易(过滤，快速选择）都行，选出相同的标号，编组 学习一下。
页:
[1]