http://cadpanacea.com/node/107
(defun date2sec ()
(setq s (getvar "DATE"))
(setq seconds (* 86400.0 (- s (fix s))))
)
(defun C:test1 ( / i timer endtimer)
(setvar "cmdecho" 1)
(setq i 1 timer (date2sec))
(while (< i 2000)
(command "._line" (list i i 0.0) (list (+ 2 i)(+ 3 i) 0.0) "")
(setq i (1+ i))
)
(setq endtimer (date2sec))
(alert (rtos (- endtimer timer) 2 8))
)
(defun C:test2 ( / i timer endtimer)
(setvar "cmdecho" 0)
(setvar "nomutt" 1)
(setq i 1 timer (date2sec))
(while (< i 2000)
(command "._line" (list i i 0.0) (list (+ 2 i)(+ 3 i) 0.0) "")
(setq i (1+ i))
)
(setq endtimer (date2sec))
(alert (rtos (- endtimer timer) 2 8))
(setvar "cmdecho" 1)
(setvar "nomutt" 0)
)
(defun C:test3 ( / i timer endtimer)
(setq i 1 timer (date2sec))
(while (< i 2000)
(entmake (list
(cons 0 "LINE")
(cons 10 (list i i 0.0))
(cons 11 (list (+ 2 i)(+ 3 i) 0.0))
)
)
(setq i (1+ i))
)
(setq endtimer (date2sec))
(alert (rtos (- endtimer timer) 2 8))
)
(defun C:test4 ( / i timer endtimer)
(vl-load-com)
(setq i 1 timer (date2sec) ms
(vla-get-modelspace
(vla-get-ActiveDocument
(vlax-get-acad-object))))
(while (< i 2000)
(vla-addline ms
(vlax-3d-point (list i i 0.0))
(vlax-3d-point (list (+ 2 i)(+ 3 i) 0.0))
)
(setq i (1+ i))
)
(setq endtimer (date2sec))
(alert (rtos (- endtimer timer) 2 8))
)
(defun C:test5 ( / i timer endtimer)
(vl-load-com)
(setq ms (vla-get-modelspace
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
(setq i 1 timer (date2sec))
(while (< i 2000)
(vla-addline ms
(vlax-3d-point (list i i 0.0))
(vlax-3d-point (list (+ 2 i)(+ 3 i) 0.0))
)
(setq i (1+ i))
)
(setq endtimer (date2sec))
(alert (rtos (- endtimer timer) 2 8))
)