Topic: Dimscale

[Luke]

I want a button that when I click it will do the following.

If the dimension style that is set current contains the text “std” clicking the button will set the dimscale to 16 and the textsize to 2.

OR

If the dimension style that is set current contains the text “mm” clicking the button will set the dimscale to 406.4 (16 x 25.4) and the textsize to 50.8 (2 x 25.4).

Is it possible and what would be the easiest way to do it?

[deegeecees]

Yes, do you need a nudge, or do you want the whole fish?

[ronjonp]

Here is one way to do it:

Code: [Select]

(cond ((wcmatch (strcase (getvar 'dimstyle)) "*STD*")
       (setvar 'dimscale 16)(setvar 'textsize 2)
      )
      ((wcmatch (strcase (getvar 'dimstyle)) "*MM*")
       (setvar 'dimscale 406.4)(setvar 'textsize 50.5)
      )
)

[Luke]

I'd love the whole fish 

I'd prefer the nudge.  Y'all give me the whole fish plenty.  I'm never gonna get there myself if I don't try.  Biggest hurdle right now is that I don't really have time for trial and error and trouble shooting all day at work and when I get home my home PC is not setup right now.

[Luke]

Again as you've helped me in previous posts I'm way unfamiliar with lisps.  Just familiar enough with macros and scripts to be dangerous.

Will this code be a lisp and loaded through the appload command?

[deegeecees]

Not tested, but here's yer fish. Same as it ever was, just drag to your AutoCad, or appload it. All credit goes to ronjonp for his conditional statements.

Code: [Select]

(defun c:Luke_Dim ()
(cond ((wcmatch (strcase (getvar 'dimstyle)) "*STD*")
       (setvar 'dimscale 16)(setvar 'textsize 2)
      )
      ((wcmatch (strcase (getvar 'dimstyle)) "*MM*")
       (setvar 'dimscale 406.4)(setvar 'textsize 50.5)
      )
)
)

[Luke]

ronjonp thank you.

And deegeecees thank you also for the fish.

Just incase you care, I actually figure out the part you added on my own about 5 min before you posted.  I do appreciate you help just the same!

[deegeecees]

Good to see you're learning. Glad to help.

 

[ronjonp]

Glad to help out