topic Re: LAYERORDER then OKAY in Visual LISP, AutoLISP and General Customization Forum

LAYERORDER then OKAY

jmartt — Thu, 01 Sep 2016 17:47:21 GMT

I'm aiming to make a button that pops my layers into the display order I want.

I want a macro or other sort of magic thing that calls the command LAYERORDER and (effectively) presses the OKAY button.

Thank you in advance, oh wisen'd few: I am not one that can summon up fire without flint or tinder.

Re: LAYERORDER then OKAY

Kent1Cooper — Thu, 01 Sep 2016 18:13:00 GMT

@jmartt wrote:

.... calls the command LAYERORDER and (effectively) presses the OKAY button.

....

That's not a native AutoCAD command. Are you using an overlay program? Do you have a custom command definition?

Re: LAYERORDER then OKAY

jmartt — Thu, 01 Sep 2016 18:28:28 GMT

I'm using Civil 3D 2017, SP 1.1

And I have Sincpac installed, but that command isn't listed in the literature as being a Sincpac command.

In the C3D forums, someone noted that this command wasn't a C3D command, though, so I don't know how I have it, or how @bmapper has it. Well, actually, maybe that user name is a clue! Is it is a Map command?

Regardless, I just want a button that launches the command and presses the OKAY button. I tried adjusting ATTDIA and FILEDIA but this particular dialog box seems resistant to those spells. Is there just a catch-all LISP or macro way to "press OKAY button"?

Re: LAYERORDER then OKAY

steve_carson — Thu, 01 Sep 2016 19:18:29 GMT

I can't answer your question about running this command without a dialog box, but I can confirm that I have this command in Civil3D 2016, but not in Map3D 2016. I tried "-Layerorder" with no luck. Also, it's not found in Help when I do a search for it.

Just FYI.

Steve

Re: LAYERORDER then OKAY

Kent1Cooper — Thu, 01 Sep 2016 20:38:57 GMT

@jmartt wrote:

.... I don't know how I have it....

I expect it must have come from here, if that helps people know what to do with it.

Re: LAYERORDER then OKAY

jmartt — Thu, 01 Sep 2016 20:47:03 GMT

I don't show any UDS app in my add-ins, and I don't remember downloading anything like that. I think @Anonymous found the command in Arch 2016.

Really, though, I just want to press that OKAY button via some LISP or other method. Maybe you'd need the code or whatever to do that, but I thought maybe there'd be a LISP routine or something for "press the OKAY button".

Re: LAYERORDER then OKAY

steve_carson — Thu, 01 Sep 2016 22:04:02 GMT

I'm no Lisp Guru, but this worked in my minimal testing. Modify the quoted layer names to be in the order you want them displayed. You type "LAYORDER" to run it. Let me know if it doesn't work (but like I said, I'm no guru).

;;Send to Front by Layer
;;
;;Inspired by this post:
;;http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/layerorder-then-okay/td-p/6537304
;;
;;By Steve Carson
;;

(defun C:LAYORDER ( / layerlist SS)

(setq layerlist '(

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Create List of Layers in the order you want them displayed

"Layer1"
"Layer2"
"Layer3"
"Layer4"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;End of Layer List Area
))

(foreach L (reverse Layerlist)

(if (setq SS (ssget "_X" (list (cons 8 L) (cons 410 (getvar "CTAB")))))

(command "DRAWORDER" SS "" "Front")

)

);foreach

(princ)
);defun

Re: LAYERORDER then OKAY

jmartt — Thu, 01 Sep 2016 23:37:02 GMT

"but like I said, I'm no guru"

I beg to differ. Thanks a lot!

Re: LAYERORDER then OKAY

steve_carson — Thu, 01 Sep 2016 23:57:51 GMT

You're welcome, glad you like it!

Re: LAYERORDER then OKAY

jmartt — Thu, 15 Sep 2016 15:40:41 GMT

My intent was to have some special layers that would jump up in display order and some others that would jump behind. I took your code and edited it so it'd do that. Seems to work thus far. Quite a nice button to have! Posting here in case someone wants the same.

Re: LAYERORDER then OKAY

steve_carson — Thu, 15 Sep 2016 15:44:47 GMT

Nicely done Jeff!

Steve

Re: LAYERORDER then OKAY

As-Built_Sigurd — Thu, 22 Sep 2016 23:47:47 GMT

Thanks for this

Re: LAYERORDER then OKAY

nbawden — Wed, 26 Oct 2016 00:56:02 GMT

Any idea how do this lisp with layer wildcards?

We have various text layers that have a generic name type "Text *" that we want to be set to the front of all other objects in other layers.

Re: LAYERORDER then OKAY

Kent1Cooper — Wed, 26 Oct 2016 02:08:12 GMT

@nbawden wrote:

Any idea how do this lisp with layer wildcards?

We have various text layers that have a generic name type "Text *" that we want to be set to the front of all other objects in other layers.

If you don't care in what order the things on those Layers go relative to each other, but only relative to things on other Layers, it should be pretty simple, since wildcards work in (ssget) filters:

(command "DRAWORDER" (ssget "_X" '((8 . "Text *"))) "" "Front")

Re: LAYERORDER then OKAY

nbawden — Wed, 26 Oct 2016 03:12:57 GMT

Sweet - works nicely.