WINDOWS API 编程的另一种方式实现

Highflybird

windows API 编程 在lisp中的实现，aroom和nonsmall做了很多工作，我这里提供另外一种思路：
利用excel.vba的实现，比较完美，实现过程中没有出现什么对话框，可以得到返回值。
主干部分还是比较简单。呵呵。
大家不防讨论一下。



下面实现了在背景中画一个白色椭圆（以为不能恢复的，不要惊慌，刷新一下屏幕一下就可以了）


[pcode=lisp,true]
(defun c:API (/ wsh oEx oBk Mod str)
  (setq wsh (vlax-create-object "wscript.Shell"))
  (vlax-invoke wsh 'RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\11.0\\Excel\\Security\\AccessVBOM" 1 "REG_DWORD")
  (vlax-invoke wsh 'RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\12.0\\Excel\\Security\\AccessVBOM" 1 "REG_DWORD")
  (vlax-invoke wsh 'RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\14.0\\Excel\\Security\\AccessVBOM" 1 "REG_DWORD")

  (setq oEx (vlax-create-object "excel.application"))
  (setq obk (vlax-invoke (vlax-get oEx 'workbooks) 'add))
  (setq mod (vlax-invoke (vlax-get (vlax-get obk 'VBProject) 'VBComponents) 'add 1))
  (setq str
"Private Declare Function SetCursorPos Lib \"user32\" (ByVal x As Long, ByVal y As Long) As Long
Declare Function GetDC Lib \"user32\" Alias \"GetDC\" (ByVal hwnd As Long) As Long
Declare Function Ellipse Lib \"gdi32\" Alias \"Ellipse\" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Sub MyMacro(x as Long, y as Long)
SetCursorPos x, y
Ellipse GetDC(0),0,0,x,y
End Sub"
  )
  (vlax-invoke (vlax-get mod 'CodeModule) 'AddFromString str)
  (vlax-invoke oEx 'run "MyMacro" 800 600)
  (vlax-put oEx 'DisplayAlerts 0)
  (vlax-invoke obk 'close)
  (vlax-invoke oEx 'quit)
  (vlax-release-object mod)
  (vlax-release-object obk)
  (vlax-release-object oEx)
  (vlax-release-object wsh)
  (princ)
)
[/pcode]

Highflybird

呵呵，如果能利用api的话，将极大地扩展lisp的编程能力，因为它已经是触及到windows底层。
譬如可以利用它来进行多线程编程，等等。
下面我上传一个windowsAPI编程帮助，从中可以看到，它几乎有点无所不能。

这种实现的方式有个缺点，就是要利用excel,万一别人没装的话，就可能用不了
好处就是据说excel的vb比vb还要vb。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:419543windowsAPI32.rar 
下载次数:184  文件大小:344.32 KB 
下载权限: 不限 以上  [免费赚D豆]

Highflybird

这个是vba文件，大家不妨加载运行看看，欢迎建议和错误报告！
程序思路就是利用
1) api 的图像处理函数，GetDC, SetDIBits,ReleaseDC 等

2) api 的文件处理函数 ，GetOpenFileName , GetWindowLong 等

3)利用 vba 自身的对话框 和 image控件，用来显示和装载图片。

4)这样在内存中得到了图像的数据，然后把数据的每个像素点描绘到CAD中。

5)对CAD的每个像素，设置真彩色和位置。这样，一副图片就完成了。

利用这个程序，可以进行简单的图像处理功能，譬如：马赛克，增噪，反色，拉伸，旋转，改变分辨率，等等。

可见，如果能好好利用VBA ，LISP, 脚本技术，WMI，和API，你完全可以达到和arx一样的效果。而且没有版本的限制。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:readimg.rar 
下载次数:123  文件大小:150.02 KB 
下载权限: 不限 以上  [免费赚D豆]

这几天已经发展能用API技术在CAD编写像C++那样的对话框，远比vba的对话框和DCL丰富，以及对图像文件的处理。把图片文件画到图形中去（不是插入哦）。
发现了综合运用脚本，vba,和api以及lisp的妙处。

zsw23

高山仰止，景行行止。虽不能至，然心向往之。

wowan1314

叹为观止！

caozhengbai

叹为观止！
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-667889-1-1.html

dnbcgrass

实在是高！

pengfei2010

dnbcgrass 发表于 2013-6-5 19:00
实在是高！

有种仰望星空的感觉

pengfei2010

有种仰望星空的感觉
:lol:lol:lol

q3_2006

跟CAD没啥关系了吧！

NET-JOB

曲高和寡啊，越来越不懂了。高版可以去从事cad软件开发了

前生

厉害的。学习学习在学习

wuqiu1986

很厉害啊，佩服

jyzas

高手来的，支持

kkt123

叹为观止！支持;P