如何选择刚生成的图元

xia_jxs

各位大侠：

AUTOLISP中是用EntLast()来选择刚生产的图元，请问VBA中怎样实现。谢谢！！！

gulong2001

返回当前模型空间中最后一个实体方法一

  Dim InsertBlock As Object
   
  Set InsertBlock = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)


  ' 返回当前模型空间中最后一个实体方法二

  Dim SSet As OBJECT
  Dim InsertBlock As OBJECT
   
  On Error Resume Next
   
  Set SSet = ThisDrawing.SelectionSets("ss")
  If Err Then Set SSet = ThisDrawing.SelectionSets.Add("ss")
  SSet.Select acSelectionSetLast '注意这里 acSelectionSetLast ！！
  Set InsertBlock = SSet.Item(0)
   
  Set SSet = Nothing
  ThisDrawing.SelectionSets("ss").Delete

xia_jxs

谢谢 大侠的帮组 向你致敬