(defun c:stt ()
  (setvar "CMDECHO" 0)
  (command "regenauto" "on")
  (setvar "pellipse" 1)
         (vl-load-com)
         (setq	acadobj	(vlax-get-acad-object)
	        acadpro	(vla-get-preferences acadobj)
	        acaddis	(vla-get-user acadpro)
	       key	(vla-get-KeyboardAccelerator acaddis)
                         )
         (vlax-put-property
           acaddis
           "KeyboardAccelerator"
           acPreferenceCustom
            )
           (setvar "filedia" 1)
  (setq ll (findfile "Big5orGB.dat"))
  (setq vv (open ll "r"))
  (setq data1 (read-line  vv))
  (close vv)
  (lilin)
  (cond ((= data "0") (command "-STYLE" "" "c2.shx,china.shx" "0" "" "" "" "" ""))
	((= data "1") (command "-STYLE" "" "c2.shx,ctxt.shx" "0" "" "" "" "" "")))         
  (prin1)
)