Topic: how can I change all the "dimscale" by lisp?

[litss]

Is there any way to change the "dimscale" of all the "dimstyle"s in my drawing by lisp?

I've tried "(setvar "DIMSCALE" 100)", but seemed not working. I wanna change the textsize  by this way. Can somebody help me?

[Crank]

When you change a dim variable an override of the dimstyle is active.

You wil have to save those changes to the dimstyle again:

Code: [Select]

(command "._dimstyle" "save" (getvar "DIMSTYLE") "YES")

If your dimstyle has 'children' (bla$0, bla$1, etc.) you'll have to save the changes to every child to see the changes everywhere.

[litss]

it works!

thx, Crank!

Could that be solved by "entmod"?

[litss]

Here's my code, why it can't run? (acad2000&acad2007)

Code: [Select]

(SETQ DIMLST-0 (LIST "1:100" "1:50" "1:25"));LIST OF DIMSTYLE NAMES I USED
(SETQ I 0);SETQ
(REPEAT (LENGTH DIMLST-0)
  (SETQ TEST0 (TBLSEARCH "DIMSTYLE" (NTH I DIMLST-0)))
  (SETQ DIMNAME (NTH I DIMLST-0))
  (IF (/= TEST0 NIL);EXIST
    (PROGN
      (command "-dimstyle" "r" DIMNAME)
      (setvar "DIMSCALE" 100)
      (command "-dimstyle" "save" (getvar "DIMSTYLE") "YES")
    );PROGN
  );IF
  (SETQ I (1+ I))
)
;REPEAT

[ronjonp]

Just guessing here...but you might need an enter after "YES". Something like  (..."YES" "").


Here is a sample using foreach so you do not have to worry about the index of the item in the list:

Code: [Select]

(foreach ds '("1-100" "1-50" "1-25")
  (if (TBLSEARCH "DIMSTYLE" ds)
    (progn
      (command "-dimstyle" "r" ds)
      (setvar 'dimscale 100)
      (command "-dimstyle" "save" ds "YES" "")
    )
  )
)
*also the names you are using are invalid because of the colon.

[litss]

thank u, ronjonp! good example for the "foreach" function

I'll try the code when I get the chance. thx again!

[ronjonp]

thank u, ronjonp! good example for the "foreach" function

I'll try the code when I get the chance. thx again!

Glad to help

[litss]

I've tried ur code,  ronjonp.  Here's the result,

In the ACAD2007, the (command "-dimstyle" "save" ds "YES" "") could run, but the enter after  "YES"  is not needed, or it will return "nil". 

thx!