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

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

行了，谢谢郑总。

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

发表回复

精选推荐