;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 5-17-2004 ;;; Edited: 5-17-2004 (DEFUN C:PNTEL () ;;; (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))) (SETQ ITS IT) (WHILE (AND (NOT (AND (EQ (CDR (ASSOC 2 ITS)) "ELEV") (EQ (CDR (ASSOC 0 ITS)) "ATTRIB") ) ;_ end of AND ) ;_ end of NOT (/= (CDR (ASSOC 0 ITS)) "SEQEND") ) ;_ end of AND (SETQ ITS (ENTGET (ENTNEXT (CDR (ASSOC -1 IT))))) ) ;_ end of WHILE (IF (AND (EQ (CDR (ASSOC 2 ITS)) "ELEV") (EQ (CDR (ASSOC 0 ITS)) "ATTRIB") ) ;_ end of AND (PROGN (SETQ IT (SUBST (CONS 10 (LIST (CADR (ASSOC 10 IT)) (CADDR (ASSOC 10 IT)) (READ (CDR (ASSOC 1 ITS))) ) ;_ end of LIST ) ;_ end of CONS (ASSOC 10 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! ***|;