topic Re: Check "measurement" var. on dwg open in Visual LISP, AutoLISP and General Customization Forum

Check "measurement" var. on dwg open

Anonymous — Wed, 12 Jan 2000 17:40:25 GMT

Having discovered that drawings recovered after a crash ALWAYS have
MEASUREMENT set to "0",

I have been trying to get a little bit of lisp to check the status of
MEASUREMENT and, if it is not "1", prompt the user if he/she wants to change
it.

I have tried putting the routine in acaddoc.lsp, as partof S::STARTUP, and
in acad.lsp. I have been able to get the routine to run, but it does not
wait for the user to respond to the prompt.

Can anyone elighten me?

thanks

Keith P.

Balston & Company

Re: Check "measurement" var. on dwg open

Anonymous — Wed, 12 Jan 2000 23:00:16 GMT

Good intentions but it might be annoying to be prompted to change
MEASUREMENT for every valid setting of 0.

"Keith Pocock" wrote in message
news:85ieih$d7e22@adesknews2.autodesk.com...
> Having discovered that drawings recovered after a crash ALWAYS have
> MEASUREMENT set to "0",
>
> I have been trying to get a little bit of lisp to check the status of
> MEASUREMENT and, if it is not "1", prompt the user if he/she wants to
change
> it.
>
> I have tried putting the routine in acaddoc.lsp, as partof S::STARTUP, and
> in acad.lsp. I have been able to get the routine to run, but it does not
> wait for the user to respond to the prompt.
>
> Can anyone elighten me?
>
>
> thanks
>
> Keith P.
>
> Balston & Company
>
>

Re:

Anonymous — Thu, 13 Jan 2000 01:15:34 GMT

Frank

He may be trying to set the undocmented measureinit variable since he's in
the UK.

"Frank Oquendo" wrote in message
news:85j19t$evg24@adesknews2.autodesk.com...
> Good intentions but it might be annoying to be prompted to change
> MEASUREMENT for every valid setting of 0.
>
> "Keith Pocock" wrote in message
> news:85ieih$d7e22@adesknews2.autodesk.com...
> > Having discovered that drawings recovered after a crash ALWAYS have
> > MEASUREMENT set to "0",
> >
> > I have been trying to get a little bit of lisp to check the status of
> > MEASUREMENT and, if it is not "1", prompt the user if he/she wants to
> change
> > it.
> >
> > I have tried putting the routine in acaddoc.lsp, as partof S::STARTUP,
and
> > in acad.lsp. I have been able to get the routine to run, but it does not
> > wait for the user to respond to the prompt.
> >
> > Can anyone elighten me?
> >
> >
> > thanks
> >
> > Keith P.
> >
> > Balston & Company
> >
> >
>
>

Re:

Anonymous — Thu, 13 Jan 2000 03:55:27 GMT

As I see it, Frank, and I may be nearsighted:-). There are only two valid
settings for Measurement. Measurement = 1 means the drawing is a metric
(mm) drawing. Measurement = 0 means it is note.

For those who haven't run into this. When measurement = 1, Acad uses the
metric versions of acad.pat and acad.lin.

--
==============================
Michael Weaver
By day: Charles Bettisworth & Co.
mweaver@bettisworth.com
By night: AlasCAD
alascad@go.com
AOL Instant messenger screen name:
AlasCAD
AUGI #w2170
==============================

"Frank Oquendo" wrote in message
news:85j19t$evg24@adesknews2.autodesk.com...
> Good intentions but it might be annoying to be prompted to change
> MEASUREMENT for every valid setting of 0.
>
> "Keith Pocock" wrote in message
> news:85ieih$d7e22@adesknews2.autodesk.com...
> > Having discovered that drawings recovered after a crash ALWAYS have
> > MEASUREMENT set to "0",
> >
> > I have been trying to get a little bit of lisp to check the status of
> > MEASUREMENT and, if it is not "1", prompt the user if he/she wants to
> change
> > it.
> >
> > I have tried putting the routine in acaddoc.lsp, as partof S::STARTUP,
and
> > in acad.lsp. I have been able to get the routine to run, but it does not
> > wait for the user to respond to the prompt.
> >
> > Can anyone elighten me?
> >
> >
> > thanks
> >
> > Keith P.
> >
> > Balston & Company
> >
> >
>
>

Re: Check "measurement" var. on dwg open

Anonymous — Thu, 13 Jan 2000 04:02:05 GMT

Keith,

You might want to consider doing the following.

Within the s::startup add the following:
(if (findfile "autoload.lsp")(load (findfile "autoload.lsp")))

Then in the drawing directory for metric drawings create an autoload.lsp
file. Set all of your project specific settings in this file. I often use
this as a pseudo script by placing commands that update things like the
title block drawn date. I never have to worry about having the wrong date
on my drawings after doing this.

==============================
Michael Weaver
By day: Charles Bettisworth & Co.
mweaver@bettisworth.com
By night: AlasCAD
alascad@go.com
AOL Instant messenger screen name:
AlasCAD
AUGI #w2170
==============================

"Keith Pocock" wrote in message
news:85ieih$d7e22@adesknews2.autodesk.com...
> Having discovered that drawings recovered after a crash ALWAYS have
> MEASUREMENT set to "0",
>
> I have been trying to get a little bit of lisp to check the status of
> MEASUREMENT and, if it is not "1", prompt the user if he/she wants to
change
> it.
>
> I have tried putting the routine in acaddoc.lsp, as partof S::STARTUP, and
> in acad.lsp. I have been able to get the routine to run, but it does not
> wait for the user to respond to the prompt.
>
> Can anyone elighten me?
>
>
> thanks
>
> Keith P.
>
> Balston & Company
>
>

Re:

Anonymous — Thu, 13 Jan 2000 08:51:10 GMT

Frank and Mike - thanks for the replies
Yes I am in the UK and ALL our drawings are metric (you know we dumped that
querky Imperial stuff years ago )
Hence it is very annoying to find that drawings recovered after a crash have
been reset to Imperial. It often goes unnoticed until a user cannot figure
out why hatches/linetypes are behaving strangely.
I have gone to the extreme of removing ACAD.PAT and ACAD.LIN from the search
paths (leaving the ISO versions in place), then the user gets notified that
MEASUREMENT is incorrect by a file not found error when hatching or
importing linetypes.

So yes, I _really_ do want to be notified if a drawing I have opened is
Imperial.

And what's the best way to achieve it please!!

thanks

Keith

"Frank Oquendo" wrote in message
news:85j19t$evg24@adesknews2.autodesk.com...
> Good intentions but it might be annoying to be prompted to change
> MEASUREMENT for every valid setting of 0.
>
> "Keith Pocock" wrote in message
> news:85ieih$d7e22@adesknews2.autodesk.com...
> > Having discovered that drawings recovered after a crash ALWAYS have
> > MEASUREMENT set to "0",
> >
> > I have been trying to get a little bit of lisp to check the status of
> > MEASUREMENT and, if it is not "1", prompt the user if he/she wants to
> change
> > it.
> >
> > I have tried putting the routine in acaddoc.lsp, as partof S::STARTUP,
and
> > in acad.lsp. I have been able to get the routine to run, but it does not
> > wait for the user to respond to the prompt.
> >
> > Can anyone elighten me?
> >
> >
> > thanks
> >
> > Keith P.
> >
> > Balston & Company
> >
> >
>
>

Re:

Anonymous — Thu, 13 Jan 2000 20:07:03 GMT

Well, for notification you could include this at the end of your acad.lsp
or acaddoc.lsp S::Startup

(if (= 0 (getvar "measurement")) (alert "This drawing is Imperial"))

If you want to automatically change it to Metric, you could use:

(if (= 0 (getvar "measurement")) (setvar "measurement" 1))

Or to go further, you could do both by using:

(if (= 0 (getvar "measurement")) (progn
(alert "This drawing is Imperial . . . .\nAnd will be changed to Metric.
")
(setvar "measurement" 1)
) )

FD

Keith Pocock wrote in article
<85k3uc$ge016@adesknews2.autodesk.com>...
> Frank and Mike - thanks for the replies
> Yes I am in the UK and ALL our drawings are metric (you know we dumped
that
> querky Imperial stuff years ago )
> Hence it is very annoying to find that drawings recovered after a crash
have
> been reset to Imperial. It often goes unnoticed until a user cannot
figure
> out why hatches/linetypes are behaving strangely.
> I have gone to the extreme of removing ACAD.PAT and ACAD.LIN from the
search
> paths (leaving the ISO versions in place), then the user gets notified
that
> MEASUREMENT is incorrect by a file not found error when hatching or
> importing linetypes.
>
> So yes, I _really_ do want to be notified if a drawing I have opened is
> Imperial.
>
> And what's the best way to achieve it please!!
>
> thanks
>
> Keith
>
>
> "Frank Oquendo" wrote in message
> news:85j19t$evg24@adesknews2.autodesk.com...
> > Good intentions but it might be annoying to be prompted to change
> > MEASUREMENT for every valid setting of 0.
> >
> > "Keith Pocock" wrote in message
> > news:85ieih$d7e22@adesknews2.autodesk.com...
> > > Having discovered that drawings recovered after a crash ALWAYS have
> > > MEASUREMENT set to "0",
> > >
> > > I have been trying to get a little bit of lisp to check the status of
> > > MEASUREMENT and, if it is not "1", prompt the user if he/she wants to
> > change
> > > it.
> > >
> > > I have tried putting the routine in acaddoc.lsp, as partof
S::STARTUP,
> and
> > > in acad.lsp. I have been able to get the routine to run, but it does
not
> > > wait for the user to respond to the prompt.
> > >
> > > Can anyone elighten me?
> > >
> > >
> > > thanks
> > >
> > > Keith P.
> > >
> > > Balston & Company
> > >
> > >
> >
> >
>
>
>

Re:

Anonymous — Thu, 13 Jan 2000 21:40:32 GMT

Thank you.
Will I be able to even further and offer the user the option with a Y/N
question, I wonder.

I'll try it and see......

Regards,

Keith P.

"Flitter Dee" wrote in message
news:01bf5e01$a995ac80$d557d2d0@lms-1...
> Well, for notification you could include this at the end of your acad.lsp
> or acaddoc.lsp S::Startup
>
> (if (= 0 (getvar "measurement")) (alert "This drawing is Imperial"))
>
> If you want to automatically change it to Metric, you could use:
>
> (if (= 0 (getvar "measurement")) (setvar "measurement" 1))
>
> Or to go further, you could do both by using:
>
> (if (= 0 (getvar "measurement")) (progn
> (alert "This drawing is Imperial . . . .\nAnd will be changed to Metric.
> ")
> (setvar "measurement" 1)
> ) )
>
> FD
>
> Keith Pocock wrote in article
> <85k3uc$ge016@adesknews2.autodesk.com>...
> > Frank and Mike - thanks for the replies
> > Yes I am in the UK and ALL our drawings are metric (you know we dumped
> that
> > querky Imperial stuff years ago )
> > Hence it is very annoying to find that drawings recovered after a crash
> have
> > been reset to Imperial. It often goes unnoticed until a user cannot
> figure
> > out why hatches/linetypes are behaving strangely.
> > I have gone to the extreme of removing ACAD.PAT and ACAD.LIN from the
> search
> > paths (leaving the ISO versions in place), then the user gets notified
> that
> > MEASUREMENT is incorrect by a file not found error when hatching or
> > importing linetypes.
> >
> > So yes, I _really_ do want to be notified if a drawing I have opened is
> > Imperial.
> >
> > And what's the best way to achieve it please!!
> >
> > thanks
> >
> > Keith
> >
> >
> > "Frank Oquendo" wrote in message
> > news:85j19t$evg24@adesknews2.autodesk.com...
> > > Good intentions but it might be annoying to be prompted to change
> > > MEASUREMENT for every valid setting of 0.
> > >
> > > "Keith Pocock" wrote in message
> > > news:85ieih$d7e22@adesknews2.autodesk.com...
> > > > Having discovered that drawings recovered after a crash ALWAYS have
> > > > MEASUREMENT set to "0",
> > > >
> > > > I have been trying to get a little bit of lisp to check the status
of
> > > > MEASUREMENT and, if it is not "1", prompt the user if he/she wants
to
> > > change
> > > > it.
> > > >
> > > > I have tried putting the routine in acaddoc.lsp, as partof
> S::STARTUP,
> > and
> > > > in acad.lsp. I have been able to get the routine to run, but it does
> not
> > > > wait for the user to respond to the prompt.
> > > >
> > > > Can anyone elighten me?
> > > >
> > > >
> > > > thanks
> > > >
> > > > Keith P.
> > > >
> > > > Balston & Company
> > > >
> > > >
> > >
> > >
> >
> >
> >