社区 › VB › 如何读取当前图形中的所有图片？

StartMe 发表于 2009-7-4 21:34:00

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

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

StartMe 发表于 2009-7-5 20:31:00

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

mccad 发表于 2009-7-5 21:32:00

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

StartMe 发表于 2009-7-6 20:47:00

谢谢郑总。
这个属性我是知道的，但是我不知怎么能读取所有的图片，是遍历所有图中对象，然后判断哪个是图片？我的一张图里对象太多了，好几万，图片几十张，不知怎么能快速读出所有图片？
方便的话能否给写几行例子？谢谢了。

mccad 发表于 2009-7-6 20:58:00

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

StartMe 发表于 2009-7-6 22:47:00

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

StartMe 发表于 2009-7-10 21:50:00

这两天有时间试了一下，但是不知为何选择集对象数为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 发表于 2009-7-10 23:08:00

IMAGE

StartMe 发表于 2009-7-11 20:10:00

行了，谢谢郑总。

查看完整版本: 如何读取当前图形中的所有图片？