Need LSP: Rename Reference Name in Xref pallette to match File Name

[haydenrosser]

Not sure if this LSP exists or not...but after trying to search for it for the last 4 hours,

After updating a path in a drawing, I need the Refence Name in the Xref Pallette to automatically change or be updated to reflect the new file name.

ie, if you have a file xrefed into a new drawing called drawing 1.dwg, then you repath it to a new drawing called Drawing 2.dwg, the name shown in the Xref pallete, under Reference Name, is still labelled Drawing 1.

As I am updating a set of drawings for which has now has been split into a west and east, i need the Reference Name to change as i am changing the path.

Any clues??

[mweaver]

Not sure if this LSP exists or not...but after trying to search for it for the last 4 hours,

After updating a path in a drawing, I need the Refence Name in the Xref Pallette to automatically change or be updated to reflect the new file name.

ie, if you have a file xrefed into a new drawing called drawing 1.dwg, then you repath it to a new drawing called Drawing 2.dwg, the name shown in the Xref pallete, under Reference Name, is still labelled Drawing 1.

As I am updating a set of drawings for which has now has been split into a west and east, i need the Reference Name to change as i am changing the path.

Any clues??

This will rename all xrefs to match their filenames:

(vl-load-com)
(setq
  doc (vla-get-activedocument(vlax-get-acad-object))
  blocks (vla-get-blocks doc)
  )
(vlax-for blk blocks
  (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-path (list blk))))
    (vla-put-name blk (vl-filename-base (vla-get-path blk)))
    )
  )

[irneb]

And to pick an xref to be loaded from another file, then also rename it:

(vl-load-com)
;;; Rename & Reload XRef
(defun c:XRefRen (/ xn xo name)
    (while (not xo) ;Check if something's selected
        (if    (setq xn (entsel "\nPick xref to rename & repath <or ENTER type name>: "))
 ;Ask use to pick (or Enter to give name)
            (setq xn (car xn)) ;Getonly the ENAME
            (setq xn (getstring "\nEnter XRef name: ")) ;Else ask for block name
        ) ;_ end of if
        (cond
            ((= (type xn) 'ENAME) ;If ENAME
             (setq xo (vlax-ename->vla-object xn)) ;Get object ref of block insert
             (if (= (vla-Get-ObjectName xo) "AcDbBlockReference") ;Check if it's a block
                 (setq xo (vla-Item (vla-Get-Blocks (vla-Get-ActiveDocument (vlax-get-acad-object))) (vla-Get-Name xo)))
 ;Get block def object
                 (progn
                     (princ "\nThat's not a BLOCK object, only blocks can be XREFS.")
                     (setq xo nil)
                 ) ;_ end of progn
             ) ;_ end of if
            )
            ((= (type xn) 'STR)
             (if (not (setq xo (vla-Item (vla-Get-Blocks (vla-Get-ActiveDocument (vlax-get-acad-object))) xn)))
 ;Get block def object
                 (progn
                     (princ "\nThat's not a BLOCK object, only blocks can be XREFS.")
                     (setq xo nil)
                 ) ;_ end of progn
             ) ;_ end of if
            )
        ) ;_ end of cond
        (if    xo
            (if    (not (= (vla-Get-ObjectName xo) "AcDbBlockTableRecord")) ;Check if it's a block
                (progn
                    (princ "\nThat's not a BLOCK object, only blocks can be XREFS.")
                    (setq xo nil)
                ) ;_ end of progn
                (if    (/= (vla-Get-IsXref xo) :vlax-true) ;Check if it's a xref
                    (progn
                        (princ "\nThat's not a XREFS.")
                        (setq xo nil)
                    ) ;_ end of progn
                ) ;_ end of if
            ) ;_ end of if
        ) ;_ end of if
    ) ;_ end of while

    (if (and xo (setq name (getfiled "Browse DWG to replace XRef" (findfile (vla-get-Path xo)) "dwg" 0))) ;Pick file
        (progn
            (vla-Put-Name xo (vl-filename-base name))
            (vla-Put-Path xo name)
            (vla-Reload xo)
        )
    )
    (princ)
) ;_ end of defun

[haydenrosser]

This will rename all xrefs to match their filenames:

(vl-load-com)
(setq
  doc (vla-get-activedocument(vlax-get-acad-object))
  blocks (vla-get-blocks doc)
  )
(vlax-for blk blocks
  (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-path (list blk))))
    (vla-put-name blk (vl-filename-base (vla-get-path blk)))
    )
  )

I am not much of a code wiz at all, but i cant seem to get the above code to work. it kept returning nil,

In order to run the list, i set the code up as below.

(vl-load-com)
;;;Rename Xrefs
(DEFUN C:XRENAME (/ DOC BLOCKS)
(setq
  doc (vla-get-activedocument(vlax-get-acad-object))
  blocks (vla-get-blocks doc)
  )
(vlax-for blk blocks
  (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-path (list blk))))
    (vla-put-name blk (vl-filename-base (vla-get-path blk)))
    )
  )
)

...any furhter help would be greatly appreciated, i have to go through and sort out a drawing set around 300 sheets making sure all th xrefs i correct and each drawing has around 70 xrefs.

[mweaver]

I am not much of a code wiz at all, but i cant seem to get the above code to work. it kept returning nil,

In order to run the list, i set the code up as below.

(vl-load-com)
;;;Rename Xrefs
(DEFUN C:XRENAME (/ DOC BLOCKS)
(setq
  doc (vla-get-activedocument(vlax-get-acad-object))
  blocks (vla-get-blocks doc)
  )
(vlax-for blk blocks
  (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-path (list blk))))
    (vla-put-name blk (vl-filename-base (vla-get-path blk)))
    )
  )
)

...any furhter help would be greatly appreciated, i have to go through and sort out a drawing set around 300 sheets making sure all th xrefs i correct and each drawing has around 70 xrefs.

The code I posted (and your defun based on my code) will return nil - they should also rename your xrefs. Is this not happening?

I'll see what I can throw together that will let you do this with objectdbx (fast!!!)

[mweaver]

This has very little testing, but should work.
Note that the c:rxdbx routine is really included for illustration purposes only. Any method to call RenameXrefsDBX with a list of fully qualified drawing names will do the job.

The drawings will be saved to the same directory as the originals with "Fixed-" on the front end of the filename. Unfortunately objectdbx won't let us do a save - we have to do a saveas.

I would expect this to process something like one drawing per second - with 70 xrefs per drawing.

Hope this helps.

(vl-load-com)

(defun c:rxdbx (/)
  (setq
    dir	  (getfiled "Select the first drawing in the folder of drawings"
		    (getvar "dwgprefix")
		    "dwg"
		    0
	  )
    Files (vl-directory-files (vl-filename-directory dir) "*.dwg" 1)
    Files (mapcar
	    (function
	      (lambda (file)
		(strcat (vl-filename-directory dir) "\\" file)
	      )
	    )
	    Files
	  )
  )
  (RenameXrefsDBX Files)
)




(defun RenameXrefsDBX(FileList / Doc Blocks rtlist)
  (mapcar
    (function
      (lambda(File / ChangedList)
	(setq
	  doc	 (GetRemoteDoc file)
	  blocks (vla-get-blocks doc)
	  )
	(vlax-for blk blocks
	  (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-path (list blk))))
	    (progn
	      (setq oldname (vla-get-name blk))
	      (vla-put-name blk (vl-filename-base (vla-get-path blk)))
	      (if (not (equal (strcase oldname)(setq newname (strcase (vla-get-name blk)))))
		(setq rtlist (cons (vl-list* File oldname newname) rtlist))
		)
	      )
	    )
	  )
	(if (equal doc (vla-get-activedocument(vlax-get-acad-object)))
	  (vla-save doc)
	  (vla-saveas doc (strcat (vl-filename-directory file) "\\Fixed-" (vl-filename-base file) ".dwg"))
	  )
	)
      )
    FileList
    )
  rtlist
  )



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  Function:	GetRemoteDoc									;;;
;;;  Purpose:	Retrieves the document object for the specified drawing file, pulling it from	;;;
;;;		  the documents collection if it occurs there.					;;;
;;;  Arguments:											;;;
;;;	fname		String - the fully qualified pathname of the source file, with		;;;
;;;			extension.								;;;
;;;  Returns:		an objectDbx document object						;;;
;;;  Note:		Don't forget to release the object					;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun GetRemoteDoc (fname / dbxstr dbxdoc objDocs ActiveDwg)
  (setq
    objDocs   (vla-get-documents (vlax-get-acad-object))
    ActiveDwg (strcase (findfile (strcat (getvar "dwgprefix") (getvar "dwgname"))))
  )
  (cond
    ;;it is the active drawing
    ((= (strcase (findfile fname)) ActiveDwg)
     (vla-get-activedocument (vlax-get-acad-object))
    )
    ;;It's already open
    ((and
       ;;The filename is in the documents collection
       (null
	 (vl-catch-all-error-p
	   (setq dbxdoc	(vl-catch-all-apply
			  'vla-item
			  (list
			    objdocs
			    (strcat (vl-filename-base fname) ".DWG")
			  )
			)
	   )
	 )
       )
       ;;The drawing in the documents collection has the correct path
       (= (strcase (findfile fname)) (strcase (findfile (vla-get-fullname dbxdoc))))
     )							    ;end and
     dbxdoc
    )
    ;;we can open it with objectdbx
    ((setq fname (findfile fname))
     (setq
       DBXstr (cond
		((< (atof (getvar "ACADVER")) 16.0)
		 "ObjectDBX.AxDbDocument"
		)
		(T (strcat "ObjectDBX.AxDbDocument." (substr (getvar "ACADVER") 1 2)))
	      )
       DBXDoc (vla-getinterfaceobject (vlax-get-acad-object) DBXstr)
     )
     (vla-open DBXDoc fname)
     dbxdoc
    )							    ;end cond findfile fname
  )							    ;end cond
)