Whats wrong with this code?

[asos2000]

whats wrong with this code

 

  (initget 0 "MEter Millimeter")
(if (setq DwgScle (getkword "\nWhat is Drawing Units? [MEter/Millimeter] "))
 (if (> 6 (strlen DwgScle))
   (progn
     (command "_.-style" "EC-22-0.1" "romans.shx" "0.22" "0.8" "0" "n" "n" "n")
     (setvar "textsize" 0.22)
     (setq num:Size 0.22))
   (progn
     (command "_.-style" "EC-22-100" "romans.shx" "220" "0.8" "0" "n" "n" "n")
     (setvar "textsize" 220)
     (setq num:Size 220))))

 

its a part of a lisp

When try every line speetly, working well

but all not working

this is error

What is Drawing Units? [MEter/Millimeter] ME

Invalid option keyword.

What is Drawing Units? [MEter/Millimeter]

nil

[CALCAD]

Not sure, but is '0' a valid bit value for initget?

[CALCAD]

Well, I just took a few minutes to test it and it works for me. It doesn't seem to matter what the bit value is. So I don't know what is wrong. Could you post the whole program? Maybe that would give us a clue.

 

Edit : I don't have Autocad, only Intellicad. It might be that Autocad is more picky about the bit values. Try a different value.

[Lee Mac]

Look up initget in the Visual LISP Help files to see what the bit codes equate to.