MarcoW Posted June 19, 2009 Share Posted June 19, 2009 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 :-) Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted June 19, 2009 Share Posted June 19, 2009 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] Quote Link to comment Share on other sites More sharing options...
MarcoW Posted June 19, 2009 Author Share Posted June 19, 2009 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. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted June 19, 2009 Share Posted June 19, 2009 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 Thanks Marco Quote Link to comment Share on other sites More sharing options...
apsonwane Posted July 22, 2009 Share Posted July 22, 2009 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 Quote Link to comment Share on other sites More sharing options...
MarcoW Posted July 22, 2009 Author Share Posted July 22, 2009 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... Quote Link to comment Share on other sites More sharing options...
apsonwane Posted July 22, 2009 Share Posted July 22, 2009 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 Quote Link to comment Share on other sites More sharing options...
ronjonp Posted July 22, 2009 Share Posted July 22, 2009 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)))) ) Quote Link to comment Share on other sites More sharing options...
Patrick_35 Posted July 22, 2009 Share Posted July 22, 2009 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 @+ Quote Link to comment Share on other sites More sharing options...
ronjonp Posted July 22, 2009 Share Posted July 22, 2009 Good to know Patrick...thanks Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted July 22, 2009 Share Posted July 22, 2009 Nice suggestion Patrick, thanks Quote Link to comment Share on other sites More sharing options...
apsonwane Posted July 23, 2009 Share Posted July 23, 2009 Thanks Ronjon & Patrick, Now this works perfectly. Only need to add 2 brackets )) at the end of function. Thanks for your efforts. Quote Link to comment Share on other sites More sharing options...
Ashishs Posted July 23, 2009 Share Posted July 23, 2009 is it possible to add count result at the end something like- "XX blocks with name "blockname" deleted"? Quote Link to comment Share on other sites More sharing options...
Patrick_35 Posted July 23, 2009 Share Posted July 23, 2009 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)))) @+ Quote Link to comment Share on other sites More sharing options...
Ashishs Posted July 23, 2009 Share Posted July 23, 2009 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. Quote Link to comment Share on other sites More sharing options...
Patrick_35 Posted July 23, 2009 Share Posted July 23, 2009 You can put your lisp online. @+ Quote Link to comment Share on other sites More sharing options...
Ashishs Posted July 23, 2009 Share Posted July 23, 2009 (edited) 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 March 9, 2012 by SLW210 Quote Link to comment Share on other sites More sharing options...
Patrick_35 Posted July 23, 2009 Share Posted July 23, 2009 (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)) Quote Link to comment Share on other sites More sharing options...
Ashishs Posted July 23, 2009 Share Posted July 23, 2009 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 Quote Link to comment Share on other sites More sharing options...
Patrick_35 Posted July 23, 2009 Share Posted July 23, 2009 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: @+ Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.