删除坐标相同文本对象 按照原y坐标排序

;;
;;程序名称：对象水平对齐程序，并且按照竖直方向排列
;;执行命令：tb2
;;程序功能：将选定的对象左对齐，并且按照竖直方向排列。
;;
(defun c:tb2(/ selobjs oldcmdecho) ;定义命令txtal，局部变量selobjs,oldcmdecho;
  (setq oldcmdecho (getvar "cmdecho")) ;oldcmdecho 存储命令回显模式
  (setvar "cmdecho" 0) ;屏蔽提示
  (setq selobjs (ssget ' ((0 . "TEXT,MTEXT")))) ;获取文字对象?todo
  
  (process2 selobjs) ;处理选中的对象；
  (setvar "cmdecho" oldcmdecho) ;设置命令回显模式
  (princ)        ;todo?
)
(defun process2 (selobjs   /     amode     apnt apnt_x
  apnt_y   count     objname   vlaxobj MinPoint
  MaxPoint  minext    maxext    ext_l ext_r
  ext_m   tpnt    ext_y  old_y countp lstp n is_del
  orderlist n1
        ) 
    ;; amode 对齐模式；apnt 对齐点；apnt_x 对齐点x坐标
    ;; apnt_y 对起点y坐标；count 计数器；
    ;; objname 获取图元名称 vlaxobj vla对象名
    ;; ext_y 原来的y坐标； old_y 上一个y坐标
    ;; countp 迁移位置的个数； lstp 所有的x坐标集合
    ;; n lstp 中的一个变量；is_del 是否删除了改对象
  (if (not amode)
    (setq amode "L")
  )
  (initget 1)
  (setq apnt (getpoint "
选择水平对齐方向的对齐点："))
  (setq apnt_x (car apnt)
 apnt_y (cadr apnt)
  )
  (vl-load-com)
  (setq count 0)

  (repeat (sslength selobjs)
    (setq objname (ssname selobjs count)) ;;ssname此函数将返回选择集 ss 中 index 所代表的图元名
    (setq vlaxobj (vlax-ename->vla-object objname))  ;;将 AutoLISP 类型的对象名转换为 VLA 对象
    (setq MinPoint (vlax-make-variant)) 
    (setq MaxPoint (vlax-make-variant))
    (vla-GetBoundingBox vlaxobj 'MinPoint 'MaxPoint)
    (setq minext (vlax-safearray->list MinPoint))
    (setq maxext (vlax-safearray->list MaxPoint))
    (setq ext_y (cadr minext))
    (setq is_del 1)
    (foreach n orderlist 
    (progn  ;看看是否需要删除对象
        (if (> 4 (abs (- n ext_y)));如果4大于间距则进行删除；
            (if (= is_del 1) ;只需要删除一次
                (setq is_del 2)
            )
        )
    )
    )
    (if (=  is_del 1)
    (setq orderlist (cons ext_y orderlist))
    )
    (setq count (1+ count))
  )
  (print "before sort....")
  (print orderlist)
  (setq orderlist (vl-sort orderlist (function (lambda (e1 e2) (< e1 e2)))))
  (print "after sort......")
  (print orderlist)
  (setq count 0)
  (setq countp 0) 
  (setq old_y 0) ;初始化一个值
  (repeat (sslength selobjs)  ;;repeat 此函数可判别每一个 expr 并重复执行 number 所叙述的次数,
    (setq objname (ssname selobjs count)) ;;ssname此函数将返回选择集 ss 中 index 所代表的图元名
    (setq vlaxobj (vlax-ename->vla-object objname))  ;;将 AutoLISP 类型的对象名转换为 VLA 对象
    (setq MinPoint (vlax-make-variant)) 
    (setq MaxPoint (vlax-make-variant))
    (vla-GetBoundingBox vlaxobj 'MinPoint 'MaxPoint)
    (setq minext (vlax-safearray->list MinPoint))
    (setq maxext (vlax-safearray->list MaxPoint))
    (setq ext_l (car minext))
    (setq ext_r (car maxext))
    (setq ext_m (+ (/ (abs (- ext_l ext_r)) 2) ext_l))
    (setq ext_y (cadr minext)) ;获取y坐标
    (cond
      ((= amode "L")
       (setq tpnt (list ext_l apnt_y))
      )
      ((= amode "M")
       (setq tpnt (list ext_m apnt_y))
      )
      ((= amode "R")
       (setq tpnt (list ext_r apnt_y))
      )
    )
    (print old_y)
    (print ext_l)
    (print "=======")
    (setq lstp (cons old_y lstp))
    (print lstp)
    (setq is_del 1)
    (foreach n lstp 
    (progn  ;看看是否需要删除对象
        (if (> 4 (abs (- n ext_y)));如果4大于间距则进行删除；
            (if (= is_del 1) ;只需要删除一次
                (progn 
                (setq is_del 2)
                (command "_erase" objname "") ;删除对象
                (print "delete object")
                )
            )
        )
    )
    )
    (print "++++++++++")
    (print objname)
    (print is_del)
    (setq countp 0)
    (if (=  is_del 1) ;;如果没有删除对象
        (progn  ;移动对象
        (setq tpnt (list ext_l ext_y));设置原来点坐标
        (print tpnt)
            (foreach n1 orderlist
           (progn
               (if (< ext_y n1)
                 (setq countp (1+ countp));获取countp的位移
            )
           )
        )
            (print "countp now is ")
            (print countp)
        (setq apnt (list apnt_x (- apnt_y  (* 550 countp))));设置目标点
        (print apnt)
        (if tpnt 
          (command "_move" objname "" "non" tpnt "non" apnt)
        )
        
        
        ;;(setq countp (1+ countp))
        )
    
    ) ;end if 

    (setq old_y ext_y) ;再一次设置old_y

    (setq count (1+ count))
  )
)