LISP能不能判断外部程序是否运行

8142556

比如判断PS软件是否打开
能不能利用标识码之类的来判断，比如 (vlax-get-object "Photoshop.Application")

Lisphk

这个不行吧，应该用进程判断，论坛有，搜索下，判断PS的进程当前是否在运行。

marting

通用函数库有函数 http://bbs.xdcad.net/thread-709848-1-1.html
（XD::SYSTEM:WMI-Query）系统WMI通用查询



命令: (setq a (XD::SYSTEM:WMI-QUERY "Win32_Process"  "caption" ""))
("System Idle Process" "System" "smss.exe" "csrss.exe" "wininit.exe" "csrss.exe" "services.exe" "lsass.exe" "svchost.exe" "fontdrvhost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "NVDisplay.Container.exe" "WUDFHost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "Memory Compression" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "ZhuDongFangYu.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "spoolsv.exe" "svchost.exe" "svchost.exe" "AdAppMgrSvc.exe" "CodeMeter.exe" "svchost.exe" "360EntClient.exe" "OfficeClickToRun.exe" "svchost.exe" "svchost.exe" "svchost.exe" "KMSSS.exe" "svchost.exe" "sqlservr.exe" "mqsvc.exe" "svchost.exe" "SMSvcHost.exe" "svchost.exe" "SecurityHealthService.exe" "svchost.exe" "svchost.exe" "vmware-authd.exe" "vmnetdhcp.exe" "vmnat.exe" "vmware-usbarbitrator64.exe" "svchost.exe" "svchost.exe" "dasHost.exe" "svchost.exe" "WmiPrvSE.exe" "svchost.exe" "svchost.exe" "vmware-hostd.exe" "SMSvcHost.exe" "svchost.exe" "svchost.exe" "SearchIndexer.exe" "svchost.exe" "svchost.exe" "DiscSoftBusServiceUltra.exe" "360EntClient.exe" "gs-server.exe" "svchost.exe" "svchost.exe" "svchost.exe" "dllhost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "PresentationFontCache.exe" "WUDFHost.exe" "sqlwriter.exe" "svchost.exe" "svchost.exe" "svchost.exe" "audiodg.exe" "csrss.exe" "winlogon.exe" "fontdrvhost.exe" "dwm.exe" "svchost.exe" "360speedldtoast.exe" "sihost.exe" "svchost.exe" "svchost.exe" "taskhostw.exe" "explorer.exe" "ShellExperienceHost.exe" "360tray.exe" "SearchUI.exe" "RuntimeBroker.exe" "RuntimeBroker.exe" "SkypeHost.exe" "ctfmon.exe" "ChsIME.exe" "svchost.exe" "MSASCuiL.exe" "RAVCpl64.exe" "OneDrive.exe" "BaiduNetdisk.exe" "360bdoctor.exe" "YunDetectService.exe" "DTAgent.exe" "360sd.exe" "WeChat.exe" "360rp.exe" "WeChatWeb.exe" "CodeMeterCC.exe" "AutodeskDesktopApp.exe" "AcWebBrowser.exe" "AcWebBrowser.exe" "AcWebBrowser.exe" "360se.exe" "360se.exe" "360se.exe" "SogouCloud.exe" "360se.exe" "360se.exe" "sesvc.exe" "360se.exe" "RuntimeBroker.exe" "360se.exe" "360se.exe" "GoodSync-v10.exe" "360se.exe" "360se.exe" "notepad.exe" "cmd.exe" "conhost.exe" "PING.EXE" "mstsc.exe" "360rps.exe" "ChsIME.exe" "360se.exe" "devenv.exe" "VsHub.exe" "Microsoft.VsHub.Server.HttpHost.exe" "conhost.exe" "acad.exe" "acwebbrowser.exe" "acwebbrowser.exe" "AcWebBrowser.exe" "AcWebBrowser.exe" "acwebbrowser.exe" "WSCommCntr4.exe" "FNPLicensingService64.exe" "svchost.exe" "hh.exe" "Lisplink.exe" "vcpkgsrv.exe" "屏录专家.exe" "ly.exe" "M.exe" "smartscreen.exe" "360se.exe" "360se.exe" "360se.exe" "WinRAR.exe" "wmiexplorer.exe" "WmiPrvSE.exe" "WmiPrvSE.exe" "wmiexplorer.exe" "WmiApSrv.exe" "Photoshop.exe" "sesvc.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "360se.exe")

排下序就好找了，红色的 PS 运行着呢。

命令: (vl-sort a '(lambda(x y)(< x y)))
("360EntClient.exe" "360EntClient.exe" "360bdoctor.exe" "360rp.exe" "360rps.exe" "360sd.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360se.exe" "360speedldtoast.exe" "360tray.exe" "AcWebBrowser.exe" "AcWebBrowser.exe" "AcWebBrowser.exe" "AcWebBrowser.exe" "AcWebBrowser.exe" "AdAppMgrSvc.exe" "AutodeskDesktopApp.exe" "BaiduNetdisk.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "CEPHtmlEngine.exe" "ChsIME.exe" "ChsIME.exe" "CodeMeter.exe" "CodeMeterCC.exe" "DTAgent.exe" "DiscSoftBusServiceUltra.exe" "FNPLicensingService64.exe" "GoodSync-v10.exe" "KMSSS.exe" "Lisplink.exe" "M.exe" "MSASCuiL.exe" "Memory Compression" "Microsoft.VsHub.Server.HttpHost.exe" "NVDisplay.Container.exe" "OfficeClickToRun.exe" "OneDrive.exe" "PING.EXE" "Photoshop.exe" "PresentationFontCache.exe" "RAVCpl64.exe" "RuntimeBroker.exe" "RuntimeBroker.exe" "RuntimeBroker.exe" "SMSvcHost.exe" "SMSvcHost.exe" "SearchIndexer.exe" "SearchUI.exe" "SecurityHealthService.exe" "ShellExperienceHost.exe" "SkypeHost.exe" "SogouCloud.exe" "System" "System Idle Process" "VsHub.exe" "WSCommCntr4.exe" "WUDFHost.exe" "WUDFHost.exe" "WeChat.exe" "WeChatWeb.exe" "WinRAR.exe" "WmiApSrv.exe" "WmiPrvSE.exe" "WmiPrvSE.exe" "WmiPrvSE.exe" "YunDetectService.exe" "ZhuDongFangYu.exe" "acad.exe" "acwebbrowser.exe" "acwebbrowser.exe" "acwebbrowser.exe" "audiodg.exe" "cmd.exe" "conhost.exe" "conhost.exe" "csrss.exe" "csrss.exe" "csrss.exe" "ctfmon.exe" "dasHost.exe" "devenv.exe" "dllhost.exe" "dwm.exe" "explorer.exe" "fontdrvhost.exe" "fontdrvhost.exe" "gs-server.exe" "hh.exe" "lsass.exe" "ly.exe" "mqsvc.exe" "mstsc.exe" "notepad.exe" "services.exe" "sesvc.exe" "sesvc.exe" "sihost.exe" "smartscreen.exe" "smss.exe" "spoolsv.exe" "sqlservr.exe" "sqlwriter.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "svchost.exe" "taskhostw.exe" "vcpkgsrv.exe" "vmnat.exe" "vmnetdhcp.exe" "vmware-authd.exe" "vmware-hostd.exe" "vmware-usbarbitrator64.exe" "wininit.exe" "winlogon.exe" "wmiexplorer.exe" "wmiexplorer.exe" "屏录专家.exe")

marting

也可以直接加条件过滤

命令: (XD::SYSTEM:WMI-QUERY "Win32_Process"  "caption" "caption like '%photoshop.exe%'")
("Photoshop.exe")

命令: (XD::SYSTEM:WMI-QUERY "Win32_Process"  "caption" "caption like '%photoshop11.exe%'")
nil

8142556

marting 发表于 2018-2-5 14:37

晓东函数库只支持到2016吗，我想用CAD2017

8142556

通用函数我试试，想用API吧CAD2017检测不到

marting

8142556 发表于 2018-2-5 17:39

XDRX API 分版本， 通用LISP函数库是VLX不分，只要是AUTOCAD就能加载。可以使用里面定义的 VLA写的通用LISP函数。上面告诉你的那个，就是通用的。而且给你的连接是函数源码的，是不是能用看下代码就知道了。

8142556

怎么我加载了VLX运行后没有这个显示进程的函数，帮助手册也没有这个函数，手册上的部分开源函数也不能用，有的可以用

marting

8142556 发表于 2018-2-5 19:11

加载的是什么版本的函数库，去下载最新的

命令: !XD::SYSTEM:WMI-QUERY
#<SUBR @0000000041c33cf0 XD::SYSTEM:WMI-QUERY>

追风lisp

学习了，顶顶

8142556

marting 发表于 2018-2-5 19:25

我加载的是2018-01-08啊

Lisphk

8142556 发表于 2018-2-5 22:54

你加载后，命令行提示什么 通用函数库加载成功 的字样了吗？

链接里面是源代码，你拷贝回去加到你代码里面用就是了。

kqqt6236

太棒了，谢谢！