我也来个VLISP直接调用WIN API函数

nonsmall · 发表于 2009-3-5 19:56:00

我找到两种方法可以实现这个功能

不知道你用的是哪一种

yyzhan12 · 发表于 2009-3-5 20:12:00

本帖最后由作者于 2009-3-5 20:26:56 编辑

你想到清除退出时的信息提示了吗?

yyzhan12 · 发表于 2009-3-8 15:12:00

已解决"最后关闭AutoCAD的时候会有个是否保存工程的提示",程序已重新上传,请在6楼下载

不死猫 · 发表于 2009-3-8 16:49:00

(repeat 10(ysx-use-api nil "Private Declare Function GetCurrentProcessId
Lib \"kernel32\" () As Long" "GetCurrentProcessId" nil))

会产生错误

yyzhan12 · 发表于 2009-3-9 11:11:00

这是一个bug,使用如下方法可以避免:

(defun c:test()

(setvar "cmdecho" 0)

(command "_.vbanew")

(repeat 10 (ysx-use-api nil "Private Declare Function GetCurrentProcessId Lib \"kernel32\" () As Long" "GetCurrentProcessId" nil nil))

(ysx-use-api nil "Private Declare Function GetCurrentProcessId Lib \"kernel32\" () As Long" "GetCurrentProcessId" nil T))

(princ)

)

nonsmall · 发表于 2009-3-9 14:53:00

这个也是此程序难以作为普及应用的原因之一

只能暂时作为Lisp扩展研究用途了

yyzhan12 · 发表于 2009-3-9 15:39:00

nonsmall,你另外的一种调用方法是什么?

yyzhan12 · 发表于 2009-3-9 15:43:00

就个人而言,VLISP调用WIN API给人的感觉就像鸡肋,食之无味,弃之可惜

nonsmall · 发表于 2009-3-9 16:11:00

方法还是通过VBA (但不使用vbarun runmacro)区别是Lisp语言多写点或者VBA多写点

对于大多数Lisper来说

习惯自定义的Lisp函数实现较强的功能

也就是VBA可以不会的前提下

能够使用API 对话框等VBA资源写东西最好了

换句话说就是写个能全自动完成VBA部分的程序

yyzhan12 · 发表于 2009-3-9 16:26:00

用vbarun runmacro其实也没什么,关键是退出的信息提示给人感觉总是不太舒服,不知道你第二种方法存不存在这个问题?

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

[函数] 我也来个VLISP直接调用WIN API函数