anchor.diff:      infoString
     );END mapcar
     txt
  +
  +  ; v0.1 - 2017.09.18 - refactoring
  +  ; v0.0 - 2016.??.?? - First issue
  +  ; Author: David Torralba
  +  ; Last revision: 2017.09.18
  +)
  +(defun DT:CopyNestedLayer ( info / i layerName optionList options ans )
  +  (if (DT:Arg 'DT:CopyNestedLayer '((info 'list)))
  +    (progn
  +      ; Get layer names in a list
  +      (setq i -1)
  +      (foreach item info
  +        (if (> i -1)
  +          (progn
  +            (setq layerName (nth 3 item))
  +            (setq optionList (append optionList (list (list i layerName))))
  +            (setq i (1+ i))
  +          );END progn
  +          (setq i (1+ i))
  +        );END if
  +      );END foreach
  +
  +      ; Create the list of options for the user
  +      (mapcar '(lambda (x) (cond
  +          ((= (car x) 0) (setq options "0"))
  +          ((> (car x) 0) (setq options (strcat options " " (itoa (car x)))))
  +        ))
  +        optionList
  +      );END mapcar
  +
  +      ; Offer the user the list of options:
  +      (initget 0 options)
  +      (if (setq ans (getkword (strcat "\nSelect layer to copy to clipboard [" options "]")))
  +        (progn
  +          (setq ans (atoi ans))
  +          ; Retrieve selected layer and copy it to the clipboard
  +          (mapcar '(lambda (option)
  +            (if (= (car option) ans)
  +              (progn
  +                (CopyToClipboard (nth 1 option))
  +                (princ (strcat "\n >> Copied to clipboard: " (nth 1 option) ))
  +              );END progn
  +            ))
  +            optionList
  +          );END mapcar
  +        );END progn
  +      );END if
  +    );END progn
  +  );END if
  +
  +  ; v0.0 - 2017.09.18 - First issue
  +  ; Author: David Torralba
  +  ; Last revision: 2017.09.18
   )
   (defun c:Convert3DpolyTo2Dpoly ( / old_error old_sysvars iSuccess iFail )
     ; Convert multiple 3Dpolylines to 2Dpolylines
  
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:       x
      );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:GetColumnLength ( infoString / q col )
    ; Return list with the biggest length needed on each column
    (if (= 'list (type infoString))
      (progn
  