明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 102|回复: 0

[提问] VBA句子改成lisp

[复制链接]
发表于 2020-6-29 20:25 | 显示全部楼层 |阅读模式
请问下各位大神我想把下边这个句子改成lisp语句
Range(ActiveCell, ActiveCell.Offset(UBound(namearray, 1) - 1, UBound(namearray, 2) - 1)) = namearray
这句话的代码是vba里边直接把数组赋值给对应的范围的单元格
(setq sa (vlax-make-safearray vlax-vbString  (cons 0 2) ))
(vlax-safearray-fill sa '(1 2 3 ))
(setq a1 (Vlax-Get-Property (vlax-get xsl 'Activesheet ) 'Range "A1:h1"))
(vlax-put-property a1 sa)
这是我按照自己的理解写得不过报错了这里是错误的类型
错误: 参数类型错误: (or stringp symbolp): #<safearray...>
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2020-7-15 15:14 , Processed in 0.268115 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表