(DEFUN C:PTNOS ()
  (IF uint nil (LOAD "uint" "File UINT.LSP not loaded! "))
  (SETQ pntadjv (uint 1 "" "Value to add to point numbers " ptincr))
  (SETQ sscnt 0)
  (SETQ SS (SSGET "X" '((2 . "POINT"))))
  (WHILE (< SSCNT (SSLENGTH SS))
    (SETQ IT (ENTGET (SSNAME SS SSCNT)))
    (WHILE
      (AND
	(NOT
	  (AND
	    (EQ (CDR (ASSOC 2 IT)) "POINT")
	    (EQ (CDR (ASSOC 0 IT)) "ATTRIB")
	  ) ;_ end of AND
	) ;_ end of NOT
	(/= (CDR (ASSOC 0 IT)) "SEQEND")
      ) ;_ end of AND
       (SETQ IT (ENTGET (ENTNEXT (CDR(ASSOC -1 IT)))))
    ) ;_ end of WHILE
    (IF
      (AND
	(EQ (CDR (ASSOC 2 IT)) "POINT")
	(EQ (CDR (ASSOC 0 IT)) "ATTRIB")
      ) ;_ end of AND
       (PROGN
	 (SETQ
	   IT (SUBST (CONS 1 (ITOA (+ pntadjv (READ (CDR (ASSOC 1 IT))))))
		     (ASSOC 1 IT)
		     IT
	      ) ;_ end of SUBST
	 ) ;_ end of SETQ
         (ENTMOD IT)
         (PRINC "\nModified point no. ")
         (PRINC (CDR (ASSOC 1 IT)))
         (PRINC)
       ) ;_ end of PROGN
    ) ;_ end of IF
    (SETQ SSCNT	(1+
		  SSCNT
		) ;_ end of 1+
    ) ;_ end of SETQ
  ) ;_ end of WHILE
  (PRINC)
) ;_ end of DEFUN

(DEFUN C:PTELEV ()
  (IF ureal nil (LOAD "ureal" "File UREAL.LSP not loaded! "))
  (SETQ elevadjv (ureal 1 "" "Value to add to point numbers " ptincr))
  (SETQ sscnt 0)
  (SETQ SS (SSGET "X" '((2 . "POINT"))))
  (WHILE (< SSCNT (SSLENGTH SS))
    (SETQ IT (ENTGET (SSNAME SS SSCNT)))
    (WHILE
      (AND
	(NOT
	  (AND
	    (EQ (CDR (ASSOC 2 IT)) "ELEV")
	    (EQ (CDR (ASSOC 0 IT)) "ATTRIB")
	  ) ;_ end of AND
	) ;_ end of NOT
	(/= (CDR (ASSOC 0 IT)) "SEQEND")
      ) ;_ end of AND
       (SETQ IT (ENTGET (ENTNEXT (CDR(ASSOC -1 IT)))))
    ) ;_ end of WHILE
    (IF
      (AND
	(EQ (CDR (ASSOC 2 IT)) "ELEV")
	(EQ (CDR (ASSOC 0 IT)) "ATTRIB")
      ) ;_ end of AND
       (PROGN
	 (SETQ
	   IT (SUBST (CONS 1 (RTOS (+ elevadjv (READ(CDR (ASSOC 1 IT))))2 2))
		     (ASSOC 1 IT)
		     IT
	      ) ;_ end of SUBST
	 ) ;_ end of SETQ
         (ENTMOD IT)
         (PRINC "\nModified elev. ")
         (PRINC (CDR (ASSOC 1 IT)))
         (PRINC)
       ) ;_ end of PROGN
    ) ;_ end of IF
    (SETQ SSCNT	(1+
		  SSCNT
		) ;_ end of 1+
    ) ;_ end of SETQ
  ) ;_ end of WHILE
  (PRINC)
) ;_ end of DEFUN


;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;