hi there
i have a problem while typing nt command autocad draw last points ...
Code:(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) )