Topic: How to remove a entity from a block?

[taner]

Dear all,

Just like the subject described.

Thanks in advance.

[MP]

Iterate the block's collection (vlax-for object block_collection) and remove the offending objects (vla-delete object).

Wutz up with the poll?

[taner]

Iterate the block's collection (vlax-for object block_collection) and remove the offending objects (vla-delete object).

Wutz up with the poll?

I am wondering how the poll happened!

Can you write a Function for me! I do not understand clearly. Tks!

[Patrick_35]

hi

Try this

Code: [Select]

(and (setq sel (nentsel))
(setq sel (vlax-ename->vla-object (car sel)))
(vla-delete sel)
)

and regen

@+

[taner]

I find below codes written by someone else just now. It is just I am looking for.

Code: [Select]

;; Deletes the specified subentity from its block definition
;;; Arguments: the entity name of an item within a block reference
;;; Returns: the remaining item count of the block definition
;;; The drawing must be regenerated for the change to become visible
(defun ax:DeleteObjectFromBlock (ent / doc blk)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
ent (vlax-ename->vla-object ent)
blk (vla-ObjectIdToObject doc (vla-get-OwnerID ent))
  )
  (vla-Delete ent)
  (vla-get-Count blk)
)

[Patrick_35]

it is the same as what I wrote 

@+

[MP]

it is the same as what I wrote 

@+

And the same as a util I have in my lib (DeleteX) written back AC2000+/- (tho mine protects from locked layers et al).

[T.Willey]

You might be able to use the code in this thread.

[ http://www.theswamp.org/index.php?topic=27786.0 ]