废话不说 有人能实现这样一个步骤吗?
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