[编程申请]：建议晓东工具文字工具增加数字求和、批量数字增减数值功能

李军 · 发表于 2002-9-23 11:34:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

建议文字工具增加数字求和、批量数字增减数值功能！

eachy · 发表于 2002-9-23 12:26:38

最初由李军发布
[B]建议文字工具增加数字求和、批量数字增减数值功能！ [/B]

1 数字相加：【文字二】－》数字相加
2 数值递增，用【符号】－》符号标注

李军 · 发表于 2002-11-10 17:27:36

我说的“批量数字增减数值功能 ”是指将已有的一组数字全部增减一个相同的值。如：2.50,3.50,4.50......增加为：3.00,4.00,5.00......

efan2000 · 发表于 2002-11-10 18:00:44

自己编写一个，使用起来也方便。

[FONT=courier new]
Sub Test()
Dim SSetObj As AcadSelectionSet
Dim bFound As Boolean
Dim IncreaseValue As Double
Dim i As Integer
On Error GoTo ErrTrap
For Each SSetObj In ThisDrawing.SelectionSets
If SSetObj.Name = "ChangeText" Then
bFound = True
Exit For
End If
Next
If bFound = False Then
Set SSetObj = ThisDrawing.SelectionSets.Add("ChangeText")
Else
Set SSetObj = ThisDrawing.SelectionSets("ChangeText")
SSetObj.Clear
End If
SSetObj.SelectOnScreen
If SSetObj.Count = 0 Then Exit Sub
IncreaseValue = ThisDrawing.Utility.GetReal("指定数值增量: ")
For i = 0 To SSetObj.Count - 1
If TypeOf SSetObj(i) Is AcadText Or TypeOf SSetObj(i) Is AcadMText Then
If IsNumeric(SSetObj(i).TextString) Then
SSetObj(i).TextString = SSetObj(i).TextString + IncreaseValue
End If
End If
Next
SSetObj.Delete
Set SSetObj = Nothing
Exit Sub
ErrTrap:
If Not (SSetObj Is Nothing) Then Set SSetObj = Nothing
On Error GoTo 0
End Sub
[/FONT]

[FONT=courier new] 
 
Sub Test() 
    Dim SSetObj As AcadSelectionSet 
    Dim bFound As Boolean 
    Dim IncreaseValue As Double 
    Dim i As Integer 
    
    On Error GoTo ErrTrap 
    For Each SSetObj In ThisDrawing.SelectionSets 
        If SSetObj.Name = "ChangeText" Then 
            bFound = True 
            Exit For 
        End If 
    Next 
    If bFound = False Then 
        Set SSetObj = ThisDrawing.SelectionSets.Add("ChangeText") 
    Else 
        Set SSetObj = ThisDrawing.SelectionSets("ChangeText") 
        SSetObj.Clear 
    End If 
    SSetObj.SelectOnScreen 
    If SSetObj.Count = 0 Then Exit Sub 
    IncreaseValue = ThisDrawing.Utility.GetReal("指定数值增量: ") 
    For i = 0 To SSetObj.Count - 1 
        If TypeOf SSetObj(i) Is AcadText Or TypeOf SSetObj(i) Is AcadMText Then 
            If IsNumeric(SSetObj(i).TextString) Then 
                SSetObj(i).TextString = SSetObj(i).TextString + IncreaseValue 
            End If 
        End If 
    Next 
    SSetObj.Delete 
    Set SSetObj = Nothing 
    Exit Sub 
    
ErrTrap: 
    If Not (SSetObj Is Nothing) Then Set SSetObj = Nothing 
    On Error GoTo 0 
End Sub 
  [/FONT]

ll_j · 发表于 2002-11-10 18:14:07

最初由李军发布
我说的“批量数字增减数值功能 ”是指将已有的一组数字全部增减一个相同的值。如：2.50,3.50,4.50......增加为：3.00,4.00,5.00......

再贴一次。

梦断江南 · 发表于 2002-11-10 20:18:55

贴个lsp的

[FONT=courier new]
;;---ttv数字text/标高text改值工具————————lxx.2001.2m
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:ttv (/ aa s i ll entt e v nv nvs)
(princ "\nttv数字text/标高text改值工具————————lxx.2001.2m")
(setq aa (getdist "\n差值-可为负值:") s (ssget) i 0 )
(if (null (setq d (getdist "\n小数点后-精度<3>:")))(setq d 3))
(REPEAT (SSLENGTH S)
(setq ll (ssname s i) entt (entget ll))
(if (= "TEXT" (cdr (assoc 0 entt)))
(progn
(setq e (assoc 1 entt)
v (atof (cdr e))
nv (+ v aa)
nvs(rtos nv 2 3)
)
(if (= 0.0 nv)(setq nvs (strcat "%%128" nvs)))
(setq entt (subst (cons 1 nvs) e entt))
(entmod entt)
)
)
(SETQ I (+ 1 I))
)
(princ)
)
(princ "\n ttv数字text/标高text改值工具————tval——————lxx.2001.2m")(princ)
[/FONT]

fjw_ok · 发表于 2002-11-13 20:17:54

我作了一个计算的
可可计算行行列列四则运算(比如:'a1+b2-C3*C4\D5^D6)
明天上传

akang · 发表于 2002-11-13 20:48:09

这是我以前写的一个，刚好满足第3贴的要求。但我知道这不是最好的，打算以后增加字符类型的判断，所以仅以此作为交流。

horse · 发表于 2002-11-14 09:48:04

楼上的ＣＥ很好用，可惜没看到使用说明。

kfboyxwa · 发表于 2002-11-18 10:00:34

命令:sum

eye · 发表于 2002-11-18 14:56:28

最好的！

XDSoft · 发表于 2002-11-18 15:01:45

最初由 eye 发布
[B]最好的！ [/B]

怎么是空的？编辑下帖子，重新传附件吧。

账号		自动登录	找回密码
密码			立即注册

[编程申请]：建议晓东工具文字工具增加数字求和、批量数字增减数值功能

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：建议晓东工具文字工具增加数字求和、批量数字增减数值功能