AutoCAD 2007/2008/2009 DWG Format

[#1]

I have a lsp routine
that breaks a line in both directions the distance is per
the dimscale

now the dim scale is basicly off with annotative scaling on

is there another comand that can be used in its place

i tried cannoscalevalue but the #'s it gives back gets bigger the smaller the scale is
(the oposite of how dimscale worked)

lsp below





(defun C:BL (/ omode a b c pt1)
(defun *error* ()
(setvar "orthomode" omode)
(setvar "osmode" osmod)
(princ "\nError detected...aborting")
(terpri)
)
(setq SCL (getvar "dimscale"))
(setq omode (getvar "orthomode"))
(setq osmod (getvar "osmode"))
(setvar "orthomode" 1)
(setvar "osmode" 32)
(setq a (getpoint "\nSelect INTERSECTION :"))
(setvar "osmode" 512)
(INITGET "X")
(setq pt1 (getpoint a (strcat "\nSCL=" (RTOS SCL 2 2) "-Please pick lower line Yizil: Nea ")))
(if (= PT1 "X")
(progn
(*error*)
(exit)
)
)
(setvar "osmode" 0)
(setq b (angle a pt1))
(setq c (* SCL 0.040))
(COMMAND "BREAK" PT1 "F" (POLAR A B (- C)) (POLAR A B C))
(setvar "orthomode" omode)
(setvar "osmode" osmod)
)

any ideas
any help would be great

[#2]

Divide the cannoscalevalue into 1
1 / 0.0208333333 = 48

[#3]

do you know how to write that in the above script?

[#4]

(setq SCL (/ 1.0 (getvar "cannoscalevalue")))

I make no claims to being an accomplished lisp writer, but the above should work.