[分享]实现Quicktool Win32Api For Lisp编程接口

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

很不错学习了

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