Topic: XREF-reload, unload, detach

[T.Willey]

Okay, here you go.  Now you can only select blocks, and it will make sure that it is an xref before preforming the opperation to it. Use with the other portions or Randy's code.

Code: [Select]

(defun Xref-Loader (XrefOpp / ActDoc BlkCol ss Ent BlkObj)

(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(vla-StartUndoMark ActDoc)
(setq BlkCol (vla-get-Blocks ActDoc))
(if (setq ss (ssget '((0 . "INSERT"))))
 (foreach Lst (ssnamex ss)
  (if
   (and
    (= (type (setq Ent (cadr Lst))) 'ENAME)
    (= (vla-get-IsXref (setq BlkObj (vla-Item BlkCol (cdr (assoc 2 (entget Ent)))))) :vlax-true)
   )
   (vlax-invoke BlkObj XrefOpp)
  )
 )
)
(vla-EndUndoMark ActDoc)
(princ)
)


[nivuahc]

Something different but similar, courtesy of MP:

Code: [Select]

(defun GetXrefPath ( ename / object )
    (cond
        (   (and
                (eq 'ename (type ename))
                (eq "AcDbBlockReference"
                    (vla-get-objectname
                        (setq object
                            (vlax-ename->vla-object
                                ename
                            )
                        )
                    )   
                )
                (vlax-property-available-p object 'path)
            )
            (vla-get-path object)
        )   
    )
)


(defun c:XOpen ( / path )
    (if (setq path (GetXrefPath (car (entsel))))
        (if (zerop (getvar "sdi"))
            (vla-open
                (vla-get-documents (vlax-get-acad-object))
                path
            )
            (vla-sendcommand
                (vla-get-activedocument (vlax-get-acad-object))
                (strcat ".open " path "\n")
            )
        )
    )   
    (princ)   
)

[CADaver]

CADaver, sorry  I didnt mean to imply that you stole barrow (or whatver) I did and I did thank him.  <I got the proof>   

Oh, I didn't think you did, it's just that the codes are sorta similar, and I have been known to ...ummm... borrow a line or two.