错误: 此类型的 LISP 值不能强制转换成 VARIANT: -32755

aicr317

如题，这个问题怎么解决。。。。以前在2004上写的程序完美运行，在07或更高版就不行了。。。


(defun rw(file l_dat / stream rtn)
  (setq stream (vlax-get-or-create-object "ADODB.Stream"))
  (vlax-put-property stream 'Type 1)
  (vlax-invoke stream 'Open)
  (if l_dat
    (progn
      (setq l_dat (vlax-safearray-fill (vlax-make-safearray 17 (cons 0 (1- (length l_dat)))) l_dat))
      (vlax-put-property stream 'Position 0)
      (vlax-invoke-method stream 'Write l_dat)
      (vlax-invoke-method stream 'SaveToFile file 2)
    )
    (progn
      (vlax-invoke-method stream 'LoadFromFile file)
      (vlax-put-property stream 'Position 0)
      (setq rtn (vlax-safearray->list (vlax-variant-value (vlax-invoke-method stream 'Read (vlax-get stream 'Size)))))
    )
  )
  (vlax-release-object stream)
  rtn
)

NJZX05

能不能把程序写整一点啊，都没法调试了

aicr317

恩是的，不知道什么原因，生成的值都不对！

aicr317

补充一句，读取文件生成的值不对，但是输出没有问题。

aicr317

NJZX05 发表于 2013-11-14 12:27
能不能把程序写整一点啊，都没法调试了

补全。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

aicr317

顶起，看看有没有高手解决下，感谢

NJZX05

你连接的是什么数据库啊，数据库里只有一个表吗？结果不正确的原因是不是(vlax-put-property stream 'Position 0)需要重定位啊。

我用access调试了一下，发现程序运行是正常的啊，没有你所说的，不能强制转换的问题啊。

NJZX05

看了你的这个贴子http://bbs.mjtd.com/thread-108428-1-1.html，得到了启发，由于CAD2008中仅二进制位的后8位有效，因此，用nzl1116的办法,可以很好的解决此问题,也就是在读取完毕后,加上一句：
(setq rtn (mapcar '(lambda (Item)(rem Item 256)) rtn))
这样就能很好地解决了，而经测试,如果用大于255的数据代入的话，程序也不会让写