Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy CAD Studio [www.cadforum.cz]
ČeskySlovenskyEnglishDeutsch
Přihlášení:
▶ Registrace

 právě nás čte: 2333 

CAD tip CAD tip # 12305:

Otázka CAD 
 %  platforma  kategorie 
Q - otázka

Jak zkontrolovat, zda běží určitá aplikace či proces? (LISP)

A - odpověď Pokud potřebujete ve vaší LISP aplikaci zjistit, zda je spuštěna nějaká externí Windows aplikace či proces (tedy položky, které vidíte ve Správci úloh), můžete využít následující funkci:

(defun isRunning? (procname / apps item lst meth1 meth2 WMI)
  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator")
        meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil)
        meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_Process"))
  (vlax-for item meth2
    (setq lst (append lst (list (vlax-get item 'CommandLine))))
  )
  (vlax-release-object WMI)
  (vlax-release-object meth1)
  (vlax-release-object meth2)
  (setq lst (vl-remove nil lst))

  (vl-some '(lambda (s) (wcmatch (strcase s) (strcat "*" (strcase procname) "*"))) lst)
)

Jako parametr procname použijte libovolný podřetězec identifikující spouštěcí řetězec dané aplikace nebo procesu - např. parametr "acad.exe" by měl vždy vrátit T, protože AutoCAD je určitě spuštěn:

(isRunning? "acad.exe")

Běží indexovací služba Windows?

(isRunning? "SearchProtocolHost")

ACAD
100% Win  CAD 
8.7.2019    202×   Expert
autocad lisp
 
Související CAD produkty:
Ceny - CAD eShop:
platí pro: AutoCAD ·

Zpět   Všechny další tipy



Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy CAD Studio.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD:    OS:    Kateg: 
Text:  FAQ   






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (CAD Studio s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.
TOPlist