二次开发问题

fjw98043121

若在CAD图中，有几个数字，怎样一次性减去同一个数呢。

请高手指点一二,谢谢

sdh142857

可用VBA来编程,我编了个小程序,你可直接使用,或在这基础上修改.
注意:本程序只适用于单行文本实体.

Sub TEXT_ADD_VALUE()
    Dim SSetObj As AcadSelectionSet
    Dim MyText As AcadText
    Dim nStep As Integer
   
    On Error Resume Next
    Set SSetObj = ThisDrawing.SelectionSets.Add("TEXTS")
    If Err.Number <> 0 Then
        Set SSetObj = ThisDrawing.SelectionSets("TEXTS")
    End If
    ThisDrawing.Utility.Prompt "请选择文本..."
    SSetObj.SelectOnScreen
    nStep = ThisDrawing.Utility.GetInteger("请输入增量值<0>:")
    If nStep = 0 Then Exit Sub
   
    Dim i As Integer, j As Integer
    For i = 0 To SSetObj.Count - 1
        If SSetObj(i).ObjectName = "AcDbText" Then
            Set MyText = SSetObj(i)
            MyText.TextString = Val(MyText.TextString) + nStep
            j = j + 1
        End If
    Next
    ThisDrawing.Utility.Prompt "运行成功,已修改" & j & "个文本."
End Sub