; error: bad function: (5136.4 1645.08 0.0)

[kkarbasian2021]

hi there
i have a problem while typing nt command autocad draw last points ...

(defun cdrs (key lst / pair rtn)
  (while (setq pair (assoc key lst))
    (setq rtn (cons (cdr pair) rtn)
	  lst (cdr (member pair lst))
    )
  )
  (reverse rtn)
)
;;;***********************************************************************************
(defun c:pp ()
  (setq r (getdist "\nSpecify radius of circles: "))
  (setq s (entsel "\nSelect Polyline: "))
  (setq point (cdrs 10 (entget (car s))))
  (setq polen (length point))
  (foreach x point (command "point" x))
  (foreach x point (command "circle" x r))
					;(setq polenst (itoa polen))

  ;;(alert (strcat "number of points is: " polenst))
  ;;(princ)
)
(defun c:nt ()
    (setq ss (ssget))
  (setq sn (entget (ssname ss 0)))
  (setq nameobj (cdr (assoc 0 sn)))
  (if (= nameobj "LWPOLYLINE")
    ((setq point (cdrs 10 (entget (car ss))))
      (setq polen (length point))
      (foreach x point (command "point" x))
    )
    ((setq start (cdr (assoc 10 sn))
	   end	 (cdr (assoc 11 sn))
     )
     (setq plist (list start end))
     (foreach x plist (command "point" x))
    )
  )
  (princ nameobj)
  (princ)
)