如何获得最近一次创建的对象？

nhy12345678

如何获得最近一次创建的对象？谢谢，能在VBA中使用的哈。

job_ho

可以參考OBJECTADDED事件

或許可以吧!

wylong

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

    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

bios8086

 Dim textObj As AcadText

textObj = ThisDrawing.ModelSpace.Item(0)
 text = textObj.TextString

textObj 可以这样得到吗？

xxxtttxxx

set textObj = ThisDrawing.ModelSpace.Item(0)

所有的对象都要用set的方法

xxxtttxxx

set textObj = ThisDrawing.ModelSpace.Item(0)

所有的对象都要用set的方法

nhy12345678

非常感谢各位的帮助，wylong的答案比较全面和正确