Topic: vla-insertBlock

[velasquez]

Hello 
I am working with vla-insertBlock. 
Does a way exist of to simulate the block being dragged while the function waits for the insert point?
Thanks

[gile]

Hi,

This can be done using the ET acet-ss-drag-move LISP function:

Code: [Select]

(vla-move
  (vla-InsertBlock
    (vla-get-ModelSpace (vla-get-activeDocument (vlax-get-acad-object)))
    (vlax-3d-point '(0. 0. 0.))
    BlockName
    1.
    1.
    1.
    0.
  )
  (vlax-3d-point '(0. 0. 0.))
  (vlax-3d-point (acet-ss-drag-move (ssadd (entlast))
                                    '(0. 0. 0.)
                                    "\nSpecify insertion point: "
                 )
  )
)
But it's much more simple using command or vl-cmdf:

Code: [Select]

(command "_insert" BlockName pause "" "" "")