(setq oldortho (getvar "orthomode"))
(setq oldcanno (getvar "cannoscalevalue"))
I have a lisp routine for finding scale of a drawing. Search the cannoscalevalue to find drawing scale and do your required math from there.
Hope this helps.
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register