(defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL) (setq FILSYS (vlax-create-object "Scripting.FileSystemObject")) (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE)) (setq VAL (vl-catch-all-apply 'vlax-get (list VAL "SerialNumber") ) ) (vlax-release-object FILSYS) (if (vl-catch-all-error-p VAL) (setq VAL NIL) VAL ) )
上面是我在本站找到的程序
在我的电脑里CAD2004、2006都能正确运行
不知为什么 拷到公司电脑2004中就运行出错了;提示如下
错误: 参数类型错误: VLA-OBJECT nil
敬请高人指点!谢谢!
  
|