Lisp to separate multiple drawing based on some text key word

[prasanthbalu]

Hai,

I have almost 1000 drawings in folder. I need to separate them based on some text keyword in the drawings.For eg: I need to separate the drawings which contains text key word "hello" in to one folder and the rest of the drawing to another folder. I need to do it with out opening the cad.With my limited knowledge I wrote a small auto lisp program and tried to run it through script and bat file. But unfortunately its shows message that "cannot find the specified drawing file.Please verify the file exists". When I double click the drawing file it opens perfectly.Can any body help me to solve this issue.I am attaching the files what I have prepared.

Regards
Prasanth

[cadhelp Van]

you can try "SaveAs" , vl-file-copy or use dbx

;;; How to use (sortFile "Find Me Text" "c:/temp")
;;; Select all dwg from a dwg-folder
;;; Create a subfolder named stringToFind
;;; open DBX file
;;; Find a stringToFind in next_object
;;; Copy dwg if stringToFind is found
(defun sortFile (stringToFind dwg-folder / file files AD cad-ver)
(setq files(vl-directory-files dwg-folder "*11.dwg" ))
(setq cad-ver (itoa(atoi(getvar "acadver"))))
(vl-mkdir (strcat dwg-folder "/" stringToFind ));; make a folder
  
(foreach file files
 (setq AD (vla-getinterfaceobject (vlax-get-acad-object) (strcat "ObjectDBX.AxDbDocument." cad-ver)))
 (vla-open AD (strcat dwg-folder "/" file))
 (vlax-for next_object (vla-get-modelspace AD )
  (if (not(findfile (strcat dwg-folder "/" stringToFind  "/" file)))
   (if(= "AcDbMText"(vla-get-ObjectName next_object))
    (if (vl-string-search stringToFind (vla-get-TextString next_object))
     (vl-file-copy fileName (strcat dwg-folder "/" stringToFind  "/" file))
    )
   )
  )
 )
 (vlax-release-object AD)
)
)