Community
We have this in acad.lsp, though I think there are other places it can go:
{code}
(defun S::STARTUP ()
(setvar "modemacro"
(strcat
"DF:$(getvar,useri1) "
"$(if,$(getvar,snapmode), Snap:)"
"$(if,$(getvar,snapmode),$(rtos,$(getvar,snapunit)) )"
(cond
((= (getvar 'lunits) 1) "Scientific")
((= (getvar 'lunits) 2) "Decimal")
((= (getvar 'lunits) 3) "Engineering")
((= (getvar 'lunits) 4) "Architectural")
((= (getvar 'lunits) 5) "Fractional")
); end cond
)
)
)
{code}
I just added the (cond) portion to test it, and it does what you're after [now I'll probably take it out again, since we virtually always use only one of those]. You may already have something like this with other things in place of the other elements in ours. If you have nothing else to put there on the status line, you could probably get away with just:
{code}
(defun S::STARTUP ()
(setvar "modemacro"
(cond
((= (getvar 'lunits) 1) "Scientific")
((= (getvar 'lunits) 2) "Decimal")
((= (getvar 'lunits) 3) "Engineering")
((= (getvar 'lunits) 4) "Architectural")
((= (getvar 'lunits) 5) "Fractional")
); end cond
)
)
{code}
****GRAIN OF SALT: I find it doesn't update the units type when I change it, the way the display of snap value updates when I change that. It doesn't even update it when opening another drawing in another type of units, but sticks with the type in the first drawing opened when AutoCAD is started. I assume that has something to do with the Lisp vs. Diesel language. I'm not fluent enough in Diesel, and don't even know whether it has a (cond) or similar function. If not, maybe it could be done with a series of (if)'s instead.****
--
Kent Cooper
lsaapedd wrote...
Does anyone know how to use modemacro to place the current drawing units (Arch, Decimal, etc...) on the status line?.... Edited by: Kent1Cooper on May 19, 2010 3:43 PM
[added Grain of Salt paragraph]
{code}
(defun S::STARTUP ()
(setvar "modemacro"
(strcat
"DF:$(getvar,useri1) "
"$(if,$(getvar,snapmode), Snap:)"
"$(if,$(getvar,snapmode),$(rtos,$(getvar,snapunit)) )"
(cond
((= (getvar 'lunits) 1) "Scientific")
((= (getvar 'lunits) 2) "Decimal")
((= (getvar 'lunits) 3) "Engineering")
((= (getvar 'lunits) 4) "Architectural")
((= (getvar 'lunits) 5) "Fractional")
); end cond
)
)
)
{code}
I just added the (cond) portion to test it, and it does what you're after [now I'll probably take it out again, since we virtually always use only one of those]. You may already have something like this with other things in place of the other elements in ours. If you have nothing else to put there on the status line, you could probably get away with just:
{code}
(defun S::STARTUP ()
(setvar "modemacro"
(cond
((= (getvar 'lunits) 1) "Scientific")
((= (getvar 'lunits) 2) "Decimal")
((= (getvar 'lunits) 3) "Engineering")
((= (getvar 'lunits) 4) "Architectural")
((= (getvar 'lunits) 5) "Fractional")
); end cond
)
)
{code}
****GRAIN OF SALT: I find it doesn't update the units type when I change it, the way the display of snap value updates when I change that. It doesn't even update it when opening another drawing in another type of units, but sticks with the type in the first drawing opened when AutoCAD is started. I assume that has something to do with the Lisp vs. Diesel language. I'm not fluent enough in Diesel, and don't even know whether it has a (cond) or similar function. If not, maybe it could be done with a series of (if)'s instead.****
--
Kent Cooper
lsaapedd wrote...
Does anyone know how to use modemacro to place the current drawing units (Arch, Decimal, etc...) on the status line?.... Edited by: Kent1Cooper on May 19, 2010 3:43 PM
[added Grain of Salt paragraph]
Kent Cooper, AIA 
Not true [except for the middle sentence] -- the AutoLISP Reference itself uses (getvar 'FILLETRAD) as its one example of how to use the function. For whatever reason, they use the single-quote-only-at-the-beginning variety there, and the double-quotes-at-both-ends variety in the example for (setvar) [with the same System Variable], but either way works with both functions. This has come up before, and others have been unaware of it. And, it *does* work for me, to put the units variety name in the status line, except for the grain-of-salt problem already described.
--
Kent Cooper
Tony Tanzillo wrote...
Your (cond) doesn't work.
In it, you're passing a quoted symbol to (getvar).
(getvar) requires strings, not symbols.
--
Kent Cooper
Tony Tanzillo wrote...
Your (cond) doesn't work.
In it, you're passing a quoted symbol to (getvar).
(getvar) requires strings, not symbols.
Kent Cooper, AIA
Well, it *was* solved by using a series of Diesel (if) functions, rather than a Lisp (cond) function. This *does* update when you change the Units type within a drawing, or open a different drawing using a different type of Units, and does not require a function to be run in every drawing, or a reactor to respond to changes in Units, or the use of a USERS? System Variable, or anything else like that:
{code}
(defun S::STARTUP ()
(setvar "modemacro"
(strcat
"DF:$(getvar,useri1) "
"$(if,$(getvar,snapmode), Snap:)"
"$(if,$(getvar,snapmode),$(rtos,$(getvar,snapunit)) )"
"$(if,$(=,$(getvar,lunits),1), Scientific)"
"$(if,$(=,$(getvar,lunits),2), Decimal)"
"$(if,$(=,$(getvar,lunits),3), Engineering)"
"$(if,$(=,$(getvar,lunits),4), Architectural)"
"$(if,$(=,$(getvar,lunits),5), Fractional)"
)
)
)
{code}
That includes our other Status-line stuff about our Drawing Factor and Snap settings. For just the Units type, you can do this:
{code}
(defun S::STARTUP ()
(setvar "modemacro"
(strcat
"$(if,$(=,$(getvar,lunits),1),Scientific)"
"$(if,$(=,$(getvar,lunits),2),Decimal)"
"$(if,$(=,$(getvar,lunits),3),Engineering)"
"$(if,$(=,$(getvar,lunits),4),Architectural)"
"$(if,$(=,$(getvar,lunits),5),Fractional)"
)
)
)
{code}
--
Kent Cooper
Kent Cooper wrote...
****GRAIN OF SALT: I find it doesn't update the units type when I change it.... It doesn't even update it when opening another drawing in another type of units, but sticks with the type in the first drawing opened when AutoCAD is started. I assume that has something to do with the Lisp vs. Diesel language. ....
{code}
(defun S::STARTUP ()
(setvar "modemacro"
(strcat
"DF:$(getvar,useri1) "
"$(if,$(getvar,snapmode), Snap:)"
"$(if,$(getvar,snapmode),$(rtos,$(getvar,snapunit)) )"
"$(if,$(=,$(getvar,lunits),1), Scientific)"
"$(if,$(=,$(getvar,lunits),2), Decimal)"
"$(if,$(=,$(getvar,lunits),3), Engineering)"
"$(if,$(=,$(getvar,lunits),4), Architectural)"
"$(if,$(=,$(getvar,lunits),5), Fractional)"
)
)
)
{code}
That includes our other Status-line stuff about our Drawing Factor and Snap settings. For just the Units type, you can do this:
{code}
(defun S::STARTUP ()
(setvar "modemacro"
(strcat
"$(if,$(=,$(getvar,lunits),1),Scientific)"
"$(if,$(=,$(getvar,lunits),2),Decimal)"
"$(if,$(=,$(getvar,lunits),3),Engineering)"
"$(if,$(=,$(getvar,lunits),4),Architectural)"
"$(if,$(=,$(getvar,lunits),5),Fractional)"
)
)
)
{code}
--
Kent Cooper
Kent Cooper wrote...
****GRAIN OF SALT: I find it doesn't update the units type when I change it.... It doesn't even update it when opening another drawing in another type of units, but sticks with the type in the first drawing opened when AutoCAD is started. I assume that has something to do with the Lisp vs. Diesel language. ....
Kent Cooper, AIA
FYI
MODEMACRO (used to be?) limited to 255 characters.
When you run out of characters, that's it. No more to display.
Alternative is to create a new pull-down and directly paste
the diesel code between the "[ ]".
See my screenshot.
MODEMACRO (used to be?) limited to 255 characters.
When you run out of characters, that's it. No more to display.
Alternative is to create a new pull-down and directly paste
the diesel code between the "[ ]".
See my screenshot.
Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
