选择问题集

Jeff_M · 发表于 2005-2-23 17:40:17

我可以成功创建选择集，但我正在尝试使用
Sset。选择 acSelectionSetLast
要选择插入到图形中的最后一个图元，同时我想创建一个图层并将插入的块放置到该图层上。
有什么建议吗？
我很感激
马克

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

双河农场 · 发表于 2005-2-23 19:58:51

标记，这段代码适用于我获取最后一个VISIBLE创建的对象：


Dim ss As AcadSelectionSet
Set ss = ThisDrawing.PickfirstSelectionSet
ss.Select acSelectionSetLast
Debug.Print ss.Item(0).ObjectName

获取模型空间中最后一个创建的对象，无论可见性如何：

copy


Dim ent As AcadEntity
Set ent = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
Debug.Print ent.ObjectName

最高粽院 · 发表于 2005-2-24 09:07:46

嘿Jeff，
我真的很感谢你的帮助。我不完全确定你是否理解了我的问题，或者可能是我的措辞错误。
我想使用Sset.SelectacSelectionSetLast
acSelectionSetLast（根据帮助屏幕）获取绘图中的最后一个实体并将其添加到您的选择集中。
所以，我想渐变最后一个插入的实体，然后使用VBA将该实体放置在指定的图层上。
这真的是我正在寻找的代码，或者是如何实现它的想法。
再次感谢
Mark

恭帝国 · 发表于 2005-2-24 09:36:58

嘿，Jeff
根据您的代码示例，看起来我已经明白了:
谢谢您
Mark代码2]

选择问题集

发表回复

精选推荐