cad里平白无故出现的数字cad删不掉东西也选不了，求解答

来源：蜘蛛抓取(WebSpider) 时间：2017-11-13 08:01 标签： cad标注删不掉
CAD图中所有选中的文字数字的自动求和
VBA就这么简单，可以计算出文字数字的和，单行文字框就去掉中间的“M”即可
'CAD图中所有选中的文字数字自动求和
Dim oEnt As Object
Dim mm As Double
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)
MsgBox "选中的所有文字数字的和＝" & Format(mm, "0.0000"),
vbOKOnly, "文字数字的和"
sset.Delete '删除选择集
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。

我要回帖

更多关于 cad标注删不掉 的文章

 

随机推荐