Vlisp能调用WIN系统API函数吗?

小狼

Vlisp能调用WIN系统API函数吗?


我能像WIN系统一样选择多个文件吗?


能不用VL-MKDIR函数建立目录吗?

meflying

http://www.mjtd.com/mcdown/list.asp?id=81

小狼

哎,还是不能直接调用WinAPI函数


请问有Shell的帮助没?最好能有函数说明

meflying

没有SHELL这个函数,只有SHELL命令,在帮助文件中有说明

小狼

我不知道是调用的什么函数,只知道像是VBA的 如(网上抄的,秋风大虾的),请指教,谢谢 (defun getFolder (msg / WinShell shFolder path catchit)
(vl-load-com)
(setq winshell (vlax-create-object "Shell.Application"))
(setq
shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)
)
(setq
catchit (vl-catch-all-apply
'(lambda ()
(setq shFolder (vlax-get-property shFolder 'self))
(setq path (vlax-get-property shFolder 'path))
)
)
)
(if (vl-catch-all-error-p catchit)
nil
(if (/= "\\" (substr path (strlen path)))
(setq path (strcat path "\\"))
path
)
)
)

meflying

这是ACTIVEX对象,VLISP和VBA在这里是一样的,都是使用对象的属性和方法来编程.


关于这个SHELL,你要参考其他资料中的SHELL对象的介绍