Old LISP kinda doesn't work anymore

[LanceMcHatton]

Good day, fellow CAD geeks,

I've had this old simple LISP that we've run for years without issue. It takes the place of the MLEADER button and simply changes the layer for the new multileader to our default 02-ANNO layer prior to creating the multileader and then changes the layer back to whatever the current layer was before using it after the multileader is created.

(defun c:TMCMLeader ()
  (setvar "cmdecho" 0)
  (setvar "filedia" 0)
  (setq oldlyr (getvar "clayer"))
  (setvar "filedia" 1)
  (setvar "clayer" "02-ANNO")
  (command "MLEADER" pause pause)
  (setvar "clayer" oldlyr)
  (princ)
)

However, now it will still change the layer, let me create the multileader, but then put the leader on the CURRENT layer instead of the 02-ANNO layer. I know for a fact that it starts putting the multileader on the 02-ANNO layer because it's yellow but then, when it changes the multileader's layer back to the current layer, it's white just like the current layer.

This all started to happen on my new computer with AutoCAD 2025 installed.

I know the LISP is rudimentary so please be kind. There's no error checking etc. but I am very much a novice LISP guy. If you have any tweaks you think I should add, I would be more than happy to upgrade it.

Anyway, has something changed with 2025 that would force the entity back onto the current layer? Does anyone have any idea what might have changed? The file still has a date stamp of 2020 so nothing changed with the LISP.

Any help would be greatly appreciated.

[Wanderer]

Good day, fellow CAD geeks,

I've had this old simple LISP that we've run for years without issue. It takes the place of the MLEADER button and simply changes the layer for the new multileader to our default 02-ANNO layer prior to creating the multileader and then changes the layer back to whatever the current layer was before using it after the multileader is created.

(defun c:TMCMLeader ()
(setvar "cmdecho" 0)
(setvar "filedia" 0)
(setq oldlyr (getvar "clayer"))
(setvar "filedia" 1)
(setvar "clayer" "02-ANNO")
(command "MLEADER" pause pause)
(setvar "clayer" oldlyr)
(princ)
)

However, now it will still change the layer, let me create the multileader, but then put the leader on the CURRENT layer instead of the 02-ANNO layer. I know for a fact that it starts putting the multileader on the 02-ANNO layer because it's yellow but then, when it changes the multileader's layer back to the current layer, it's white just like the current layer.

This all started to happen on my new computer with AutoCAD 2025 installed.

I know the LISP is rudimentary so please be kind. There's no error checking etc. but I am very much a novice LISP guy. If you have any tweaks you think I should add, I would be more than happy to upgrade it.

Anyway, has something changed with 2025 that would force the entity back onto the current layer? Does anyone have any idea what might have changed? The file still has a date stamp of 2020 so nothing changed with the LISP.

Any help would be greatly appreciated.

Hi, Lance.
I have moved your post from the Customization forum to the AutoLisp forum, as it will be better served here.

[BlackBox]

Slight modification:

(defun c:TMCMLeader ()
  (setvar "cmdecho" 0)
  (setvar "filedia" 0)
  (setq oldlyr (getvar "clayer"))
  (setvar "filedia" 1)
  (setvar "clayer" "02-ANNO")
  (command-s "MLEADER" pause pause)
  (setvar "clayer" oldlyr)
  (princ)
)

More on command-s here:

https://help.autodesk.com/view/OARXM...7-7E19A4EE19A1

[garcigj]

(command-s "MLEADER" pause pause)

I don't understand how 'PAUSE' can be used when the help says it cannot be.

No "Pause" command tokens may be used. Expressions that interact with the drawing area or Command Window may be used, but will all be processed before AutoCAD receives and processes any of them.
The following is not valid with the command-s function:

(command-s "._line" "0,0" PAUSE "")

[BlackBox]

I don't understand how 'PAUSE' can be used when the help says it cannot be.

No "Pause" command tokens may be used. Expressions that interact with the drawing area or Command Window may be used, but will all be processed before AutoCAD receives and processes any of them.
The following is not valid with the command-s function:

(command-s "._line" "0,0" PAUSE "")

You expected the documentation to be complete and accurate? Haha

[garcigj]

You expected the documentation to be complete and accurate? Haha

"How naive of me."

[madcadder]

"How naive of me."

I'm late to the game, but I do this by using a reactor in my ACADDOC.
It looks for command calls for LEADER, MLEADER, and QLEADER, has a condition statement to look for current CMLEADERSTYLE, and then changes to the appropriate layer according to the leader style. I have leaders on one layer, hardware tags on a different, and part tags on a 3rd.

The reactor is also setup to work with viewports, points, arrays, xlines, and wipeouts.

[BlackBox]

I'm late to the game, but I do this by using a reactor in my ACADDOC.
It looks for command calls for LEADER, MLEADER, and QLEADER, has a condition statement to look for current CMLEADERSTYLE, and then changes to the appropriate layer according to the leader style. I have leaders on one layer, hardware tags on a different, and part tags on a 3rd.

The reactor is also setup to work with viewports, points, arrays, xlines, and wipeouts.

Same here; I've just recently changed employers, and literally revising my own reactors for things like this, when I saw this post. Haha

Cheers

[madcadder]

Same here; I've just recently changed employers, and literally revising my own reactors for things like this, when I saw this post. Haha

Cheers

I believe you helped me set up my first reactor. I just took it a little farther.
It's a great way to force standards into an office too.

[madcadder]

Same here; I've just recently changed employers, and literally revising my own reactors for things like this, when I saw this post. Haha

Cheers

While I have a minute to think about it... Whatchu got?

(DEFUN |endreactorcommand| (calling-reactor endcommandinfo / |commandend|) 
  (SETQ |commandend| (CAR endcommandinfo))
  (IF 
    (OR (= |commandend| "DIVIDE")
        (= |commandend| "LEADER") 
        (= |commandend| "MEASURE")         
        (= |commandend| "MLEADER")
        (= |commandend| "MVIEW")
        (= |commandend| "POINT")
        (= |commandend| "QLEADER")
        (= |commandend| "RAY")
        (= |commandend| "VPORTS")
	(= |commandend| "WIPEOUT")
        (= |commandend| "XLINE")
    )
    (SETVAR "clayer" |reactor_clayer|)
  )
  (PRINC)
)