macro for automatic select + setbylayer + refedit

[jim78b]

i need please and thanks in advance for your indispensable help, a macro that with one mouse click select block setbylayer and the refedit.

 

^C^C_.select;\._setbylayer previous;;;;._select previous;_refedit previous;

 

not work!

[Steven P]

So I think recently someone was asking about setbylayer - there should be a LISP for that out there easy to get. What do you want to do when you refedit the block by the way, that might alter what commands to use.

 

This is the first bit you are looking for, select a single entity and check that it is a block, you can do similar with ssget, but I can't remember just now how to limit it to a single object selection - that came up recently to I think

 

  (setq MyEnt (entget (car (entsel "\nSelect Block"))) )
  (while (/= (cdr (assoc 0 MyEnt)) "INSERT") ;; loop if a block ins't selected
      (setq MyEnt (entget (car (entsel "\nBlock not selected. Select Block"))) )
  );end while

 

returns the block entity MyEnt.