Topic: Quickly Inserting Blocks

[ronjonp]

MP,

I'm using it for the speed verses vla-insert. The entmake is about 5 times faster in AutoCAD 2009. I tried the entlast to vla method and entmake (cdr (assoc -1)) but then all the speed gains were lost. I guess the more version independent universal method is to insert via vla.


Thanks for taking the time to reply .

[Lee Mac]

When using the entmake method - I assume that the Inserts can only be 'entmade' if the block definition exists in the block table, so if it doesn't would you use something like:

Code: [Select]

(command "_.insert" <block filepath>) (command)

To create it?

I don't see this problem with vla-insert, I suppose thats the sacrifice of speed. 

[ronjonp]

Lee,

The block definition already exists in the drawing. I really wish this entmake behaved the same between acad versions. 

[Lee Mac]

Oh right 

I was just considering the case in which it didn't 

[MP]

I'm using it for the speed verses vla-insert. The entmake is about 5 times faster in AutoCAD 2009. I tried the entlast to vla method and entmake (cdr (assoc -1)) but then all the speed gains were lost. I guess the more version independent universal method is to insert via vla.

Thanks for taking the time to reply .

You're very welcome Ron. Parting gift:

reliability > speed

[CAB]

Just to be clear, this took a big performance hit over entmakex?

Code: [Select]

(defun rjp-insertcan2 (pt layer sc val / elst)
  (if (setq elst
             (entmake (list '(0 . "INSERT")
                            '(100 . "AcDbEntity")
                            '(100 . "AcDbBlockReference")
                            '(2 . "RJP_CatchCan")
                            (cons 8 layer)
                            (cons 10 pt)
                            (cons 41 sc)
                            (cons 42 sc)
                            (cons 43 sc)
                            (cons -3 (list (cons "Precipitation" (list (cons 1040 val)))))
                      )
             )
      )
    (vlax-ename->vla-object (cdr (assoc -1 elst)))
  )
)

[ronjonp]

CAB,

From the test I did the insertion time went to over 40 seconds  (compared to 6.5). I'll give it another test when I get back to the office.

[T.Willey]

If it is the same block, can you just insert it once, and then copy it to the other points?

[ronjonp]

If it is the same block, can you just insert it once, and then copy it to the other points?

I suppose I could try that Thanks Tim.

[ronjonp]

CAB,

From the test I did the insertion time went to over 40 seconds  (compared to 6.5). I'll give it another test when I get back to the office.

Well I ran the test again...these two were just about the same:

  (vlax-ename->vla-object
    (entmakex (list '(0 . "INSERT")... vs. (entmakex then (vlax-ename->vla-object (entlast))

The (if (setq el ... (vlax-ename->vla-object (cdr (assoc -1 el))) kept breaking in 2009 with that same invalid entity name error i was seeing in 2008. :pissed: