LIsp and i'm stuck.....HELP!

[alex.camardi342396]

guys, i know how to write a simple lisp to rename and repath multiple xrefs....i just dont know how to progress to the next level.....I need to add a loop into the code below to search for a name and if it doesnt existing within that particular drawing, to skip to the next xref....

anybody?

(defun c:repath ()

(command "-rename" "b" "XC00-AA005360-AAX-00-TITLE" "XC00-PN001234-aax-00-TITLE")
(command "-xref" "p" "XC00-PN001234-aax-00-TITLE" "E:\\_ACAD Customization\\_example job set\\C-Civil\\X-Xref\\XC00-PN001234-aax-00-TITLE")

(command "-rename" "b" "XC01-AA005360-AAX-00-SURVEY" "XC01-PN001234-aax-00-SURVEY")
(command "-xref" "p" "xC01-PN001234-aax-00-SURVEY" "E:\\_ACAD Customization\\_example job set\\C-Civil\\X-Xref\\XC01-PN001234-aax-00-SURVEY")

(command "-rename" "b" "XC02-AA005360-AAX-00-CADASTRE" "XC02-PN001234-aax-00-CADASTRE")
(command "-xref" "p" "xC02-PN001234-aax-00-CADASTRE" "E:\\_ACAD Customization\\_example job set\\C-Civil\\X-Xref\\XC02-PN001234-aax-00-CADASTRE")

(command "-rename" "b" "XC03-AA005360-AAX-00-EXCONT" "XC03-PN001234-aax-00-EXCONT")
(command "-xref" "p" "XC03-PN001234-aax-00-EXCONT" "E:\\_ACAD Customization\\_example job set\\C-Civil\\X-Xref\\XC03-PN001234-aax-00-EXCONT")

(command "-rename" "b" "XC04-AA005360-AAX-00-DESIGN" "XC04-PN001234-aax-00-DESIGN")
(command "-xref" "p" "XC04-PN001234-aax-00-DESIGN" "E:\\_ACAD Customization\\_example job set\\C-Civil\\X-Xref\\XC04-PN001234-aax-00-DESIGN")

(command "-rename" "b" "XC05-AA005360-AAX-00-DESCONTS" "XC05-PN001234-aax-00-DESCONTS")
(command "-xref" "p" "XC05-PN001234-aax-00-DESCONTS" "E:\\_ACAD Customization\\_example job set\\C-Civil\\X-Xref\\XC05-PN001234-aax-00-DESCONTS")

(command "-rename" "b" "XC06-AA005360-AAX-00-RDLONG" "XC06-PN001234-aax-00-RDLONG")
(command "-xref" "p" "XC06-PN001234-aax-00-RDLONG" "E:\\_ACAD Customization\\_example job set\\C-Civil\\X-Xref\\xcsu-PN001234-aax-00-RDLONG")

)

ps i've deliberatly separated the lines of code hoping somebody adds the loop for me

[peter]

My suggestion is to create a function that checks the rename and repath.

(switchxrefandpath "XC00-AA005360-AAX-00-TITLE" "XC00-PN001234-aax-00-TITLE"
                   "XC00-PN001234-aax-00-TITLE"
                   "E:\\_ACAD Customization\\_example job set\\C-Civil\\X-Xref\\XC00-PN001234-aax-00-TITLE"
)

(defun SwtichXrefAndPath (strOldName strNewName strPath / strNewPath)
 (if (and (tblobjname "block" strOldName)
          (not (tblobjname "block" strNewName))
          (setq strNewPath (findfile (strcat strPath strNewName)))
     )
  (progn
   (command "-rename" "b" strOldName strNewName)
   (command "-xref" "p" strNewName strNewPath)
  )
 )
)