[编程申请]：求LSP程序:框选字符，则所选字符中凡含有(的字符串都在(前加十个空格号

lengliqun

求LSP程序:框选字符，则所选字符中凡含有(的字符串都在(前加十个空格号，谢谢。

自由的鱼

VBA程序

Sub tt()
Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Dim ent As AcadText
Dim s1 As Integer
Dim s2 As Integer
Dim t As String
Dim sset As AcadSelectionSet

Ftype(0) = 0
Fdata(0) = "TEXT"

Set sset = ThisDrawing.SelectionSets.Add("tt")
sset.SelectOnScreen Ftype, Fdata
For Each ent In sset

s1 = InStr(1, ent.TextString, "(")
If s1 > 1 Then
ent.TextString = Mid(ent.TextString, 1, s1 - 1) & String(10, " ") & Mid(ent.TextString, s1)
ent.Update
End If
Next

sset.Delete

End Sub