Alexander Rivilis,thank your very much.
I tested your way,but it doesn't work yet.I don't know why.
Acturally, I admire your "dyndraw" ,learned a lot from it, so I want to do myself.
I used two ways -one is JIG, another is acedDragGen, both can work.
With JIG , I can't go back ,look at the capture, the entities can't go back their origin positions; but with acedDragGen,I can undo my operations.
So ,here I posted my source code, and my LISP samples.wish you can help me.
p.s. Thanks for anybody's suggestions.
I have compiled all versions (2004-2012 ) in ..\release.
If you want to test it,please appload arx file according to your CAD version at first,then you can run Lisp samples.
There are six commands : test,ttt,txx,tcc,tmm,trr,tins. some of them aren't translated English,sorry.I will translate them later.