[公告]：vlisp直接使用WINDOWS API已经实现 提供思路+个提示

nonsmall

终于搞定这个问题 庆祝一下

我已经证明完全用VLisp(不必间接调用编译好的dll之类控件 不写vbs)

就可以使用Windows API处理问题!!

示例函数:

Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long


命令: (GetCurrentProcessId)
"3436"
命令: (SetCursorPos 200 670)
命令: (SetCursorPos 200 680)
命令: (SetCursorPos 200 300)

命令: (ShowCursor 0);隐藏鼠标
命令: (ShowCursor 1);显示鼠标

命令: (PlaySound "C:\\WINDOWS\\Media\\Windows XP 启动.wav" 1 1)


提供思路:
1 LISP自己能解释 API 语句吗?

2 当然不能 那靠谁解释(想想可以解释API的并且LISP能借用的都有哪些东西  大家可以跟帖讨论)?

3 怎样把代码交给解释器? (直接传递?写个文件?)

4 解释后怎样告诉LISP结果?

5 再给个提示:直接传递?间接传递?

上面的问题想想就出来了

大家猜了不少 7 楼是正解 但是我的其他发言也没有骗人.

zhang8755

错误: no function definition: DECLARE_FUNCTION

DECLARE_FUNCTION 是谁定义的？
VBA？

nonsmall

我自己用LISP定义的
我说了完全用lisp编写
不用VB定义函数帮忙

eachy

关注。。。。

还有所保留，象 aroom 一样？

zhang8755

Lib "kernel32" Alias \"GetCurrentProcessId" () As Long
看着就像vb的语法
等楼主解密

clearlai

楼主就晒晒你的源码。或者说说思路。。^_^

zhang8755

(vl-vbarun macroname)
打赌楼主用到了上面这个函数

nonsmall

现在还有一些问题需要解决
我需要判断哪个acad.exe在进程中是当前CAD的
按照楼上的意思写出一个.vbs也可以完全实现的

eachy

用 HWND 判断当前？

nonsmall

我提供了思路在一楼

-----------------------------------
HWND确实可以
其实ACET有函数(就是担心有些人电脑不装ET)
我想另外有没有办法可以判断
API 方法需要先处理一下这个问题才能生成 所以不能用

它山之石

持续关注中
老猫
净出新点子

nonsmall

以前借助第三方调用API的程序

API需要封装好 只能调用

无法根据自己的需要临时添加API

现在可以根据需要

即时生成需要的API调用函数(用lisp拆解API声明 自动转为lisp函数定义)

以下为今天测试成功样例:

"Declare Function SetCursorPos Lib \"user32\" (ByVal x As Long, ByVal y As Long) As Long"

自动生成函数 (SetCursorPos var0 var1)

使用(SetCursorPos 200 300);设置鼠标位置



Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

自动生成函数 (PlaySound var0 var1 var2)

使用(PlaySound "C:\\WINDOWS\\Media\\Windows XP 启动.wav" 1 1);播放WAV文件

eachy

只了解winapi在 Autocad VBA 中可以声明后调用，vl 如何完成过渡转转还没有想出来

nonsmall

一楼再加个提示
我看了以前的资料
这个问题好像很多年没讨论了

TYEEXDD

高人啊！关注中。。。

期待老猫大侠出招解密，造福黎民，此乃名留青史之举啊，谨向猫大侠致敬。。。

猫大侠能发点资料给我邮箱么？tyeexdd@126.com， QQ：5488079   多谢！