[原创]：刚写的一个通过选取数字进行乘法运算的程序！

gjliang

Sub mu()
Dim ent1 As AcadObject
Dim ent2 As AcadObject
Dim ent3 As AcadObject
Dim pt1 As Variant
Dim pt2 As Variant
Dim pt3 As Variant
Dim a As Double
Dim b As Double
On Error Resume Next
ThisDrawing.Utility.GetEntity ent1, pt1, "选取乘数："
ent1.Highlight True
a = ent1.textString
ThisDrawing.Utility.GetEntity ent2, pt2, "选取被乘数："
ent2.Highlight True
b = ent2.textString
ThisDrawing.Utility.GetEntity ent3, pt3, "选取改变数："
ent3.Highlight True
ent3.textString = a * b
ent1.Highlight False
ent2.Highlight False
End Sub

根据这个方法可以写出加、减、除的运算来，不过我觉得对我用处不大所以没写，有兴趣的朋友可以自己去写。