SIMPLE LISP QUESTION

In the lisp below I need to check if the current dimension style is "LEADER" and if not I need to set the DIMSTYLE to LEADER. I don't know how to construct the "IF" statement.

I want to avoid the "flash" that occurs because the DIMSTYLE command causes the text window to display momentarily each time it runs so I figure I can avoid running the DIMSTYLE command at all if LEADER is already loaded, unless there is a way to set DIMSTYLE to LEADER each time the program runs without the annoying text screen flashing.

I am using ACAD2002.

Any help would be much appreciated.

Garth.

;*AA.LSP

(DEFUN C:AA ()
(SETVAR "cmdecho" 1)
(command "-LAYER" "S" "DIM" "")
(COMMAND "ORTHO" "OFF")
(COMMAND "OSMODE" "16417")
(command "-DIMSTYLE" "R" "LEADER") ; this causes the "flash" which I would like to avoid
(command "qleader" PAUSE)
(setvar "cmdecho" 0)

(princ))

 

Jim,
thanks for the quick reply but this doesn't seem to work for me.
I get the following response:
"Error: malformed string on input"

garth.

 

My bad. I must have deleted one of the quotation marks by accident.
It works now but I made a slight modification.
Thanks for the help!

;*AA.LSP

(DEFUN C:AA ()
(SETVAR "cmdecho" 1)
(command "-LAYER" "S" "DIM" "")
(COMMAND "ORTHO" "OFF")
(COMMAND "OSMODE" "16417")
;(COMMAND "-DIMSTYLE" "R" "LEADER")
(if (/= (getvar "dimstyle") "LEADER")
(command "-dimstyle" "R" "LEADER")
)
(command "qleader" PAUSE)
(setvar "cmdecho" 0)
(princ))



Jim,
thanks for the quick reply but this doesn't seem to work for me.
I get the following response:
"Error: malformed string on input"

garth.

 

Try this
(if (not (= (strcase (getvar "dimstyle")) "LEADER"))
(command ".dimstyle" "R" "LEADER")
)

Tim

 

Oops! That's what I get for getting in a hurry.
Thanks for the correction.