在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 '删除选择集
相关文章
- 2021-09-08BIM技术丛书Revit软件应用系列Autodesk Revit族详解 [
- 2021-09-08全国专业技术人员计算机应用能力考试用书 AutoCAD2004
- 2021-09-08EXCEL在工作中的应用 制表、数据处理及宏应用PDF下载
- 2021-08-30从零开始AutoCAD 2014中文版机械制图基础培训教程 [李
- 2021-08-30从零开始AutoCAD 2014中文版建筑制图基础培训教程 [朱
- 2021-08-30电气CAD实例教程AutoCAD 2010中文版 [左昉 等编著] 20
- 2021-08-30电影风暴2:Maya影像实拍与三维合成攻略PDF下载
- 2021-08-30高等院校艺术设计案例教程中文版AutoCAD 建筑设计案例
- 2021-08-29环境艺术制图AutoCAD [徐幼光 编著] 2013年PDF下载
- 2021-08-29机械AutoCAD 项目教程 第3版 [缪希伟 主编] 2012年PDF