anchor.diff:  	(princ (strcat "\nRequested gradient: 1/" (LM:rtos SDIPgradient 2 0) "\n"))
   
   	; Ask user to select private manhole label to be updated:
  +  (setvar "osmode" 0)
   	(setq
       targetPoint (getpoint (strcat "\nLevel = " (LM:rtos (nth 2 p2) 2 2) "m\nSelect target: "))
     )
  
positive.code: 		gradient	; Real gradient
  	);END list
  
    ; v0.2 - 2017.01.30 - Gradient to absolute value
    ; v0.1 - 2017.01.28 - DT:ChangePrivateSewerGradient implementation
    ;                   - Code anotation and tidy up
  	;										- CommandLine messages suppressed
    ; v0.0 - 2017.01.23 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.01.30
  )
  (defun c:garden_gradient (
                            /
  
negative.code:   "))
    (princ "\nENGINEERING SETUP COMPLETED")(princ)
  
    ; v0.3 - 2017.03.10 - Change Private Sewer Gradient added
    ; v0.2 - 2017.03.09 - scale management added to c:ra
    ; v0.1 - 2017.02.21 - Cheatsheet added
    ; v0.0 - 2017.01.29 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.03.10
  )
  (defun c:WorkSet ()
    ; Working Drawing setup
  