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