anchor.diff:        x
       );END progn
     );END if
  -)
  -(defun GetColumnLength ( infoString / q col )
  +
  +  ; 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
  
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:     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
  