Author Topic: LISP engine speed  (Read 7287 times)

Vaidas

  • Administrator
  • Full Member
  • *****
    • View Profile
LISP engine speed
« on: 2011-12-01, 11:45:55 »
Code: [Select]
(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

Vaidas

  • Administrator
  • Full Member
  • *****
    • View Profile