Initial commit

imagePaths.lsp

@@ -0,0 +1,29 @@
+(defun c:imagePaths (Doc / LayoutCol EndList)
+; Returns a list of list of all the Xrefs and Images with their paths withina drawing.
+
+    (vl-load-com)
+    (if (not Doc)
+        (setq Doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
+    )
+    (setq LayoutCol (vla-get-Layouts Doc))
+    (vlax-for i LayoutCol
+        (vlax-for Obj (vla-get-Block i)
+            (cond
+                ((= (vla-get-ObjectName Obj) "AcDbRasterImage")
+                    (if (not (assoc (vla-get-Name Obj) EndList))
+                        (setq EndList (cons (cons (vla-get-Name Obj) (vla-get-ImageFile Obj))
+                    EndList))
+                    )
+                )
+                ((and (= (vla-get-ObjectName Obj) "AcDbBlockReference")
+                    (vlax-property-available-p Obj 'Path))
+                    (if (not (assoc (vla-get-Name Obj) EndList))
+                        (setq EndList (cons (cons (vla-get-Name Obj) (vla-get-Path Obj))
+                        EndList))
+                    )
+                )
+            )
+        )
+    )
+    EndList
+)