关于AutoCAD中 VBA 编程的一个残念.解决方案

关于AutoCAD中 VBA 编程的一个残念...
废话不说 有人能实现这样一个步骤吗?
1.运行某个宏,出现对话框

2.点击该对话框中的某个按钮

3.对话框消失

4.提示输入一个矩形的第一个点,这个点是直接用鼠标在屏幕上点的 (和直接在CAD里做图一样)

5.提示输入矩形的第二个点,这个点也是直接用鼠标在屏幕上点的,没确定这个点之前 屏幕上显示的是个皮筋形矩形 (和正常CAD做图画矩形一样.)

6.矩形画好了后,前面出来的那个对话框重新出现

7.程序自动根据刚才画的那个矩形,显示出它的面积


重点是 第3步到第6步
还有第7步的"自动找到刚才画的矩形,不用再选"

有高人拉小弟一把吗? 我走进这死胡同N久了....
------解决方案--------------------
你的第7步给你一个参考

列子为加一个文本，并修改它

            Set P_TXT_Hand = ThisDrawing.ModelSpace.AddText("B " + Round_Str(CStr(Round(500 - PP_CL.SC * (PP_CL.B - P_AB(0)) / 1000, 2)), 2), P_TXT, PP_CL.Txt_Height)
            P_TXT_Hand.Rotation = 3.1415 / 2