选择问题集
我可以成功创建选择集，但我正在尝试使用Sset。选择 acSelectionSetLast
要选择插入到图形中的最后一个图元，同时我想创建一个图层并将插入的块放置到该图层上。
有什么建议吗？
我很感激
马克
**** Hidden Message ***** 标记，这段代码适用于我获取最后一个VISIBLE创建的对象：
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.PickfirstSelectionSet
ss.Select acSelectionSetLast
Debug.Print ss.Item(0).ObjectName
获取模型空间中最后一个创建的对象，无论可见性如何：
Dim ent As AcadEntity
Set ent = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
Debug.Print ent.ObjectName
嘿Jeff，
我真的很感谢你的帮助。我不完全确定你是否理解了我的问题，或者可能是我的措辞错误。
我想使用Sset.SelectacSelectionSetLast
acSelectionSetLast（根据帮助屏幕）获取绘图中的最后一个实体并将其添加到您的选择集中。
所以，我想渐变最后一个插入的实体，然后使用VBA将该实体放置在指定的图层上。
这真的是我正在寻找的代码，或者是如何实现它的想法。
再次感谢
Mark 嘿，Jeff
根据您的代码示例，看起来我已经明白了:
谢谢您
Mark代码2]
页:
[1]