topic Re: Get Image List Through VBA in VBA Forum

Get Image List Through VBA

Anonymous — Thu, 24 Jul 2008 20:25:12 GMT

Here is my Lisp routine to get image list from a drawing:

(defun z_Get-VLA-Objects ()
(and (or *CAD* (setq *CAD* (vlax-get-Acad-Object)))
(or *DOC* (setq *DOC* (vla-get-ActiveDocument *CAD*)))
(or *DIC* (setq *DIC* (vla-get-Dictionaries *DOC*))) )
)

(defun z_Get-Drawing-Images ( / dbe enm ent enl ret)
(if (and (z_Get-VLA-Objects)
(setq dbe (vla-Item *DIC* "ACAD_IMAGE_DICT"))
(setq enm (vlax-vla-Object->EName dbe))
(setq ent (entget enm))
(while (assoc 3 ent)
(and (setq enm (cdr (assoc 350 (member (assoc 3 ent) ent))))
(setq enl (entget enm))
(setq ret (append ret (list (cons (cdr (assoc 3 ent))
(cdr (assoc 1
enl)))))))
(setq ent (cdr (member (assoc 3 ent) ent)))
(< 0 (length ret))))
ret)
)

(z_Get-Drawing-Images) will return a constructed list with names and paths.

HOWEVER...
Trying to do get the same info through VBA, seams to me, is nopt that easy:
Here is the code (similar to above methods...)
Where I'm doing wrong?
IsEmpty(vTypeValue) is always returns true. Where is this data hidden in
ACAD_IMAGE_DICT dictionary?
Please help

Private Sub z_GetImageRecords()

Dim oDict As AcadDictionary
Dim oItem As Object
Dim vDataType As Variant
Dim vTypeValue As Variant

Set oDict = ThisDrawing.Database.Dictionaries.Item("ACAD_IMAGE_DICT")
For Each oItem In oDict
oDict.GetXData "", vDataType, vTypeValue
If Not IsEmpty(vTypeValue) Then
For iCount = LBound(vTypeValue) To UBound(vTypeValue)
Debug.Print vTypeValue(iCount)
Next iCount
End If
Next oItem

Set oDict = Nothing
Set oItem = Nothing

End Sub

Re: Get Image List Through VBA

Anonymous — Fri, 25 Jul 2008 11:52:13 GMT

>>(z_Get-Drawing-Images) will return a constructed list with names and
paths.

I don't fully understand your lisp but the sample below will return paths
and/or filenames of images if that's all you're after. It won't tell you if
the image is actually attached but you could determine that with a filtered
selection set.

I hope it helps.

Gary

Dim sImageFiles As String
Dim oFile As AcadFileDependency

For Each oFile In ThisDrawing.FileDependencies
If LCase(oFile.Feature) = "acad:image" Then
sImageFiles = sImageFiles & oFile.FullFileName & vbCrLf
'sImageFiles = sImageFiles & oFile.FileName & vbCrLf
End If
Next

MsgBox sImageFiles

Re: Get Image List Through VBA

Anonymous — Mon, 04 Aug 2008 16:05:03 GMT

Thanks Gary,

"Gary McMaster" wrote in message
news:5990492@discussion.autodesk.com...
>>(z_Get-Drawing-Images) will return a constructed list with names and
paths.

I don't fully understand your lisp but the sample below will return paths
and/or filenames of images if that's all you're after. It won't tell you if
the image is actually attached but you could determine that with a filtered
selection set.

I hope it helps.

Gary

Dim sImageFiles As String
Dim oFile As AcadFileDependency

For Each oFile In ThisDrawing.FileDependencies
If LCase(oFile.Feature) = "acad:image" Then
sImageFiles = sImageFiles & oFile.FullFileName & vbCrLf
'sImageFiles = sImageFiles & oFile.FileName & vbCrLf
End If
Next

MsgBox sImageFiles