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)
)