Lisp to change dimscale, LTS, PSLTS and MSLTS all at once as well as Cannoscale

[jcarter33T87]

Hello, just like the title says.  I'm sure it has been done before.  I want the lisp to prompt me for the dimscale, then automatically set lts, pslts and mslts to 1.  Then at the end, prompt me to set the Cannoscale.

I think the attached image should self explain.

[Moshe-A · Accepted solution]

@jcarter33T87  HI,

For this kind of automation, menu macro is more suitable. open CUI create a new button tool and append it\create new toolbar. 

[Linetype Scale in Chain]^C^CLTSCALE \PSLTSCALE 1 MSLTSCALE 1 CANNOSCALE 1:1;

Moshe