[求助]：这个表怎么转换成safearray?

ihqu · 发表于 2006-8-22 11:16:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

这个表怎么转换成safearray
("string" 123.0 (10.0 20.0 0))

eachy · 发表于 2006-8-22 22:46:21

Lisp 不能直接构造这样的 Safearray。但可以这样：
构造 variant 类型的safearray -> 用 vlax-safearray-put-element 依次给每个 var 赋值，其中每个值为按其类型的 variant

String -〉(vlax-make-variant "String")
Real -> (vlax-make-variant 123.)
List -> 要改成 safearray

mmmm · 发表于 2006-8-23 11:37:34

(Defun vlsys-list->variant (obj / item nest rrr rtn)
(if (/= (type obj) 'list)
(setq rtn (vlax-make-variant obj))
(progn
(setq rrr nil
nest nil
)
(foreach item obj
(setq rrr (append rrr (list (vlsys-list->variant item))))
(if (null nest)
(setq nest (= (type item) 'list))
)
)
(if nest
(setq rtn (vlsys-list->variant rrr))
(progn
(setq rtn (vlax-make-safearray
vlax-vbVariant
(cons 0 (1- (length rrr)))
)
)
(vlax-safearray-fill rtn rrr)
)
)
)
)
rtn
)

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：这个表怎么转换成safearray?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子