程式的问题!求助!!!!

lovelilin · 发表于 2004-7-12 11:12:00

各位能帮我看看下面程式有什么问题吗？当我在繁体版CAD打开时可以但是我的简体版CAD打开时命令行会出现下面提示:
(error: bad argument type: stringp nil)
我的程式如下所示:
   (defun c:stt ()
   (setvar "CMDECHO" 0)
   (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 dat_file (findfile "BIG50RGB.dat"))
   (setq ff (open dat_file "r"))
   (setq data (read-line    ff))
   (close ff)
   (cond ((= data "0") (command "-STYLE" "" "china" "0" "" "" "" "" ""))
   ((= data "1") (command "-STYLE" "" "CTXT"    "0" "" "" "" "" "")))
   (prin1)
)
(c:stt)