编号要怎么修改才可以款选自动编号呢 谁能完善下呢谢谢

1227588

(defun c:tt ()
        (setq ss (ssget))
        (setq i 0)
        (setq pts nil)
        (repeat (sslength ss)
                (setq pt (cdr (assoc 10 (entget (ssname ss i)))))
                (setq pts (append pts (list pt)))
                (setq i (1+ i))
        )
        (setq pts_y (vl-sort pts '(lambda (x y )(> (cadr x )(cadr y)))))
        (setq y (cadr (car pts_y)))
        (setq i 0 pts_x nil)
        (setq dis 0 pts_xy nil)
        (repeat (length pts_y)
                (setq pts_now (nth i pts_y))
                (if (equal (cadr pts_now ) y dis)
                        (progn (setq pts_x (append pts_x (list pts_now))))
                        (progn (setq pts_xy (append pts_xy (list pts_x)))
                                (setq pts_x (append (list pts_now)))
                                (setq y (cadr pts_now))
                               
                               
                        )
                       
                       
                )
               
                (setq i (1+ i))
        )
        (setq pts_xy (append pts_xy (list pts_x)))
        (print pts_xy)
        (setq i 0 pts_end nil)
        (repeat (length pts_xy)
                (setq pts_end (append pts_end (list (vl-sort (nth i pts_xy ) '(lambda (x y )(< (car x)(car y)))))))
               
       
                (setq i (1+ i))
               
               
        )
       
(setq i 1)
        (repeat (sslength ss)
        (foreach pts pts_end
                (foreach pt pts (command "text" "m" pt "50" "0"  i ))
        )
               
        (setq i(+ i 1))       
)
       
       
        )

664571221

什么意思？？？？？？？

bai2000

框选同时相同的为一个编号，更好