huanghao35 发表于 2006-10-17 22:13:00

[求助] 错误: 参数类型错误: VLA-OBJECT nil

<P>(defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL)<BR>&nbsp; (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))<BR>&nbsp; (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))<BR>&nbsp; (setq VAL (vl-catch-all-apply<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'vlax-get<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (list VAL "SerialNumber")<BR>&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp; )<BR>&nbsp; (vlax-release-object FILSYS)<BR>&nbsp; (if (vl-catch-all-error-p VAL)<BR>&nbsp;&nbsp;&nbsp; (setq VAL NIL)<BR>&nbsp;&nbsp;&nbsp; VAL<BR>&nbsp; )<BR>) <BR></P>
<P>上面是我在本站找到的程序</P>
<P>在我的电脑里CAD2004、2006都能正确运行&nbsp; </P>
<P>不知为什么 拷到公司电脑2004中就运行出错了；提示如下</P>
<P>错误: 参数类型错误: VLA-OBJECT nil</P>
<P>敬请高人指点！谢谢！</P>
<P><IMG title=em06 style="CURSOR: pointer" onclick='putEmot("em06");' src="Skins/Default/emot/em06.gif"><IMG title=em06 style="CURSOR: pointer" onclick='putEmot("em06");' src="Skins/Default/emot/em06.gif"><IMG title=em06 style="CURSOR: pointer" onclick='putEmot("em06");' src="Skins/Default/emot/em06.gif"><BR></P>

Dallas_whu 发表于 2006-10-19 14:21:00

应该在前面加 (vl-load-com) 这句

HuaiYu 发表于 2006-10-20 21:03:00

这是求硬盘分区的序列号吧

onlynight 发表于 2007-9-29 23:10:00

搞定了吗?

<p>兄弟，我现在也遇上了和你一样的问题，请问你是怎么搞定的?</p><p>万分感谢中.........</p>

cnsdjnzc 发表于 2011-10-27 16:06:51

我也遇见了相同的问题，请问你是怎么解决的？谢谢啊
页: [1]
查看完整版本: [求助] 错误: 参数类型错误: VLA-OBJECT nil