LISP to reinsert dyn blk / help to finalize needed

[karpki]

Hi

The aim is to reinsert dynamic block to the same insertion point

I'm trying to code but insertion point issue doesn't work 

(defun c:DBRI (/ b obj bn ip)
  (vl-load-com)
  (setq
            b (entsel "\nSelect block: ")
            obj (vlax-ename->vla-object (car b))
            bn (vla-get-effectivename obj)
            ip (vla-get-InsertionPoint obj)
   )
  (Command "-INSERT" bn ip "" "" "")

  (vla-delete obj)
   (princ)

)

Could you pls help to finalize it

Thanks in advance!

K

[hosneyalaa]

TRY

(defun c: DBRI (/ b obj bn ip)
  (vl-load-com)
  (setq
            b (entsel "\ nSelect block:")
            obj (vlax-ename->vla-object (CAR b))
            ip (vlax-get obj 'insertionpoint)
   )
  (Command "-INSERT" bn ip "" "" "")

  (vla-delete obj)
   (princ)

)

[karpki]

unfortunatelly it doesn't work

[hosneyalaa]

(defun c:testDBRI (/ b obj bn ip)
  (vl-load-com)
  (setq
            b (entsel "\ nSelect block:")
            obj (vlax-ename->vla-object (CAR b))
            ip (vlax-get obj 'insertionpoint)
   )
  (Command "-INSERT" "bbbb" ip "" "" "")

  (vla-delete obj)
   (princ)

)

[karpki]

It works this way

(defun c:DBRI (/ b obj bn ip)
  (vl-load-com)
  (setq b (entsel "\nSelect block:"))
  (setq obj (vlax-ename->vla-object (car b)))
  (setq bn (vla-get-effectivename obj))
  (setq ip (vlax-safearray->list (vlax-variant-value (vlax-get-property obj 'InsertionPoint))))

  (Command "-INSERT" bn ip "" "" "")

  (vla-delete obj)
  (princ)
)

And now the question appears how to make so that OK button will be pressed automatically in the Enter Attributes window if I don't wanna change anything ?

[karpki]

Test file

[karpki]

Test file

[karpki]

Thank you colleague!

I guess the main thing I have to say  it is sorry that I didn't post my own test file in the beginning.

Second thing: reinsert doesn't mean replace!

So the getting blockname (bn) is absolutely needed function for REinsertion

[hosneyalaa · Accepted solution]

(defun c:testDBRI (/ b obj bn ip)
  (vl-load-com)
  (setq
            b (entsel "\ nSelect block:")
            obj (vlax-ename->vla-object (CAR b))
            ip (vlax-get obj 'insertionpoint)
   )
    (setvar "ATTDIA" 0)
  (Command "-INSERT" "ABH.6.41" ip "" "" "" "" "" "" "" "")
  (setvar "ATTDIA" 1)
  ;;(vla-delete obj)
   (princ)

)

[karpki]

Thank you!
Yes, attdia change helps, so the final code is

(defun c:DBRI (/ b obj bn ip)
(vl-load-com)
(setq b (entsel "\nSelect block:"))
(setq obj (vlax-ename->vla-object (car b)))
(setq bn (vla-get-effectivename obj))
(setq ip (vlax-safearray->list (vlax-variant-value (vlax-get-property obj 'InsertionPoint))))
(setvar "ATTDIA" 0)
(Command "-INSERT" bn ip "" "" "" "" "" "" "" "")
(setvar "ATTDIA" 1)
(vla-delete obj)
(princ)
)