Interlineado de textos independientes

Buen día señores.

Tengo varios archivos de secciones transversales. Cada sección tiene textos en dos columnas, una de textos y otra con valores que indican la áreas de las figuras. El asunto está en que son varios archivos que trabajaron distintas personas.
Algunas de ellas no estan con espacio constante entre los renglones, otras tienen demasiado espacio.
Hice una rutina para acomodarlos con espacio constante, pero lo hago dando clic en cada texto y pues es muy tardado.
El maestro DEVITG, me ayudó con una rutina, pero encontramos que altera el orden de las columnas y ya no se corresponden los textos con sus valores. Espero haber sido claro. Anexo un archivo que tiene una muestra de los textos. Es sólo una pequeña muestra, puesto que son cientos de columnas.

La intención es acomodar los renglones con espacio constante conservando el orden.

Código:


(defun c:zmueve()
  (command "_undo" "_begin")
  (setq ind 1)
  (setq base(vlax-ename->vla-object(car(entsel "\n Texto Base..."))))
  (Setq ptobase(vlax-safearray->list(vlax-variant-value(vlax-get-property base 'insertionpoint))))
  (setq pto2(polar ptobase(* pi 0)6))  
  (vlax-invoke-method base "move" (vlax-3d-point ptobase)(vlax-3d-point pto2))
  (Setq base2(vlax-safearray->list(vlax-variant-value(vlax-get-property base 'insertionpoint))))
  (setq pto4(polar base2(* pi 1.5)0.35))
  (while(/=(setq mover(car(entsel "\n Texto a Mover...")))nil)
    (setq mover(vlax-ename->vla-object mover))
    (setq pto3(vlax-safearray->list(vlax-variant-value(vlax-get-property mover 'insertionpoint))))
    
    (vlax-invoke-method mover "move" (vlax-3d-point pto3)(vlax-3d-point pto4))    
    (setq pto4(vlax-safearray->list(vlax-variant-value(vlax-get-property mover 'insertionpoint))))
    (setq pto4(polar pto4(* pi 1.5)0.35))
    (setq ind(1+ ind))
    )
;;;  (setq base2 nil ind nil pto2 nil pto3 nil pto4 nil ptobase nil)
  (setq conj(ssget))
  (vl-cmdf "_.move" conj "" "-6,0" "")
  )


Este es el código que hice para acomodarlos, pero como les comento, es muy lento, porque son cientos de columnas...

Aquí está el archivo de muestra.
https://we.tl/t-vwBeeXZkEe

Estos son columnas de muestra:



Gracias