Hi Alls,
I just create a program to rename a file xref,here that code
; rxd is stand for Rename Xref Drawing
; Design by : Adesu <Ade Suharna>
; Email : mteybid@yuasabattery.co.id
; Homepage : http://www.yuasa-battery.co.id
; Create : 25 January 2007
; Program no.: 0516/01/2007
; Edit by :
(defun c:rxd (/ cfn fd objname path ss vevo vgad vgao vgd xfn xpath)
(vl-load-com)
(setq vgao (vlax-get-acad-object))
(setq vgad (vla-get-activedocument vgao))
(setq vgd (vla-get-documents vgao))
(setq ss (car (entsel "\nSelect an object Xref")))
(setq vevo (vlax-ename->vla-object ss))
(setq objname (vlax-get vevo 'ObjectName))
(if
(= objname "AcDbBlockReference")
(progn
(setq path (vlax-get vevo 'Path))
(setq cfn (vl-filename-base path))
(setq xfn
(getstring t
(strcat "\nEnter new name for drawing< " cfn " >: ")))
(if (= xfn "")(setq xfn cfn))
(setq fd (vl-filename-directory path))
(setq xpath (strcat fd "\\" xfn ".dwg"))
(setq opath (vl-string-translate "\\" "/" path))
(setq xpath (vl-string-translate "\\" "/" xpath))
(setq ren (vl-file-rename opath xpath)) ; here the problem !!!
;(vlax-Release-Object ren)
) ; progn
) ; if
(princ)
) ; defun