[求助]：求个程序，怎么让选取的数据文字全部加上某个数据？

eobser

我是菜鸟 刚学lisp和vba
我想让选取的数据文字全部加上某个数 但我不会 也想学学
另外也可以用来做简单的高程点转换
高手们能给我搞一个吗？
先谢

mountains3

1.建立选择集，选择所要修改的数据
2.遍历选择集
对于每个数据对象，取得他的textstring
把textstring与你要加的数据合并
把合并后的数据替代原textstring即可
当然在建立选择集时要进行过滤

zhuxuhong

这是我以前用LISP编的,你试试 。加载后程序运行命令为ct

qiaqiadeng

请尝试这个：
Private Sub CommandButton1_Click()
Dim Sel1 As AcadSelectionSet
Dim i As Integer
Dim Num As Integer
Dim Handl As String '句柄
Dim Obj As AcadObject '参照对象
Dim Qhz As String '前后缀
Dim Objtype
Me.Hide
Num = ThisDrawing.SelectionSets.count
For i = 0 To Num - 1
    Set Sel1 = ThisDrawing.SelectionSets.Item(i)
    If Sel1.Name = "sel1" Then
        Sel1.Delete
    End If
Next i
Set Sel1 = ThisDrawing.SelectionSets.Add("sel1")
Sel1.SelectOnScreen
Qhz = TextBox1.Text
i = 0
For Each Obj In Sel1
    Handl = Sel1.Item(i).Handle
    Set Obj = ThisDrawing.HandleToObject(Handl)
    Objtype = Obj.ObjectName
    If Objtype = "AcDbMText" Or Objtype = "AcDbText" Then
        If Op1.value = True Then
            Obj.TextString = Qhz & Obj.TextString
        Else
        If Op2.value = True Then
            Obj.TextString = Obj.TextStrOping & Qhz
        Else
        If Op3.value = True Then
            Obj.TextString = Qhz & Obj.TextString & Qhz
        End If
        End If
        End If
    End If
    i = i + 1
Next
End Sub

zxhliu

LISP只是处理数字的，不能处理文字！