Topic: Delete Item from a block

[CAB]

Andy,
Just a typo in the latest routine.
Change theses two lines:

Code: [Select]

   (equal (vla-get-IsXref Blk) :vlax-false)
   (equal (vla-get-IsLayout Blk) :vlax-false)Needs to be Blk and not Obj.

Also you will need a (regen) to see the results. At least I did.

[T.Willey]

Tim,
I stand corrected, Nice example.
Using plain lisp would be messy at best.

Thanks Alan.

When I try to run this lisp, i get an error message

; error: bad argument type: VLA-OBJECT nil

What am I doing wrong. I've typed in (vl-load-com) first but it makes no difference.

Andy,
Just a typo in the latest routine.
Change theses two lines:

Code: [Select]

   (equal (vla-get-IsXref Blk) :vlax-false)
   (equal (vla-get-IsLayout Blk) :vlax-false)Needs to be Blk and not Obj.

Also you will need a (regen) to see the results. At least I did.

Correct.  Oops 

If you need a regen in there, then add this line to the end of the code, before the (princ) line.

Code: [Select]

(vla-Regen ActDoc acActiveViewport)