anchor.diff: -(defun c:1( / info infoString infoStringSize i a b x y xx yy q qq)
  -  ; TODO - Extract all the information on a list with a function
  -  ; TODO - Create a function to process the list above and format it to print it
  -  (princ "\nCheck nested layers:\n")
  +(defun c:1() (c:DNLA))
  +(defun c:DNLA( / info infoString infoStringSize txt)
  +  ; Deep Nested Layer information
     (setq
  -    ;pt (getpoint)
  -    info (NestedEntityNames pt)
  -    i -1
  +    info (NestedEntityNames (getpoint "\nSelect object to see its nested layers:"))
  +    infoString (ChangeEnameForLevel info)
  +    infoStringSize (GetColumnLength infoString)
  +    txt (NL_GetTextFormatted infoString infoStringSize)
     )
  -  (princ "\nNON-FORMAT:")
  -  (foreach a info
  -    (princ "\n")
  -    (foreach b a
  -      (princ "\t")(princ b)
  -      (princ " ")
  -    );END foreach
  -  );END foreach
  -
  -  (princ "\n.\nFORMATED:")
  -  ; Change enames for levels in text format:
  -  (foreach a info
  -    (setq
  -      infoString (append infoString (list (if (< i 0) a (LM:SubstNth (itoa i) 0 a)) ))
  -      infoStringSize (append infoStringSize '((0 0 0 0)))
  -      i (+ i 1)
  -    )
  -  );END foreach
  -
  -  (foreach a infoString
  -    (princ "\n")
  -    (foreach b a
  -      (princ "\t")(princ b)
  -      (princ " ")
  -    );END foreach
  -  );END foreach
  -
  -  ; Measure each field length
  -  (mapcar
  -    '(lambda ( x )
  -      (setq q nil)
  -      (mapcar
  -        '(lambda ( xx yy ) (setq q (append q (list (max (strlen xx) yy)) )) )
  -        x infoStringSize
  -      );END mapcar
  -      (setq infoStringSize q)
  -    );END lambda
  -    infoString ; funcion sobre la que se aplica lambda
  -  );END mapcar
  -
  -  (princ "\ninfoStringSize = ")(princ infoStringSize)
  -
  -  ; TODO Format it correctly ------------------------------------------------- #
  +  (princ txt)
     (princ)
   )
   (defun LM:SubstNth ( a n l / i )
  
positive.code:     );END if
    );END if
  )
  
negative.code:             (setq blockType "BLOCK")
            );END if
          );END if
          (list ent_name blockType blockName (cdr (assoc 8 (entget ent_name))) )
        );END progn
        (list ent_name (cdr (assoc 0 (entget ent_name))) "-" (cdr (assoc 8 (entget ent_name))) )
      );END if
      nil
    );END if
  )
  (defun NestedEntityNames ( pt / ent_name i info )
    ; Returns a list with nested entity names, being the parent first one and deepest child last one
    (if (= 'list (type pt)) ; if point provided, continue
      (if (setq ent_name (nentselp pt)) ; if entity selected, continue
        (progn
          (setq
            i 0
            info (list (list "Level" "Type" "Block name" "Object layer") (EntityInfo (car ent_name)) )
          )
          (if (nth 3 ent_name) ; if any nested entity
            (progn
              (setq nestedLevels (length (nth 3 ent_name)) )
              (foreach x (nth 3 ent_name)
                (setq
                  i (+ i 1)
  