[求助]错误: 不支持结果类型: 17
 

[求助]错误: 不支持结果类型: 17
www.dimcax.com
[求助]错误: 不支持结果类型: 17
请问
错误: 不支持结果类型: 17
如何处理?
我的源代码如下:
(defun strtobyte(str)
(setq ob (vlax-create-object "microsoft.xmldom"))
(vlax-invoke ob 'loadxml "<?xml version=\"\"1.0\"\"?>")
(setq pic (vlax-invoke ob 'createelement "pic"))
(vlax-put pic 'datatype "bin.hex")
(vlax-put pic 'nodetypedvalue str)
(setq re (vlax-get pic 'nodetypedvalue))
(vlax-release-object ob)
re
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
命令: (strtobyte "1111")
; 错误: 不支持结果类型: 17
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
(vlax-get-property pic "nodetypedvalue")
d
多谢前辈指点
现在的问题是如果(strtobyte "1111")
后面的字符串过长 无法一次性使用(strtobyte "1111")转换出结果怎么处理呢
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.