;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 11/28/2003
;;;>		   EDITED: 11-28-2003
;;;
(defun c:3dline ()
  (setq nentdef (entget(entnext)))
  (if (eq (cdr(assoc 0 nentdef)) "LINE")
    (pr3dline nentdef)
  )
  (while
    (setq nent (entnext (cdr(assoc -1 nentdef))))
    (setq nentdef (entget nent))
    (if (eq (cdr(assoc 0 nentdef)) "LINE")
      (pr3dline nentdef)
    )
  )
  (princ "\nDone checking for 3D lines. ")
  (princ)
)
(defun pr3dline (x / )
  (if (not(equal (cdddr (assoc 10 x))(cdddr (assoc 11 x))))
    (progn
      (princ "\nLINE on layer ")
      (princ (strcase(cdr(assoc 8 x))))
      (princ " has unequal Z coordinates")
      (princ)
    )
  )
  (princ)
)