画一个图元后，如何获得这个图元的对象？

这殇丨流星雨 · 发表于 2017-10-20 20:26:00

比如我使用"SendCommand"对CAD发送一个“PLINE ”命令，然后使用这个命令手工在图上画一条多段线
那么当编辑完毕后，按下空格、回车、或ESC键后，该如何马上就获得这个多段线的对象？
试过Document的ObjectAdded事件，好像触发事件时获得的那个对象，跟编辑完成后最终的这个对象不一致。

这殇丨流星雨 · 发表于 2017-10-20 20:57:00

哎。。好后悔错过了大神云集的时代。。14、15年好像人还不少，到今年好像没什么人了。。

Andyhon · 发表于 2017-10-21 09:26:00

Tony has the right idea.
Dim oEnt as AcadEntity
Set oEnt = ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)
' (for ModelSpace)
=============
Lisp syntax:
(EntLast)

画一个图元后，如何获得这个图元的对象？

发表回复

精选推荐