What am I doing wrong?

[whteglve]

I'm trying to have a lisp run and set the variable "shtscale" by checking against another variable "dimscale" and to output something from a list ex: FULL, or 6" = 1'-0". I keep getting an "unknown command" error.

(defun dwgscale ()
(getvar dimscale)
(setq shtscale
   (cond
      ((= dimscale 1) (princ "FULL")) 
      ((= dimscale 2) (princ "6''= 1'-0''"))
      ((= dimscale 4) (princ "3''= 1'-0''"))
      ((= dimscale 8) (princ "1 1/2''= 1'-0''")) 
      ((= dimscale 12) (princ "1''= 1'-0''"))
      ((= dimscale 16) (princ "3/4''= 1'-0''"))
      ((= dimscale 24) (princ "1/2''= 1'-0''"))
      ((= dimscale 32) (princ "3/8''= 1'-0''"))
      (nil (princ "None")) 
    ))
)

[nauggie]

I made some changes - if you don't use the c: after defun you need to type (dwgscale).

(defun c:dwgscale (/ dimscale output)
      (setq dimscale (getvar "dimscale"))

      (setq output (cond
             ((= dimscale 1) "FULL")
             ((= dimscale 2) "6''= 1'-0''")
             ((= dimscale 4) "3''= 1'-0''")
             ((= dimscale 8) "1 1/2''= 1'-0''")
             ((= dimscale 12) "1''= 1'-0''")
             ((= dimscale 16) "3/4''= 1'-0''")
             ((= dimscale 24) "1/2''= 1'-0''")
             ((= dimscale 32) "3/8''= 1'-0''")
             (t "None")
           )
      )
      (princ output)
      (princ)
)