LISP QSELECT THEN BRING TO FRONT

[Anonymous]

Can someone write me a lisp that would use the quick select command to find all leaders with layer name "E-ANNO-TEXT" then those selected will bring to front. Thanks in advance.

[vinodkl]

May be this would help you out:

http://forums.augi.com/showthread.php?42864-lisp-routine-which-will-pick-specific-layers-amp-bring-t...

[StephenThomasGrace · Accepted solution]

Give this a try.

Load

Type LeaderFront or LF to run

-steve

[Anonymous]

Thanks Steve!

[Anonymous]

What if I want to bring to front all LINES & ARC  with "E-ANNO-TEXT" layer?

[StephenThomasGrace]

Then the ssget, which is the selection set filter, gets update to something like this:

(ssget "_X" '((-4 . "<OR")(0 . "LEADER")(0 . "LINE")(0 . "ARC")(-4 . "OR>")(8 . "E-ANNO-TEXT")))

; if entity is a Leader, a line or and arc... and on layer E-ANNO-TEXT

I updated the lisp and named it AnnoFront since it is not just leaders now

so AnnoFront or AF will run it

enjoy

-steve

[Jemauk]

@StephenThomasGrace

Thanks for posting this Steve! I need it to do just text on some hand drawn contours. So I would need to modify it to be:

(setq Text (ssget "_X" '((0 . "TEXT")(8 . "-PROPOSED CONTOURS"))))

Would this be correct?

Thank you,

Joseph Mauk

C3D19

[Kent1Cooper]

---

@StephenThomasGrace wrote:

Then the ssget, which is the selection set filter, gets update to something like this:

(ssget "_X" '((-4 . "<OR")(0 . "LEADER")(0 . "LINE")(0 . "ARC")(-4 . "OR>")(8 . "E-ANNO-TEXT")))

; if entity is a Leader, a line or and arc... and on layer E-ANNO-TEXT

....

---

[I didn't see this back then, but with the thread revived, I'll point out that this can be simplified by using a comma-delimited string of multiple entity type names (and the same is applicable for any text-string values, such as Layer names), without  the OR wrappers around separate entries:]

(ssget "_X" '((0 . "LEADER,LINE,ARC") (8 . "E-ANNO-TEXT")))

[Kent1Cooper]

---

@Jemauk wrote:

@StephenThomasGrace

.... I need it to do just text on some hand drawn contours. So I would need to modify it to be:

(setq Text (ssget "_X" '((0 . "TEXT")(8 . "-PROPOSED CONTOURS"))))

Would this be correct? ....

---

Yes.

[Jemauk]

Thank you @StephenThomasGrace!