I'm close, but not quite there yet...

[dwahl]

Thank you to forums like these I've been picking up (or at least trying) this Lisp stuff. It's been a big help.

I am trying to write a script for AutoCAD to clean up some Exported models from Revit. i am trying to get the script to add a new G-ANNO-VPRT layer, put all viewports on that layer, take all block references in model space that have a name that starts with 803000... and move them to the back, then explode them, the script will also force all colors of all objects to ByLayer in model and paper space, then it will remove all text masking and zoom extent, purge, audit, and save.

I have a script that runs a few lisps, and I'm very close. I am getting hung up on selecting all the block references in modelspace that starts with 803000... to send them to back and explode them. The current lines I have for that only are selecting one of the block references in the file, it will eventually select the other one, but it has to be run an additional 2-3 times for it to be included, I have no idea why.

I have attached my script and the lisp files it runs if you'd like to take a look.

Thank you.

[Tom Beauford]

When you explode each of those blocks you are replacing a reference to a block definition with a new group of objects. The easiest way to do what you want is to (setq EN (entlast)) before exploding the blocks. Then everything after EN will be the newly created objects from the exploded block references. (entnext EN) will give you the first one. You will need to create a selection set of all the new objects to modify their color & draw order. As the newest objects in the drawing they will be on top regardless where the block references were.

Gotta run if you still need help creating the selection set I'll reply with some code tomorrow.

[marko_ribar]

When you explode block, you can get newly created entities with (ssget "_P")... Only thing you should consider is that you must explode each block with (command "_.explode" bname) where bname is (tblobjname "BLOCK" "blname")... Note that you shouldn't use (vla-Explode bl-vlaobj) as after that you can't get subentites selection with (ssget "_P")...

M.R.

[dwahl]

Thank you for the quick responses Tom and Marko!
I will look at (setq EN (entlast)) and (entnext EN) a little bit more, as I am not familiar with them yet.
Correct me if I'm wrong, but both of your solutions sound like they are trying to help me select the objects after they are exploded. My problem may be a little bit simpler. I am having problems exploding the blocks. If I just paste the one line of my lisp into the AutoCAD command line:

(command "._EXPLODE" (ssget "_X" '((0 . "INSERT" ) (2 . "803000*") (410 . "Model"))) )

it will only select 1 of 2 block references with a name that starts with 803000 and explode it. I don't know why it's not exploding all the blocks. I may be missing something that you guys are trying to tell me, if so, i am sorry.

Thank you.

[Tom Beauford]

Try this:

 (defun c:xrefexplode ( / lastent flag ss)
  (setq lastent (entlast)
        flag (getvar "qaflags")
  (setq ss (ssget "_X" '((0 . "INSERT" ) (2 . "803000*") (410 . "Model"))))
  (setvar "qaflags" 1) 
  (command "._EXPLODE" ss "")
  (setvar "qaflags" flag) 
  (setq ss (ssadd))
  (while (entnext lastent)
   (setq lastent (entnext lastent))
   (ssadd lastent ss)
  )
  (command "._DRAWORDER" ss "" "b" )
  (princ)
)

[dwahl]

Thank you again Tom!! I'll give it a try.

[dwahl]

Tom, Thank you very much, this is perfect (other than there was a missing parenthesis, but I found it). I am looking forward to researching this lisp more in depth to find out what each of these lines do. Thanks again!!

[Tom Beauford]

Tom, Thank you very much, this is perfect (other than there was a missing parenthesis, but I found it). I am looking forward to researching this lisp more in depth to find out what each of these lines do. Thanks again!!

You're welcome! Qaflags sadly isn't a documented variable in AutoCAD, but here's a couple links from two of my favorite sources:
http://blog.jtbworld.com/2008/07/exp...-autolisp.html
http://cadpanacea.com/node/266
You should be able to find everything else in the AutoLISP Reference in AutoCAD Help.