anchor.diff:    ; v0.0 - 2017.02.15 - First issue
     ; Author: David Torralban
     ; Last revision: 2017.02.15
  -)
  -(defun c:ShowSet ()
  -  ; Show available setups
  -  (alert
  -    (strcat
  -      "\NAVAILABLE SETUPS\n\n"
  -      "EngSet"  "\tEgineering setup\n"
  -      "WorkSet" "\tWorking Drawings setup\n"
  -      "SetSet"  "\tSetting Out setup\n"
  -      "ModSet"  "\t3D Modelling setup\n"
  -      "\n"
  -    );END strcat
  -  );END alert
  -
  -  ; v0.0 - 2017.02.27 - First issue
  -  ; Author: David Torralban
  -  ; Last revision: 2017.02.27
   )
   (defun DT:SplitLevelDifference (textLevel)
     ; Return a pair list with the level and the difference, both as strings
  
positive.code:   ; Author: David Torralba
    ; Last revision: 2017.03.08
  )
  (defun c:AvailableSets()
  (alert
    "Available sets:\n
        1\tEngSet
        2\tWorkSet
        3\tSetSet
        4\tModSet
        5\tTitSet\n
  ")
    ; v0.0 - 2017.03.08 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.03.08
  )
  (defun DT:CreateWorkingDrawingLayers ()
    ; Create layers for Working Drawings blocks
    (command "-layer" "m" "e-work-services" "c" "9" "" "")
  
negative.code: 	; v0.0 - 2016.03.29 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.03.01
  )
  (defun c:ha45 ()
  	(garden_block_paving "0.45")
  