(setq ci '(10000 100000))
(vl-load-com)
(defun inax:timer (/ s o)
(if (not inax-s)
(progn
(setq s (getvar "DATE"))
(setq o ""
inax-s (* 86400.0 (- s (fix s)))
)
)
(progn
(setq s (getvar "DATE"))
(setq o (rtos (- (* 86400.0 (- s (fix s))) inax-s) 2 8)
inax-s nil
)
)
)
o
)
(princ (strcat "\n\n"
(getvar "product")
" "
(getvar "acadver")
"\n==========\n"
)
)
(foreach c ci
(princ (strcat (itoa c) " cycles: \n"))
(inax:timer)
(setq m (vla-get-modelspace
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
(repeat c
(vla-addcircle
m
(vlax-3d-point '(0 0))
1
)
)
(princ (strcat (inax:timer) " s\n"))
)
(textscr)
(princ)
Results on my Intel(R) Core(TM) i7-2720QM CPU @ 2.20GHz :
Bricscad 18.0Bricscad
==========
10000 cycles:
0.37400723 s
100000 cycles:
3.68197560 s
AutoCAD 18.0s (LMS Tech)
==========
10000 cycles:
0.88899136 s
100000 cycles:
8.84601921 s
