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

lovelilin

各位能帮我看看下面程式有什么问题吗？当我在繁体版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)

lovelilin

对上面程式我还注明一点其中BIG50RGB。DAT文件我是放在CAD搜索路径下面的。程式在繁体下可以执行但是在简体下面执行到(setq ff (open dat_file "r"))就结束了不知为什么???

spring

文件是 BIG50RGB.dat 还是 BIG5ORGB.dat 注意 0 和 O ，你看一下，应该是这里出问题了 还有建议你使用局部变量，不要用全局变量 (setvar "filedia" 1) 这句可以不要的 还有那些 VL 函数我就就看不懂了，呵呵。 那是取得当前的配置文件吗???