have been a while.... don't know if say something, but was able to play with very simple coding, and doing some minor changes to the code (ok no erase of the points so, no idea if this counts, but was fun)
;; < Elapsed time: 1.703000 seconds. >
;; < Elapsed time: 2.454000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i 0)
;;; (while (< i (sslength ss))
;;; (setq pt (cdr (assoc 10 (entget (ssname ss i)))))
;;; (entmake
;;; (list '(0 . "CIRCLE")
;;; '(100 . "AcDbEntity")
;;; '(67 . 0)
;;; '(410 . "Model")
;;; '(8 . "0")
;;; '(100 . "AcDbCircle")
;;; (cons 10 pt)
;;; '(40 . 1.0)
;;; '(210 0.0 0.0 1.0)))
;;; (setq i (1+ i))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )
;; < Elapsed time: 2.016000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i 0)
;;; (while (< i (sslength ss))
;;; (setq pt (cdr (assoc 10 (entget (ssname ss i)))))
;;; (entmake
;;; (list '(0 . "CIRCLE")
;;; ;;'(100 . "AcDbEntity")
;;; ;;'(67 . 0)
;;; ;;'(410 . "Model")
;;; ;;'(8 . "0")
;;; '(100 . "AcDbCircle")
;;; (cons 10 pt)
;;; '(40 . 1.0)
;;; ;;'(210 0.0 0.0 1.0)
;;; ))
;;; (setq i (1+ i))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )
;; < Elapsed time: 1.938000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i 0)
;;; (while (< i (sslength ss))
;;; (setq pt (cdr (assoc 10 (entget (ssname ss i)))))
;;; (entmakex
;;; (list '(0 . "CIRCLE")
;;; '(100 . "AcDbCircle")
;;; (cons 10 pt)
;;; '(40 . 1.0)
;;; ))
;;; (setq i (1+ i))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )
;; < Elapsed time: 1.890000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i 0)
;;; (setq num (sslength ss))
;;; (while (< i num) ;;(< i (sslength ss))
;;; (setq pt (cdr (assoc 10 (entget (ssname ss i)))))
;;; (entmakex
;;; (list '(0 . "CIRCLE")
;;; '(100 . "AcDbCircle")
;;; (cons 10 pt)
;;; '(40 . 1.0)
;;; ))
;;; (setq i (1+ i))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )
;; < Elapsed time: 1.953000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i 0)
;;; (setq num (sslength ss))
;;; (while (< i num)
;;; (setq ename (ssname ss i))
;;; (setq lst (entget ename))
;;; (setq pt (cdr (assoc 10 lst)))
;;; (entmakex
;;; (list '(0 . "CIRCLE")
;;; '(100 . "AcDbCircle")
;;; (cons 10 pt)
;;; '(40 . 1.0)
;;; ))
;;; (setq i (1+ i))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )
;; < Elapsed time: 1.860000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i 0)
;;; (setq num (sslength ss))
;;; (repeat num
;;; (setq pt (cdr (assoc 10 (entget (ssname ss i)))))
;;; (entmakex
;;; (list '(0 . "CIRCLE")
;;; '(100 . "AcDbCircle")
;;; (cons 10 pt)
;;; '(40 . 1.0)
;;; ))
;;; (setq i (1+ i))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )
;; < Elapsed time: 1.859000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i 0)
;;; (setq num (sslength ss))
;;; (repeat num
;;; ;;(setq pt (cdr (assoc 10 (entget (ssname ss i)))))
;;; (entmakex
;;; (list '(0 . "CIRCLE")
;;; '(100 . "AcDbCircle")
;;; (cons 10 (cdr (assoc 10 (entget (ssname ss i)))))
;;; '(40 . 1.0)
;;; ))
;;; (setq i (1+ i))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )
;; < Elapsed time: 1.765000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i 0)
;;; (setq num (sslength ss))
;;; (repeat num
;;; (entmakex
;;; (list (cons 0 "CIRCLE")
;;; (cons 100 "AcDbCircle")
;;; (cons 10 (cdr (assoc 10 (entget (ssname ss i)))))
;;; (cons 40 1.0)
;;; ))
;;; (setq i (1+ i))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )
;; < Elapsed time: 1.703000 seconds. >
(defun C:TST (/ ss i pt)
(setq *time* (getvar 'millisecs))
(if (setq ss (ssget "x" '((0 . "point"))))
(progn
(setq i -1)
(setq num (sslength ss))
(repeat num
(entmakex
(list (cons 0 "CIRCLE")
(cons 100 "AcDbCircle")
(cons 10 (cdr (assoc 10 (entget (ssname ss (setq i (1+ i)))))))
(cons 40 1.0)))
)
))
(princ
(strcat "\n < Elapsed time: "
(rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
" seconds. > "
)
)
(princ)
)
;; < Elapsed time: 1.734000 seconds. >
;;;(defun C:TST (/ ss i pt)
;;; (setq *time* (getvar 'millisecs))
;;; (if (setq ss (ssget "x" '((0 . "point"))))
;;; (progn
;;; (setq i -1 num (sslength ss))
;;; (repeat num
;;; (entmakex
;;; (list (cons 0 "CIRCLE")
;;; (cons 100 "AcDbCircle")
;;; (cons 10 (cdr (assoc 10 (entget (ssname ss (setq i (1+ i)))))))
;;; (cons 40 1.0)
;;; ))
;;; )
;;; ))
;;; (princ
;;; (strcat "\n < Elapsed time: "
;;; (rtos (/ (- (getvar 'millisecs) *time*) 1000.0) 2 6)
;;; " seconds. > "
;;; )
;;; )
;;; (princ)
;;; )