topic Re: LISP QSELECT THEN BRING TO FRONT in Visual LISP, AutoLISP and General Customization Forum

LISP QSELECT THEN BRING TO FRONT

Anonymous — Wed, 16 May 2018 07:01:56 GMT

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.

Re: LISP QSELECT THEN BRING TO FRONT

vinodkl — Wed, 16 May 2018 07:21:40 GMT

May be this would help you out:

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

Re: LISP QSELECT THEN BRING TO FRONT

StephenThomasGrace — Wed, 16 May 2018 12:20:32 GMT

Give this a try.

Load

Type LeaderFront or LF to run

-steve

Re: LISP QSELECT THEN BRING TO FRONT

Anonymous — Thu, 17 May 2018 00:13:18 GMT

Thanks Steve!

Re: LISP QSELECT THEN BRING TO FRONT

Anonymous — Thu, 17 May 2018 00:54:06 GMT

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

Re: LISP QSELECT THEN BRING TO FRONT

StephenThomasGrace — Thu, 17 May 2018 10:23:05 GMT

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

Re: LISP QSELECT THEN BRING TO FRONT

Jemauk — Fri, 31 Aug 2018 16:22:54 GMT

@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

Re: LISP QSELECT THEN BRING TO FRONT

Kent1Cooper — Fri, 31 Aug 2018 17:56:42 GMT

@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")))

Re: LISP QSELECT THEN BRING TO FRONT

Kent1Cooper — Fri, 31 Aug 2018 18:01:53 GMT

@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.

Re: LISP QSELECT THEN BRING TO FRONT

Jemauk — Fri, 31 Aug 2018 18:05:54 GMT

Thank you @StephenThomasGrace!