Creating a Script for Changing LTS to 1 in all drawings

[jcruickshanks]

Hi all, 

I'm quite new to using scripts and trying to create one to change LTS to 1 in a large batch of drawings where the LTS seems to vary (drawings were created by several people over many years). I tried to write a simple script but it doesn't seem to be working:

ltscale
1
qsave

It seems as if it gets stuck after typing 1, can someone please advise what I'm doing wrong

[Kent1Cooper]

---

@jcruickshanks wrote:

....

It seems as if it gets stuck after typing 1, can someone please advise what I'm doing wrong

---

Define "it gets stuck."  What happens?  What does the Command line show?  Is there any error message?  Etc., etc.

[Nathan_Tigner]

If it is an actual script (.scr), make sure you have a blank space at the end of the script that cad recognizes as ENTER. Maybe this is why it's getting stuck after 1.

[ronjonp · Accepted solution]

Maybe this?

(setvar 'ltscale 1)
"_.qsave _.close"

Or use THIS tool and use this as the input _.open *file* (setvar 'ltscale 1) _.close

[calderg1000]

Regards @jcruickshanks 

Try the following code

(defun c:tsc ( / s i e)
  (setq s (ssget "_X"))
  (repeat (setq i (sslength s))
    (setq e (ssname s (setq i (1- i))))
    (setq en (vlax-ename->vla-object e))
    (vla-put-linetypeScale en 1)
  )
)

[jcruickshanks]

Thanks, the first script didn't seem to work again but I used the tool you suggested and the second script worked perfectly (I added _.qsave before close).

[ronjonp]

---

@jcruickshanks wrote:

Thanks, the first script didn't seem to work again but I used the tool you suggested and the second script worked perfectly (I added _.qsave before close).

---

Good catch on the _.qsave ... it's been a minute since I've ran scripts 🙂