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