求通过lisp加载VBA的代码

fanny_6 · 发表于 2014-1-2 09:04

我写了一个VBA，现在想用lisp去加载。由于我对lisp零基础，想麻烦大侠帮我写一个。需求如下：
打开文档时，如果文档包含字符串“@”，则加载VBA。
当前文件名中包含字符串“@”时，通过lisp，为VBA设置快捷命令。

陨落 · 发表于 2014-1-2 09:04

(vl-load-com)
(if(vl-string-position (ascii "@") (getvar "dwgname") 0 T) (vl-vbaload "VBA路径"))

fanny_6 · 发表于 2014-1-2 12:36

本帖最后由 fanny_6 于 2014-1-2 13:53 编辑

可以了，谢谢

清风明月名字 · 发表于 2014-1-2 14:10

谢谢楼主代码分享！

陨落 · 发表于 2014-1-2 15:16

哈哈，只能说楼主太大方了

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

[提问] 求通过lisp加载VBA的代码