;;;SET "Z" VALUES OF ANY LINE TO ZERO.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 11-9-93
;;;>		   EDITED: 04-08-1997
;;;
(DEFUN C:NOZ (/) ;ENT1 10A 10B 11A 11B
(SETQ ENT1 (ENTSEL "PICK LINE TO MODIFY"))
(SETQ 10A (ASSOC 10 (ENTGET (CAR ENT1))))
(SETQ 11A (ASSOC 11 (ENTGET (CAR ENT1))))
(SETQ 10B (LIST (CAR 10A)(CADR 10A)(CADDR 10A)0))
(SETQ 11B (LIST (CAR 11A)(CADR 11A)(CADDR 11A)0))
(SETQ ENT1 (ENTGET (CAR ENT1)))
(SETQ ENT1 (SUBST 10B 10A ENT1))
(SETQ ENT1 (SUBST 11B 11A ENT1))
(ENTMOD ENT1)
(PRINC)
);DEFUN NOZ