How to Delete points which dont have elevation

[Anonymous]

I have Huge data around 60,000 points which has X,Y,Z (Elevation)  but some of the points dont have elevation. or else i need to fix those points is it possible to do it VBA

[marko_ribar]

I wrote it in Vanilla AutoLISP... If I understood your request correctly...

(defun c:deleatezeroelevpoints ( / s k i e )
  (prompt "\nSelect point entities on unlocked layer(s)...")
  (setq s (ssget "_:L" '((0 . "POINT"))))
  (setq k 0)
  (repeat (setq i (sslength s))
    (setq e (ssname s (setq i (1- i))))
    (if (equal (caddr (cdr (assoc 10 (entget e)))) 0.0 1e-8)
      (progn
        (entdel e)
        (setq k (1+ k))
      )
    )
  )
  (prompt "\nTotal : ") (princ k) (prompt " points with zero elevation deleted...")
  (princ)
)

M.R.

[Kent1Cooper · Accepted solution]

Those at zero elevation can be found without any code, using QSELECT: