请问如何获得被切断实体的句柄？

tfyyf

一个实体被修剪或切断后变为两个实体，其中一个实体的句柄和原实体相同，请问如何获得另一个实体的句柄？

efan2000

如何修剪或切断，是使用ACAD的内部命令还是使用VBA程序。
如果是使用内部命令来操作，可以记录操作前图纸中的实体数目，操作之后的实体数目，如果没有变化，说明没有增加新的实体，否则两次相减就是新增加的实体。

tfyyf

谢谢efan2000回答我的问题，我的问题可能没写清，我的问题是：
在VB中用sendcommand "break"  在一固定点把实体（一般是直线）断开，我已知断开后的两个实体之一的句柄是原实体的，我想知道如何得到断开后的另一实体的句柄。

mccad

最后新增的实体就是另一个实体

tfyyf

明白，我想知道如何得到另一实体的句柄。

tfyyf

最后新增的实体的句柄是什么？

mccad

你可以通过当前对象用OwnerID获得上层对象的ID，再用ObjectIDToObject 方法获得上层对象的对象，这个对象也就是你所处的空间。
然后取这个空间下的最后一个对象，如：

2.     Dim SpaceId As Long
   
3.     Dim Space As AcadObject
   
4.     SpaceId = BreakEnt.OwnerID
   
5.     Set Space = ThisDrawing.ObjectIdToObject(SpaceId)
   
6.     Dim NewEnt As AcadEntity
   
7.     Set NewEnt = Space(Space.Count - 1)
   
8.     Debug.Print NewEnt.ObjectName
   

    Dim SpaceId As Long<br />     Dim Space As AcadObject<br />     SpaceId = BreakEnt.OwnerID<br />     Set Space = ThisDrawing.ObjectIdToObject(SpaceId)<br />     Dim NewEnt As AcadEntity<br />     Set NewEnt = Space(Space.Count - 1)<br />     Debug.Print NewEnt.ObjectName<br />

tfyyf

谢谢！
我试试