zdqwy19 发表于 2011-11-28 07:48:43

好东西，

jack093 发表于 2013-7-15 18:44:29

好像没有反应，返回都是nil，系统是winxp+autocad2005，怎么回事？

命令: (win32api "user32" "GetWindowRect" (list hwnd 'rt))
nil

命令: (setq hframeRgn (win32api "gdi32" "CreateRectRgnIndirect" (list 'rt)))
nil

命令: (setq hholeRgn (win32api "gdi32" "CreateEllipticRgn" (list 100 100 300
300)))
nil

命令: (win32api "gdi32" "CombineRgn" (list hframeRgn hframeRgn hholeRgn 4))
nil

命令: (win32api "user32" "SetWindowRgn" (list hwnd hframeRgn 1))
nil

命令: (win32api "user32" "GetWindowRect" (list hwnd 'rt))
nil

命令: (setq hframeRgn (win32api "gdi32" "CreateRectRgnIndirect" (list 'rt)))
nil

命令: (setq hholeRgn (win32api "gdi32" "CreateEllipticRgn" (list 100 100 300
300)))
nil

命令: (win32api "gdi32" "CombineRgn" (list hframeRgn hframeRgn hholeRgn 4))
nil

laorenhao999 发表于 2014-12-9 04:40:49

已达内部堆栈限制 (模拟)

pengfei2010 发表于 2017-11-8 20:39:01

回帖是一种美德！感谢楼主的无私分享 谢谢

nijiea123 发表于 2020-8-11 11:32:08

很不错 学习了

baitang36 发表于 前天 06:12

本帖最后由 baitang36 于 2024-11-23 07:49 编辑

精华帖子，应该让它复活。
把反编译的源码发上来，刺激一下楼主，看看能不能复活？
实现原理是用vb写一个com，用vlisp调用com，这技术有点老了。


页: 1 2 3 4 [5]
查看完整版本: [分享]实现Quicktool Win32Api For Lisp编程接口