用户登陆
站点统计
最新评论
日志搜索
其他信息
CAD图中所有选中的文字数字的自动求和 [ 日期：2014-04-13 ] 'CAD图中所有选中的文字数字自动求和
Dim oEnt As Object
Dim mm As Double
mm = 0
Dim sset As AcadSelectionSet '定义选择集对象
bb = Str(Int(Timer)) '用从午夜消逝的秒数命名选择集名,因为秒数不会重复,所以集名不会重复,即使不执行后面的"ss_d选择集.Clear ""ss_d选择集.Delete "也不会出错"
Set sset = Acadapp.ActiveDocument.SelectionSets.Add(bb) '新建一个选择集
sset.SelectOnScreen '"提示用户选择"
For Each oEnt In sset '集中循环
If (TypeOf oEnt Is AcadMText) Then
mm = mm + Val(oEnt.TextString)
End If
Next
MsgBox "选中的所有文字数字的和＝" & Format(mm, "0.0000"), vbOKOnly, "文字数字的和"
sset.Delete '删除选择集
[本日志由 admin 于 2014-04-14 08:33 AM 编辑]
引用通告地址 (0)：
http://www.cnng.net/blog/trackback.asp?tbID=73
http://www.cnng.net/blog/trackback.asp?tbID=73&CP=GBK