Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2019 - 11 48
     12
3456789
10111213141516
17181920212223
24252627282930


站点统计

最新日志
茅塞顿开路桥施工动态控制 2.1 rc4618 计算选定区域面积
晴天 CAD图中所有选中的文字数字的自动求和   [ 日期:2014-04-13 ]
在CAD VBA就这么简单,可以计算出文字数字的和,单行文字框就去掉中间的“M”即可
'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
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情