Check if datalink exists in drawing

[DC-MWA]

Hi all,

I'm trying to check drawing to see if any datalinks exist, if they do I would like to update them.

I've played with tblsearch with no luck.

My reading has led me to dictionaries.

Not sure how to proceed. My knowledge of lisp is limited. 

Has anybody out there possibly done something similar?

-thanks!

[DC-MWA]

I figured it out.  Is there a better way to do this?

(defun c:dlinktest (/ mainDict dlinkDict)

(setq mainDict (namedobjdict))
(entget mainDict)
(setq dlinkDict (dictsearch (namedobjdict) "ACAD_DATALINK"))

(if (cdr (assoc 3 dlinkDict))
(alert "Datalinks exist in drawing.");testing
(alert "No Datalinks in drawing.");testing
);if(princ)
)

[dlanorh · Accepted solution]

---

@DC-MWA wrote:

I figured it out.  Is there a better way to do this?

(defun c:dlinktest (/ mainDict dlinkDict)

(setq mainDict (namedobjdict))
(entget mainDict)
(setq dlinkDict (dictsearch (namedobjdict) "ACAD_DATALINK"))

(if (cdr (assoc 3 dlinkDict))
(alert "Datalinks exist in drawing.");testing
(alert "No Datalinks in drawing.");testing
);if(princ)
)

---

You're not using "maindict" therefore it is redundant, so this should work

(defun c:dlinktest (/)
  (if (cdr (assoc 3 (dictsearch (namedobjdict) "ACAD_DATALINK")))
    (alert "Datalinks exist in drawing.");testing
    (alert "No Datalinks in drawing.");testing
  );if
  (princ)
)

You'll need to test on a drawing that has datalinks. I don't have any so cannot test this part