Topic: Alert when attempt to del a block

[mohan]

While deleting objects if a block is selected appear a warning alert message !
Please fix the bug.

Code: [Select]

(defun c:cleanob ( / bNme )
(setq bNme (ssget))
(if (= bNme (tblsearch "BLOCK" bNme))
(alert "_.you are attempted to delete a block")); if
(Command "_.erase" bNme "") (princ))

[ribarm]

bnme is variable that stores selection set - not block name...
Even more, if you supply correct filter '((0 . "INSERT")) - you have to extract bnme from it - iterate or something else (INSERT type can also be xref, not only block, so pay attention to that too)...
(tblsearch) approach is good, but like I said, supply correct argument to it - bnme that is string with desired reference block name...
(= bnme (tblsearch "BLOCK" bnme)) is not needed that way - (tblsearch) returns not block name, but table list with block definition dxf basic data...
Only this is enough :

Code: [Select]

(if (tblsearch "BLOCK" bnme)
  ... then
  ... else
)


[mhupp]

Uses the dxf codes instead.

Code: [Select]

(defun c:cleanob (/ SS)
  (if (setq SS (ssget))
    (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
      (if (= (cdr (assoc 0 (entget e))) "INSERT")
        (alert "\nYou are attempted to Delete a Block")
        (entdel e) ;deletes anything else not a block
      )
    )
    (prompt "\nNothing Selected")
  )
)