[求助]：请教如何用选择集取到光栅对象？

evaporated

请教各位大侠以下的问题：

小弟最近用VBA编程时，需要取到图纸中的所有光栅图像。这是小弟的源代码：

Dim a  As AcadSelectionSet

Set a = ThisDrawing.SelectionSets.Add("SSS67ETEXC")

   Dim ft(0 To 1) As Integer
   Dim fd(0 To 1) As Variant
   ft(0) = 0
   fd(0) = "IMAGEDEF"
   ft(1) = 8
   fd(1) = "*"

a.Select acSelectionSetAll, , , ft, fd

关键是选择集的过滤条件 Filter的问题。

这个组码是我将.dwg转换成dxf后查到的。可是用这个方式却怎么也取不到

光栅对象。

请问，如何用选择集取到所有的光栅对象呢？

谢谢各位！

雪山飞狐(lzh)

fd(0) = "IMAGE"

evaporated

谢谢版主！
可是为什么这个组码和.dxf文件中实际对应得那个不一样呢？
怎么可以查到正确的dxf组码呢？

雪山飞狐(lzh)

命令行键入：(entget(car(entsel)))

evaporated

谢谢！我去试下