Change command in lisp not working

[jsaayman]

I have created a lisp to change the elevation of a selected point, but I can't seem to pass the variable to the change command in my lisp

Please help

(defun c:chpt ( / newel s  )
  (if (setq s (entsel "\Select point to change"))
    	(setq newel (getreal "\nEnter new elevation: "))
	(COMMAND "CHANGE" s "" "P" "E" newel "")
     )
   (princ)
  )

[dbhunia · Accepted solution]

It should be something like this.....

(defun c:chpt ( / newel s  )
  (if (setq s (car(entsel "\Select point to change")))
	(progn
    	(setq newel (getreal "\nEnter new elevation: "))
	(COMMAND "CHANGE" s "" "P" "E" newel "")
	)
  )
(princ)
)

[ВeekeeCZ]

This way it allows you pre-selection one or more points.

(defun c:chpt ( / s e)
  (if (and (or (setq s (ssget "_I"))
               (setq s (car (entsel "\nSelect point to set elevation: "))))
           (setq e (getreal "\nNew elevation: "))
           )
    (command "_.CHANGE" s "" "_Properties" "_Elevation" e ""))
  (princ)
  )