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

小狼 · 发表于 2004-10-9 22:08:00

Vlisp能调用WIN系统API函数吗?
我能像WIN系统一样选择多个文件吗?
能不用VL-MKDIR函数建立目录吗?

小狼 · 发表于 2004-10-10 20:52:00

哎,还是不能直接调用WinAPI函数
请问有Shell的帮助没?最好能有函数说明

meflying · 发表于 2004-10-11 08:26:00

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

小狼 · 发表于 2004-10-11 22:56:00

我不知道是调用的什么函数,只知道像是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 · 发表于 2004-10-12 08:29:00

这是ACTIVEX对象,VLISP和VBA在这里是一样的,都是使用对象的属性和方法来编程.
关于这个SHELL,你要参考其他资料中的SHELL对象的介绍

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

发表回复

精选推荐