anchor.diff:      ang (angle p1 p2)
       i 0
     )
  -  
  +
     (while (< i (sslength ss))
       (setq
         ent (ssname ss i)
  
positive.code:     (setvar "cmdecho" oldcmdecho)
      (princ)
    )
    
    ; SAVE "osmode" and "cmdecho"
    (setq oldosmode (getvar "osmode"))
    (setq oldcmdecho (getvar "cmdecho"))
    
    ; CHANGE "osmode" and "cmdecho"
    (setvar "osmode" 512)
    (setvar "cmdecho" 0)
    
    (setq
      ss (ssget)
      p1 (getpoint "\nSelect point 1: ")
  
negative.code:     (entmod entList)
      (setq i (+ i 1))
    ); END while
  
    ; RESET to original "osmode" and "cmdecho".
    (setvar "osmode" oldosmode)
    (setvar "cmdecho" oldcmdecho)
    (princ)
  
    ; v0.0 - 2016.03.15 - First issue
    ; Author: David Torralba
    ; Last revision: 2016.03.15
  )
  