如何读取当前图形中的所有图片？

StartMe

如何读取当前图形中的所有图片的信息？我要把他列表显示。

StartMe

就像图片管理器那样，把所有的图片名称显示出来即可。

mccad

它是Raster对象，可以用name属性来读取文件名，如果要取得带路径的文件名，则使用ImageFile属性。

StartMe

谢谢郑总。

这个属性我是知道的，但是我不知怎么能读取所有的图片，是遍历所有图中对象，然后判断哪个是图片？我的一张图里对象太多了，好几万，图片几十张，不知怎么能快速读出所有图片？

方便的话能否给写几行例子？谢谢了。

mccad

按道理过滤器你应该会用。

StartMe

O(∩_∩)O哈哈~，我够笨，谢谢郑总。

StartMe

这两天有时间试了一下，但是不知为何选择集对象数为0，图里可是有70多张图片呢。帮忙看看哪地方不对，谢谢。

    On Error Resume Next
    Dim ss As AcadSelectionSet
    If Not IsNull(ThisDrawing.SelectionSets.Item("ss")) Then
        Set ss = ThisDrawing.SelectionSets.Item("ss")
        ss.Delete
    End If
    Set ss = ThisDrawing.SelectionSets.Add("ss")

    Dim filterType(0) As Integer
    Dim filterData(0) As Variant
    filterType(0) = 0
    filterData(0) = "RASTER"
    ss.Select acSelectionSetAll, , , filterType, filterData
    MsgBox ss.Count, vbInformation

不知是不是过滤条件不对，所以 filterData(0) = "RASTERIMAGE" 我也试了，同样为0。

mccad

IMAGE

http://www.mjtd.com/Manual/ArticleShow.asp?ArticleID=495

StartMe

行了，谢谢郑总。