极速搜索Everything

/db_自贡黄明儒_ · 发表于 2016-11-7 14:09:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

网友panliang9@sohu.com(2259433769)发给了我Everything，试了一下，速度相当快我用了sendkeys 自动拾取文本，但存在一个问题，如果中文或者带有特殊符号就不行，各位高手可有更好办法？

(defun C:TZ (/ TXT)
  (if (setq txt (cdr (assoc 1 (entget (car (nentsel "\n 拾取搜索文本"))))))
    (if        (= (getenv "PROCESSOR_ARCHITECTURE") "x86")            ;32位
      (Everything32 TXT)
      (Everything64 TXT)
    )
  )
  (princ)
)
(defun Everything64 (TXT)
  (startapp "Everything-1.4.1.773b.x64-Setup.exe")
  (sendkeys txt)
)
(defun Everything32 (TXT)
  (startapp "Everything1.3.4.686.x86.x64.exe")
  (sendkeys txt)
)
(defun sendkeys        (keys)
  (or *WSH* (setq *WSH* (vlax-get-or-create-object "wscript.shell")))
  (vlax-invoke-method *WSH* 'sendkeys keys)
  (princ)
)

/db_自贡黄明儒_ · 发表于 2016-11-8 07:49:31

(defun sendkeys        (keys)
  (or *WSH* (setq *WSH* (vlax-get-or-create-object "wscript.shell")))
  (vlax-invoke-method *WSH* 'sendkeys keys)
  (princ)
)
(defun C:SS (/ TXT)
  (if (setq txt (cdr (assoc 1 (entget (car (nentsel "\n 搜索文件，拾取文本"))))))
    (progn
      (SET-CLIP-STRING txt)
      (if (= (getenv "PROCESSOR_ARCHITECTURE") "x86")            ;32位
        (Everything32 TXT)
        (Everything64 TXT)
      )
    )
  )
  (princ)
)
(princ "\n 搜索文件 SS")

(defun Everything64 (TXT)
  (startapp "Everything-1.4.1.773b.x64-Setup.exe")
  (sendkeys "^V")
)
(defun Everything32 (TXT)
  (startapp "Everything1.3.4.686.x86.x64.exe")
  (sendkeys "^V")
)

/db_自贡黄明儒_ · 发表于 2016-11-7 16:39:26

这么快的搜索，没人顶。只好自己解决了

Lisphk · 发表于 2016-11-7 16:46:58

黄总，这个能搜索CAD图里面的文字？搜索什么呢？

/db_自贡黄明儒_ · 发表于 2016-11-7 16:54:13

Lisphk 发表于 2016-11-7 16:46

相当于windows的文件搜索，但速度快

Lisphk · 发表于 2016-11-7 17:08:14

/db_自贡黄明儒_ 发表于 2016-11-7 16:54

能搜索到包含指定文字的DWG文件？ TEXT，MTEXT的都行吗？

kqqt6236 · 发表于 2016-11-8 21:01:16

又给大伙儿出难题。

cq_qg68 · 发表于 2016-11-22 18:54:23

lisp还可以这么引用啊，又学了一招

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

[研讨] 极速搜索Everything

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。