Entmake Functions

[Kerry Brown]

Unless you are drawing thousands of entitys the difference between entmake and VL is not that much.

just for info, the panacea link forgot about (vlax-invoke ... which does NOT require lists being converted to vlax-3D-Points (see Test14)

For instance, try these

(defun date->sec (/ s)
  (setq s (getvar "DATE"))
  (* 86400.0 (- s (fix s)))
)
 
 
(defun c:test11 (/ i timer)
  (setvar "cmdecho" 0)
  (setvar "nomutt" 1)
  (setvar "OSMODE" 0)
  (setq i     1
        timer (date->sec)
  )
  (while (< i 1000)
    (command "._line" (list i i 0.0) (list (+ 2 i) (1+ i) 0.0) "")
    (setq i (1+ i))
  )
  (alert (rtos (- (date->sec) timer) 2 6))
  (setvar "cmdecho" 1)
  (setvar "nomutt" 0)
)
 
 
(defun c:test12 (/ i timer)
  (setq i     1
        timer (date->sec)
  )
  (while (< i 1000)
    (entmake (list (cons 0 "LINE")
                   (cons 10 (list i i 0.0))
                   (cons 11 (list (+ 2 i) (1+ i) 0.0))
             )
    )
    (setq i (1+ i))
  )
  (alert (rtos (- (date->sec) timer) 2 6))
)
 
 
(defun c:test13 (/ ms i timer)
  (vl-load-com)
  (setq i     1
        timer (date->sec)
  )
  (setq ms (vla-get-modelspace
             (vla-get-activedocument (vlax-get-acad-object))
           )
  )
  (while (< i 1000)
    (vla-addline ms
                 (vlax-3d-point (list i i 0.0))
                 (vlax-3d-point (list (+ 2 i) (1+ i) 0.0))
    )
    (setq i (1+ i))
  )
  (alert (rtos (- (date->sec) timer) 2 8))
)
 
 
(defun c:test14 (/ ms i timer)
  (vl-load-com)
  (setq i     1.0
        timer (date->sec)
  )
  (setq ms (vla-get-modelspace
             (vla-get-activedocument (vlax-get-acad-object))
           )
  )
  (while (< i 1000)
    (vlax-invoke ms
                 'addline
                 (list i i 0.0)
                 (list (+ 2 i) (1+ i) 0.0)
    )
    (setq i (1+ i))
  )
  (alert (rtos (- (date->sec) timer) 2 8))
)

Regards Kerry

[rkmcswain]

Unless you are drawing thousands of entitys the difference between entmake and VL is not that much.

I agree.

just for info, the panacea link forgot about (vlax-invoke ... which does NOT require lists being converted to vlax-3D-Points (see Test14)

Good point. Thanks for the reminder. I'll add a link to your post here.

For instance, try these....

I changed the (alert) calls to (princ) and looped it a few times. Here are the results I got:

Command: (repeat 5 (progn (c:test11)(c:test12)(c:test13)(c:test14)))


Command: 0.797018
Entmake: 0.046992
VLA1: 0.18700361
VLA2: 0.12500435

Command: 0.687021
Entmake: 0.063005
VLA1: 0.17199665
VLA2: 0.12500435

Command: 0.703999
Entmake: 0.045986
VLA1: 0.18800944
VLA2: 0.12500435

Command: 0.687021
Entmake: 0.078012
VLA1: 0.15598387
VLA2: 0.12500435

Command: 0.703034
Entmake: 0.063005
VLA1: 0.15598387
VLA2: 0.14097691 

[Lee Mac]

I never realised that vlax-invoke/get were quicker than the equivalent methods...

[devitg]

IMO, some things are easier in Vanilla LISP, and some easier in Visual.

Hi , I agree. I use both .