[LISP程序]：超级"搜一搜"(模拟WINDOWS搜索工具)

舟自横 · 发表于 2005-10-26 13:31:10

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

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

×

今天用了一下WINDOWS带的搜索功能于是突发奇想..
是不是LISP也可以达到这样的效果呢?
于是写了一段....
[PHP]
(defun hy_searchfile(drive filename / nep *ERROR* FFS FILS FOL OLDERROR PATHLIST SUBFILES SUBFOLDERS SYS TT);;drive ;;c: ;;filename **.**
  (defun hy_searchfolder(fol file / subfolders1)
(setq fils (vlax-get-property fol 'files))
(vlax-for item fils
(progn (grtext -1 "正在搜索:")(grtext -2 (setq nep (vlax-get-property item 'path)))
            (vla-eval (vlax-get-acad-object) "DoEvents")
   (if (= (strcase file)(strcase(vlax-get-property item 'name)))
   (setq pathlist (cons nep pathlist)
      ))
)
)
(if (setq subfolders1 (vlax-get-property fol 'SubFolders))
   (vlax-for item subfolders1 (hy_searchfolder item file))
)
)
  (setq olderror *error*)
  (defun *error*(msg)(setq *error* olderror)(grtext)(princ)(princ))
  (setq SYS (vlax-create-object "Scripting.FileSystemObject"))
  (setq ffs (vlax-get-property
      (vlax-invoke sys 'getdrive (strcat drive "\\"))
            'RootFolder))
  (setq subfolders (vlax-get-property ffs 'SubFolders)
subfiles (vlax-get-property ffs 'files)
)
  (setq pathlist nil)
  (vlax-for item subfiles (progn
                        (grtext -1 "正在搜索:")(grtext -2 (setq nep (vlax-get-property item 'path)))
      (vla-eval (vlax-get-acad-object) "DoEvents")
      (if (= (strcase filename)(strcase(vlax-get-property item 'Name)))
      (setq pathlist (cons nep pathlist)
      )
)
)
)
  (vlax-for item subfolders (hy_searchfolder item filename))
  (setq *error* olderror)
  (grtext)
  pathlist
  )
[/PHP]
怎么传不上SWF文件呢..效果示意不出来..请斑竹帮忙做个演示意
附件里面有SWF也有AVI动态演示
晕附件也传不上请斑竹帮忙看一下为什么....
测试
(defun c:tt()
(hy_searchfile "c:" "tt.lsp")
)

狂刀 · 发表于 2005-10-26 13:56:52

建议:舟兄你以后贴程序,也贴一个应用实例.免得还要去看你的程序参数规则,麻烦....

yuer0103 · 发表于 2005-10-26 15:23:44

怎么用？

pcgprz · 发表于 2005-10-28 21:59:37

还不错！

heroaming · 发表于 2005-10-29 19:56:22

我的怎么提示输入的字符串有缺陷？

enn09 · 发表于 2014-4-16 15:46:06

感谢分享，支持了

yhly555 · 发表于 2014-8-27 17:07:17

有这个可快速查找相同内容的文字了

MUYIY · 发表于 2022-6-15 00:05:47

学习学习

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

[LISP程序]：超级"搜一搜"(模拟WINDOWS搜索工具)

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

相关帖子