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

[复制链接]

gjliang

发表于 2003-11-18 16:47:05 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

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

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

ent, Highlight, 选取