求助VBA。

xljz

怎样能将CAD图形中特定的数字（单行的）选择，然后自动相加，结果（单行的）放在特定的位子？如何做？请教各位高手。

68651521

把想操作的数字 放进一个选择集中

遍历他 依次相加

最后输出结果。

xljz

2楼你说的我明白，可是我是CAD VBA新手，虽然有VB的基础，可是对于CAD VBA，还是很陌生，可否写出来，我可以看懂的。谢谢。

taimen1234

我也是啊！请高手指点

 

68651521

Private Sub CommandButton1_Click()
 
    On Error Resume Next
    Dim txtObJ As AcadText
    Dim txtInsPos(0 To 2) As Double
    Dim Sum As Double
    Dim txtHeight As Double
    Dim SsetObj As AcadSelectionSet
    Dim Entry As AcadEntity
   
    Set SsetObj = ThisDrawing.SelectionSets("Sset1")
    If Err Then Set SsetObj = ThisDrawing.SelectionSets.Add("Sset1")
    SsetObj.Clear
   
    Me.Hide
    SsetObj.SelectOnScreen
   
    Sum = 0
    txtHeight = 0
   
    For Each Entry In SsetObj
        If TypeName(Entry) Like "IAcad*Text*" Then Sum = Sum + Entry.TextString
    Next Entry
   
    txtInsPos(0) = 0
    txtInsPos(1) = 0
    txtInsPos(2) = 0
    txtHeight = 10
   
    Set txtObJ = ThisDrawing.ModelSpace.AddText(Str(Sum), txtInsPos, txtHeight)
   
    SsetObj.Clear
    MsgBox "计算结果显示在在(0,0,0)处"
End Sub