Show prompt if any xrefs exist

[Anonymous]

Happy New Year to everyone 

Im working on a routine that suppose to run without any xrefs in the drawing. Need help on checking if theres any xref exist in the drawing.

if xref exist = show message

if no xref found = continue with routine

Thanks in advance! 

[hmsilva · Accepted solution]

One way

  (vl-load-com)
  (vlax-For blk
		(vla-Get-Blocks
		  (vla-Get-ActiveDocument (vlax-Get-Acad-Object))
		)
    (if	(= (vla-Get-IsXref blk) :vlax-True)
      (setq xr T)
    )
  )
  (if xr
      (alert "if xref exist = show message")
    (progn
      ;; if no xref found = continue with routine
      )
    )

Henrique

[Anonymous]

Thanks for the reply Henrique!

the code works as expected but when I open a dwg with xref and detach it then run the routine, it still says theres xref in the drawing.

Edit:

I tried to close and reopen and it worked fine. I guess this can work.

Thanks Henrique!

[hmsilva]

---

@Anonymous wrote:

Thanks for the reply Henrique!

the code works as expected but when I open a dwg with xref and detach it then run the routine, it still says theres xref in the drawing.

Edit:

I tried to close and reopen and it worked fine. I guess this can work.

Thanks Henrique!

---

You're welcome, JCprog

You'll have to declare 'xr' as a local variable, and the test should work as expected without closing/reopen de dwg...

Henrique

[Anonymous]

nice! I learn something everyday 🙂 works perfect! Thanks again!

[hmsilva]

You're welcome, JCprog
Glad I could help

Henrique

[Lee_Mac]

Another, returns T if one or more xrefs are defined in the active drawing:

(defun xrexists ( / def flg )
    (while
        (and
            (setq def (tblnext "block" (null def)))
            (not (setq flg (= 4 (logand 4 (cdr (assoc 70 def))))))
        )
    )
    flg
)

[Anonymous]

Thanks for the code Lee! you guys are awesome! 🙂