几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   [讨论] lisp 控制鼠标移动和点击 (http://www.dimcax.com/hust/showthread.php?t=11377)

yang686526 2009-04-26 03:16 PM

[讨论] lisp 控制鼠标移动和点击
 
[讨论] lisp 控制鼠标移动和点击
www.dimcax.com
[讨论] lisp 控制鼠标移动和点击
既然lisp控制键盘没问题 也应该可以控制鼠标才对
但是需要借助第三方控件(vb调用api封装类我还不会 以后慢慢研究)
首先解压下面的压缩包把3个文件拷贝到 c:\windows\system32\ 里面
请使用winrar或winzip软件打开zip压缩文件。
然后运行下面的代码即可
;by nonsmall
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
(setq wsh (vlax-create-object "wscript.shell"))
(setq text "cmd /c regsvr32 /s qmdispatch.dll")
(vlax-invoke wsh 'run text 0)
这几句直接用
(startapp "regsvr32" "/s qmdispatch.dll")不就行了吗,也许是我见识浅薄,不知道老猫写三行是不是有特殊之处.
小学的时候老师在台上讲“帅”的含义, 我听不懂,同桌的女孩红着脸递给我一面 镜子,那一霎那,我明白了。
d
运行和注册是两回事
d


所有的时间均为北京时间。 现在的时间是 01:25 AM.