Drawing Scale Macro/Button??

[Jaelin]

I'm working with Land Desktop Companion 2009. I am in the situation where I change drawing scales very, very frequently. Right now I have the Drawing Setup command in my toolbar to where I select it, go change the scale and hit OK. This doesn't take much time but when I doing that several times a day it gets old.

 

I'm wanting to know if there is a macro or command I can put in a tool pallette that with one click of the button set the scale to say 1:50 scale or something. The idea is that I'll take that macro/command and copy it several times into that tool pallette change the scale for each command (i.e. have a separate button for a 1:10 scale, one for 1:20 scale, one for 1:30 scale, etc.). Is this possible??

[MaxwellEdison]

Well you can invoke Drawing Setup through the command line with

_-AecDwgSetup

 

I believe the macro would look like

^C^C_-AecDwgSetup;SC;(number 1-* to select scale);;;;

[chelsea1307]

this lisp should give you a start. Change the lltscale, dimscale and blipmode to your desired results, also change your command to start it (the part after defun) then add it to your startup or you acad.cui. to create a button from that, go into your customization and put

^C^C_1=1PS (or whateveer your new command name is) in the macro part and add it to your toolbar

[code(defun 1=1PS ()

(setvar "tilemode" 0)

(command "-style" "" "" 0.09375 ".9" "" "" "" "")

(setvar "ltscale" 0.375)

(setvar "DIMscale" 1)

(setvar "BLIPMODE" 0)

)CODE]

[Jaelin]

I believe the macro would look like

^C^C_-AecDwgSetup;SC;(number 1-* to select scale);;;;

 

You are a life saver. That worked brilliantly. This is going to cut back so much time from what I'm doing. Thanks a bunch.

 

this lisp should give you a start. Change the lltscale, dimscale and blipmode to your desired results, also change your command to start it (the part after defun) then add it to your startup or you acad.cui. to create a button from that, go into your customization and put

^C^C_1=1PS (or whateveer your new command name is) in the macro part and add it to your toolbar

[code(defun 1=1PS ()

(setvar "tilemode" 0)

(command "-style" "" "" 0.09375 ".9" "" "" "" "")

(setvar "ltscale" 0.375)

(setvar "DIMscale" 1)

(setvar "BLIPMODE" 0)

)CODE]

 

I'm going to look into this as well and see if I can get it to work for my needs. Honestly I'm not up on lisps, never have used them so don't really know what I'm doing. I am going to use this though to learn it from. Thanks a bunch.

[Jaelin]

Well you can invoke Drawing Setup through the command line with

_-AecDwgSetup

 

I believe the macro would look like

^C^C_-AecDwgSetup;SC;(number 1-* to select scale);;;;

 

I'm running into one issue with doing this macro. Normally when I go to the drawing setup, I select a horizontal scale of 1" = ??' and it sets the scale for the drawing to where that scale affects my linework and my text styles. I'm not using annotative text which this macro would probably work if I was. I think I'm needing an extra string to add of the end of this macro to set the scale for the text but I'm not sure. Never really done this before for AutoCAD so kinda in the dark. To explain a little: I always use "MTEXT" for everything I do and I have on average three different styles I use "Leroy60", "Italic80" and "Bold100." Any ideas what to fill in here??

 

The lisp might work for what I need but I have no clue what I'm doing with that to set the sizes, etc.

[Jaelin]

Not sure I explained that right. When I use this macro it sets the scale to the proper scale I want, or at least it seems to, but when I refresh it holds the linetype scale and text scale that was set previously. Not sure whats going on cause after using the macro I can click on the drawing setup command, the scale is set correctly and I exit and then it'll refresh correctly. It's almost like it's changing the drawing scale but not updating the ltscale and whatever effects the text scale. Hope that better explains it.

[chelsea1307]

the Dimscale is what effects the text scale. I dont know much about lisps either, thats one my company has used for a long time. If you take it over the lisp section I think you will find more answers for both the macro and the lisp

[Jaelin]

the Dimscale is what effects the text scale. I dont know much about lisps either, thats one my company has used for a long time. If you take it over the lisp section I think you will find more answers for both the macro and the lisp

 

Hmmm, I tried this:

^C^C_-AecDwgSetup;SC;7;;;;dimscale;50;ltscale;50;

 

The differences here according to what's being said should have solved my problem but it's still not affecting my text scale. Here's what's happening.

 

1) I have my drawing scale set to 1":1'

2) I use this command which should change everything to 1":50'

3) I grab a piece of text, change it's properties from L60 (Leroy60) to L80 (Leroy80) and it puts the text size at 0.08 which is a scale of 1":1'.

 

Ideas??

 

P.S. Yeah I should have posted this in the lisp section, just didn't realize that section was there at the time.