anchor.diff:      );END if
       nil
     );END if
  -)
  -(defun NestedEntityNames ( pt / ent_name i info )
  +
  +  ; v0.1 - 2017.09.18 - refactoring
  +  ; v0.0 - 2016.??.?? - First issue
  +  ; Author: David Torralba
  +  ; Last revision: 2017.09.18
  +)
  +(defun DT:NestedEntityNames ( ename / 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)
  -                info (append info (list (EntityInfo x)))
  -              )
  -            );END foreach
  -          );END progn
  -        );END if
  -        info
  -      );END progn
  -    );END if
  -  );END if
  -)
  -(defun ChangeEnameForLevel ( info / i x )
  +  (if (DT:Arg 'DT:NestedEntityNames '((ename 'list)))
  +    (progn
  +      (setq
  +        i 0
  +        info (list (list "Level" "Type" "Block name" "Object layer") (DT:EntityInfo (car ename)) )
  +      )
  +      (if (nth 3 ename) ; if any nested entity
  +        (progn
  +          (setq nestedLevels (length (nth 3 ename)) )
  +          (foreach x (nth 3 ename)
  +            (setq
  +              i (+ i 1)
  +              info (append info (list (DT:EntityInfo x)))
  +            )
  +          );END foreach
  +        );END progn
  +      );END if
  +      info
  +    );END progn
  +  );END if
  +
  +  ; v0.1 - 2017.09.18 - refactoring
  +  ; v0.0 - 2016.??.?? - First issue
  +  ; Author: David Torralba
  +  ; Last revision: 2017.09.18
  +)
  +(defun DT:ChangeEnameForLevel ( info / i x )
     ; Return info replacing ename for level
     (if (= 'list (type info))
       (progn
  
positive.code:         (progn
            (setq
              ; Get column width: measure the nth element of each row and get the maximum
              maxColumnLength (GetColumnLength lst)
              ; Get list values as a table formated string
              stringTable (NL_GetTextFormatted lst maxColumnLength)
            )
          );END progn
          (progn (princ "\nERROR @ DT:ListToTable > lst doesn't have table format\n") nil)
  
negative.code:       col
      );END progn
    );END if
  
    ; v0.1 - 2017.09.18 - refactoring
    ; v0.0 - 2016.??.?? - First issue
    ; Author: David Torralba
    ; Last revision: 2017.09.18
  )
  (defun DT:NL_GetTextFormatted ( infoString infoStringSize / txt s )
    ; Format text correctly and concatenate it
    (setq txt "\n")
    (mapcar
  