程序在vlisp编辑器中加载与用appload加载有何不同？

cjs

为了保存最新的字体大小，我需要在注册表中写入数据，不知为什么，程序在不同的机子上运行情况不同，有时能写入，有时却不能（好像cad2002都没问题，大多是2004和2005出问题），但这种情况只会在程序从外部载入时出现，如果在vlisp编辑器中调试则都能写入。请大家帮我分析一下是哪儿的问题？程序按ESC键或用其他方法使其出错退出以便调用error函数。 (defun *error* (msg)
。。。。。。
(vl-registry-write
"HKEY_CURRENT_USER\\fontsize"
"fault"
flt)
(exit)
) ;_ 结束defun
(defun c:xy
(/ cmd blip snap ps pm pe ys ym xp yp x y fsty ls i s x0 y0)

。。。。。。
(setq flt
(vl-registry-read
"HKEY_CURRENT_USER\\fontsize"
"fault"
) ;_ 结束vl-registry-read
) ;_ 结束setq
(if (not flt)
(setq flt (vl-registry-write
"HKEY_CURRENT_USER\\fontsize"
"fault"
"2"
) ;_ 结束vl-registry-write
) ;_ 结束setq
) ;_ 结束if
。。。。。。
(setq size (getreal (strcat "\n 请输入字高<" flt ">:")))
(if (= size nil)
(setq size (atof flt))
(setq flt (rtos size))
) ;_ 结束if
。。。。。。
) ;_ 结束defun