Jump to content

Lisp for filtering certain blocks and delete them


MarcoW

Recommended Posts

I am looking for a lisp file that can do following:

 

After giving command "fildel" it should scan the drawing for blocks of a certain name ie. "titleblock". When it has done so it should prompt "Drawing contains x blocks called "titleblock" - What to do: or ?"

 

A + enter will delete all those titleblocks.

S + enter will propmt user for crossing to select part of drawing to do so.

 

I have been messing a few hours with codes out of

 

http://www.cadtutor.net/forum/showthread.php?t=34972

 

but I can't manage to do so without additional commands in my diesle strings, like ^C^C^fildel;titleblock;????

 

Anyway, I guess I can't figure it out, so please help me. (Not only by prviding the code but how to do so.)

 

Also went to:

 

http://afralisp.net/lispa/lisp19.htm

 

Gives me headache :-)

Link to comment
Share on other sites

  • Replies 52
  • Created
  • Last Reply

Top Posters In This Topic

  • Lee Mac

    15

  • Patrick_35

    7

  • Bobzy20

    7

  • vernonlee

    7

Try this mate:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:fildel [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] bdef blk ss tmp uss[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] *fil:del* [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *fil:del* [b][color=#ff00ff]"All"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] bdef [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"INSNAME"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] blk
       [b][color=RED]([/color][/b][b][color=BLUE]getstring[/color][/b] t
         [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Block Name <"[/color][/b] bdef [b][color=#ff00ff]">: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]""[/color][/b] blk[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] blk bdef[b][color=RED])[/color][/b] [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]snvalid[/color][/b] blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** Invalid Block Name **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]tblsearch[/color][/b] [b][color=#ff00ff]"BLOCK"[/color][/b] blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** Block Not Found in Drawing **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b] [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; Exit Loop[/color][/i]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=#ff00ff]"_X"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"INSERT"[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]2[/color][/b] blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nDrawing Contains "[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]sslength[/color][/b] ss[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]" Blocks with Name: "[/color][/b] blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#ff00ff]"All Selection"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp
                [b][color=RED]([/color][/b][b][color=BLUE]getkword[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nDelete [A]ll or [s]election? <"[/color][/b] *fil:del* [b][color=#ff00ff]"> : "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *fil:del* tmp[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] *fil:del* [b][color=#ff00ff]"Selection"[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] uss[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] uss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"INSERT"[/color][/b][b][color=RED])[/color][/b]
                                     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]2[/color][/b] blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss uss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]entdel[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]listp[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]cadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssnamex[/color][/b] ss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Link to comment
Share on other sites

:shock: OMG :?

 

This is like "wonderful", I mean great, you know, perfectly.

 

Lee you allways seem to know all the solutions allthough I know you are doing lisp for like 10 months or so.

 

Thank you very much for your routine. It works great and I will use it.

Link to comment
Share on other sites

:shock: OMG :?

 

This is like "wonderful", I mean great, you know, perfectly.

 

Lee you allways seem to know all the solutions allthough I know you are doing lisp for like 10 months or so.

 

Thank you very much for your routine. It works great and I will use it.

 

I'm glad you like it :D

 

Thanks Marco

Link to comment
Share on other sites

  • 1 month later...

Hi,

 

above routine doesn't delete blocks in multiple layouts.

It deletes only blocks in current active layout.

 

If you can update above routine, it will be great help.

 

Thanks,

Ashish

Link to comment
Share on other sites

So it would be to me but hey, can't have it all I thought.

I'm not capable of doing so, sorry mate.

Maybe Lee has a solution...

Link to comment
Share on other sites

Try this mate:

 

[b][color=red]([/color][/b][b][color=blue]defun[/color][/b] c:fildel [b][color=red]([/color][/b][b][color=blue]/[/color][/b] bdef blk ss tmp uss[b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]vl-load-com[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]or[/color][/b] *fil:del* [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] *fil:del* [b][color=#ff00ff]"All"[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] bdef [b][color=red]([/color][/b][b][color=blue]getvar[/color][/b] [b][color=#ff00ff]"INSNAME"[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]while[/color][/b]
   [b][color=red]([/color][/b][b][color=blue]progn[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] blk
       [b][color=red]([/color][/b][b][color=blue]getstring[/color][/b] t
         [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Block Name <"[/color][/b] bdef [b][color=#ff00ff]">: "[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]cond[/color][/b] [b][color=red]([/color][/b][b][color=red]([/color][/b][b][color=blue]eq[/color][/b] [b][color=#ff00ff]""[/color][/b] blk[b][color=red])[/color][/b] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] blk bdef[b][color=red])[/color][/b] [b][color=blue]nil[/color][/b][b][color=red])[/color][/b]
           [b][color=red]([/color][/b][b][color=red]([/color][/b][b][color=blue]not[/color][/b] [b][color=red]([/color][/b][b][color=blue]snvalid[/color][/b] blk[b][color=red])[/color][/b][b][color=red])[/color][/b]
            [b][color=red]([/color][/b][b][color=blue]princ[/color][/b] [b][color=#ff00ff]"\n** Invalid Block Name **"[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
           [b][color=red]([/color][/b][b][color=red]([/color][/b][b][color=blue]not[/color][/b] [b][color=red]([/color][/b][b][color=blue]tblsearch[/color][/b] [b][color=#ff00ff]"BLOCK"[/color][/b] blk[b][color=red])[/color][/b][b][color=red])[/color][/b]
            [b][color=red]([/color][/b][b][color=blue]princ[/color][/b] [b][color=#ff00ff]"\n** Block Not Found in Drawing **"[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
           [b][color=red]([/color][/b][b][color=blue]t[/color][/b] [b][color=blue]nil[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b] [i][color=#990099]; Exit Loop[/color][/i]
 [b][color=red]([/color][/b][b][color=blue]if[/color][/b] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] ss [b][color=red]([/color][/b][b][color=blue]ssget[/color][/b] [b][color=#ff00ff]"_X"[/color][/b] [b][color=red]([/color][/b][b][color=blue]list[/color][/b] [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"INSERT"[/color][/b][b][color=red])[/color][/b]
                                [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]2[/color][/b] blk[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
   [b][color=red]([/color][/b][b][color=blue]progn[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]princ[/color][/b] [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b] [b][color=#ff00ff]"\nDrawing Contains "[/color][/b]
                    [b][color=red]([/color][/b][b][color=blue]rtos[/color][/b] [b][color=red]([/color][/b][b][color=blue]sslength[/color][/b] ss[b][color=red])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]0[/color][/b][b][color=red])[/color][/b] [b][color=#ff00ff]" Blocks with Name: "[/color][/b] blk[b][color=red])[/color][/b][b][color=red])[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]initget[/color][/b] [b][color=#ff00ff]"All Selection"[/color][/b][b][color=red])[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]or[/color][/b] [b][color=red]([/color][/b][b][color=blue]not[/color][/b] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] tmp
                [b][color=red]([/color][/b][b][color=blue]getkword[/color][/b]
                  [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b] [b][color=#ff00ff]"\nDelete [A]ll or [s]election? <"[/color][/b] *fil:del* [b][color=#ff00ff]"> : "[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
         [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] *fil:del* tmp[b][color=red])[/color][/b][b][color=red])[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]cond[/color][/b] [b][color=red]([/color][/b][b][color=red]([/color][/b][b][color=blue]eq[/color][/b] *fil:del* [b][color=#ff00ff]"Selection"[/color][/b][b][color=red])[/color][/b]
            [b][color=red]([/color][/b][b][color=blue]while[/color][/b] [b][color=red]([/color][/b][b][color=blue]not[/color][/b] uss[b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] uss [b][color=red]([/color][/b][b][color=blue]ssget[/color][/b] [b][color=red]([/color][/b][b][color=blue]list[/color][/b] [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"INSERT"[/color][/b][b][color=red])[/color][/b]
                                     [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]2[/color][/b] blk[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
            [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] ss uss[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]mapcar[/color][/b] [b][color=darkred]'[/color][/b][b][color=blue]entdel[/color][/b]
       [b][color=red]([/color][/b][b][color=blue]vl-remove-if[/color][/b] [b][color=darkred]'[/color][/b][b][color=blue]listp[/color][/b]
         [b][color=red]([/color][/b][b][color=blue]mapcar[/color][/b] [b][color=darkred]'[/color][/b][b][color=blue]cadr[/color][/b] [b][color=red]([/color][/b][b][color=blue]ssnamex[/color][/b] ss[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]princ[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

 

 

 

Hi,

 

above routine is really great but it doesn't delete blocks in multiple layouts.

It deletes only blocks in current active layout.

 

If you can update above routine, it will be great help.

 

Thanks,

Ashish

Link to comment
Share on other sites

Replace the following code and it should delete all:

OLD

     (mapcar 'entdel
       (vl-remove-if 'listp
         (mapcar 'cadr (ssnamex ss))))))

 

 

 

NEW

(mapcar    'vla-delete
   (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
)

Link to comment
Share on other sites

Replace the following code and it should delete all:

OLD

     (mapcar 'entdel
       (vl-remove-if 'listp
         (mapcar 'cadr (ssnamex ss))))))

NEW

(mapcar    'vla-delete
   (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
)

 

Hi

 

There is faster using

(vla-erase (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))

instead of 5 loops proposed

 

@+

Link to comment
Share on other sites

Thanks Ronjon & Patrick,

 

Now this works perfectly.

Only need to add 2 brackets )) at the end of function.

 

Thanks for your efforts. :)

Link to comment
Share on other sites

is it possible to add count result at the end something like-

"XX blocks with name "blockname" deleted"?

 

Hi

 

(vla-get-count (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))

@+

Link to comment
Share on other sites

Hi

 

(vla-get-count (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))

@+

 

Hi Patrick,

 

I added this before (princ)), gives follow. error

 

Command: delblk

Specify Block Name : rev.

Drawing Contains 81 Blocks with Name: rev.

Delete [A]ll or election? :

; error: Automation Error. Calling method AddItems of interface

IAcadSelectionSet failed

 

Pls advice.

Link to comment
Share on other sites

You can put your lisp online.

 

@+

 

(defun c: DELBLK (/ bdef blk ss tmp uss)
 (vl-load-com)
 (or *fil:del* (setq *fil:del* "All"))
 (setq bdef (getvar "INSNAME"))
 (while
   (progn
     (setq blk
       (getstring t
         (strcat "\nSpecify Block Name <" bdef ">: ")))
     (cond ((eq "" blk) (setq blk bdef) nil)
           ((not (snvalid blk))
            (princ "\n** Invalid Block Name **"))
           ((not (tblsearch "BLOCK" blk))
            (princ "\n** Block Not Found in Drawing **"))
           (t nil)))) ; Exit Loop
 (if (setq ss (ssget "_X" (list (cons 0 "INSERT")
                                (cons 2 blk))))
   (progn
     (princ (strcat "\nDrawing Contains "
                    (rtos (sslength ss) 2 0) " Blocks with Name: " blk))
     (initget "All Selection")
     (or (not (setq tmp
                (getkword
                  (strcat "\nDelete [A]ll or [s]election? <" *fil:del* "> : "))))
         (setq *fil:del* tmp))
     (cond ((eq *fil:del* "Selection")
            (while (not uss)
              (setq uss (ssget (list (cons 0 "INSERT")
                                     (cons 2 blk)))))
            (setq ss uss)))
(mapcar    'vla-delete
   (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
)
    ))
 (vla-get-count (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
 (princ))

Edited by SLW210
Link to comment
Share on other sites

(defun c:DELBLK (/ bdef blk ss tmp uss [color=Blue][b]sel doc[/b][/color])
(vl-load-com)
[b][color=Blue](setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark doc)[/color][/b]
(or *fil:del* (setq *fil:del* "All"))
(setq bdef (getvar "INSNAME"))
(while
(progn
(setq blk
(getstring t
(strcat "\nSpecify Block Name <" bdef ">: ")))
(cond ((eq "" blk) (setq blk bdef) nil)
((not (snvalid blk))
(princ "\n** Invalid Block Name **"))
((not (tblsearch "BLOCK" blk))
(princ "\n** Block Not Found in Drawing **"))
(t nil)))) ; Exit Loop
(if (setq ss (ssget "_X" (list (cons 0 "INSERT")
(cons 2 blk))))
(progn
(princ (strcat "\nDrawing Contains "
(rtos (sslength ss) 2 0) " Blocks with Name: " blk))
(initget "All Selection")
(or (not (setq tmp
(getkword
(strcat "\nDelete [A]ll or [s]election? <" *fil:del* "> : "))))
(setq *fil:del* tmp))
(cond ((eq *fil:del* "Selection")
(while (not uss)
(setq uss (ssget (list (cons 0 "INSERT")
(cons 2 blk)))))
(setq ss uss)))
[b][color=Red];(mapcar 'vla-delete
;(mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))

;(vla-get-count (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))[/color][/b]
[b][color=Blue](princ (strcat "\n" (itoa (vla-get-count (setq sel (vla-get-activeselectionset doc)))) " objects deleted."))
(vla-erase sel)
(vla-delete sel)[/color][/b]
))
[b][color=Blue](vla-endundomark doc)[/color][/b]
(princ))

Link to comment
Share on other sites

Thanks Patrick,

 

This works but with some error again,

 

Command: DELBLK

 

Specify Block Name : REV.

 

Drawing Contains 34 Blocks with Name: REV.

Delete [A]ll or election? :

 

34 objects deleted.; error: Automation Error. Invalid entity name

Link to comment
Share on other sites

I try it and it's work

 

Commande: delblk

 

Specify Block Name : e188

 

Drawing Contains 42 Blocks with Name: e188

Delete [A]ll or election? :

 

42 objects deleted.

 

Commande:

@+
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...