如图;点击计算面积窗口消失,点击CAD 中封闭图形区域得到面积,并将结果显示到文本框中。
问题:如何实现在选择多个 封闭区域后,按enter 显示窗口,并将选择的多个封闭区域面积累加,显示在文本框中。 关键是如何实现获取键盘 enter 后显示 窗口,用什么函数,先谢谢高手指点
以下是按钮[计算面积]代码
Private Sub CommandButton1_Click()
'当前图样的实体数目
Dim n As Long
n = ThisDrawing.ModelSpace.Count
Dim pt As Variant
'将控制权交给CAD
UserForm1.Hide
'获取点的位置
pt = ThisDrawing.Utility.GetPoint(, "指定内部点:")
ThisDrawing.SendCommand "-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr
'如果存在边界,则会生成新的实体
Dim objpoly As AcadLWPolyline
If ThisDrawing.ModelSpace.Count > n Then
Set objpoly = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
'为文本框添加面积值
TextBox1.Text = objpoly.Area
UserForm1.Show
Else
MsgBox "未发现有效的边界。"
End If
End Sub