[求助]：请问如何获得当前图层的图元对象啊？

rjy206

我只能获得当前模型中所有的图元对象，无法获得当前图层中的图元对象，高手帮我解决一下，谢谢了。

雪山飞狐(lzh)

Sub tt()
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Text")
Dim ft(0) As Integer, fd(0)
ft(0) = 8
fd = ThisDrawing.GetVariable("CLayer")
ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count
End Sub

rjy206

如果用VBA，斑竹的方法应该可以；
但是我用Delphi做的，到了ss.Select (acSelectionSetAll, , , ft, fd);
这一步就会报错啊;
如果改为ss.Select (acSelectionSetAll, ft, fd);
之后不会报错，但是不满足要求，结果将模型中所有图元都加入了选择集。