社区 › AutoLISP/Visual LISP 编程技术 › 一个比较不常见的问题求教

Dani1988 发表于 2023-3-12 10:58:18

一个比较不常见的问题求教

本帖最后由 Dani1988 于 2023-3-12 10:59 编辑


如何通过lisp或其他语言代码的方式关闭这个窗口

mahuan1279 发表于 2023-3-12 11:03:01

本帖最后由 mahuan1279 于 2023-3-12 11:04 编辑

退出不了？

Dani1988 发表于 2023-3-12 11:22:20

mahuan1279 发表于 2023-3-12 11:03
退出不了？

可以退出，我想用代码方式关闭

masterlong 发表于 2023-3-12 12:30:31

搜一下baitang大佬的帖子

Bao_lai 发表于 2023-3-12 17:10:39

Alt+Q组合键
(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "%q")

zml84 发表于 2023-3-12 20:13:02

思路

https://mp.weixin.qq.com/s/BzEFQJ8RyY5XMfEmy4hoJA

;;;=====================================================*
;;;功能：关闭进程                                                   *
;;;参数：str_EXEName----- 进程名称。例如"EXCEL.exe" "QQ.exe"      *
;;;返回：若成功，返回T；否则nil                                     *
;;;日期：zml84 于 2012-11-04                                        *
;;;测试：(ZL-EXE-KILL "QQ.EXE")                                     *
(defun ZL-EXE-KILL (str_EXEName        / SWbemLocator WQL Service Processes
                  isClosed)
    (if        (and(wcmatch (getvar "PLATFORM") "*Windows*");_Windows操作系统
          (setq SWbemLocator
                     (vlax-create-object "WbemScripting.SWbemLocator")
          )
          (setq Service (vlax-invoke SWbemLocator 'ConnectServer))
          (setq WQL
                     (strcat "SELECT * FROM Win32_Process WHERE Name='"
                             str_EXEName
                             "'"
                     )
          )
          (setq Processes (vlax-invoke Service 'ExecQuery WQL))
        )
           (progn
             (vlax-for IE Processes
                   (vlax-invoke IE 'Terminate)
             )
             (vlax-release-object Processes)
             (vlax-release-object Service)
             (vlax-release-object SWbemLocator)
           )
    )
)

cchessbd 发表于 2023-3-13 07:47:06

本帖最后由 cchessbd 于 2023-3-13 07:50 编辑

你研究下这个帖子吧。这个关闭比较完美，http://bbs.mjtd.com/thread-184571-1-1.html

就是代码自动关闭的。不过要改动一下数据，不然时间很长。
另外就是需要把他的文件编译到你的vlx才行。

vlide出来的窗口无进程，楼上几位回复都有一些缺陷。

Dani1988 发表于 2023-3-13 09:15:30

本帖最后由 Dani1988 于 2023-3-13 09:59 编辑

cchessbd 发表于 2023-3-13 07:47
你研究下这个帖子吧。这个关闭比较完美，http://bbs.mjtd.com/thread-184571-1-1.html

就是代码自动关闭 ...
vlide出来的窗口是无进程，试验了这个dat的方法在vlide最小化时关闭不了，谢谢提供方法，不够直接关闭我再研究研究

Dani1988 发表于 2023-3-13 09:59:36

zml84 发表于 2023-3-12 20:13
https://mp.weixin.qq.com/s/BzEFQJ8RyY5XMfEmy4hoJA

;;;============================================ ...

谢谢提供方法

Dani1988 发表于 2023-3-13 10:04:33

Bao_lai 发表于 2023-3-12 17:10
Alt+Q组合键
(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "%q")

这个方案试了，可以关闭
就是vlide最小化时，要先判断vlide的状态，然后C:vlide显示出来，再关闭

查看完整版本: 一个比较不常见的问题求教