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

李军

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

eachy

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

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

李军

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

efan2000

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

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub Test()
   
6.     Dim SSetObj As AcadSelectionSet
   
7.     Dim bFound As Boolean
   
8.     Dim IncreaseValue As Double
   
9.     Dim i As Integer
   
10.    
    
11.     On Error GoTo ErrTrap
    
12.     For Each SSetObj In ThisDrawing.SelectionSets
    
13.         If SSetObj.Name = "ChangeText" Then
    
14.             bFound = True
    
15.             Exit For
    
16.         End If
    
17.     Next
    
18.     If bFound = False Then
    
19.         Set SSetObj = ThisDrawing.SelectionSets.Add("ChangeText")
    
20.     Else
    
21.         Set SSetObj = ThisDrawing.SelectionSets("ChangeText")
    
22.         SSetObj.Clear
    
23.     End If
    
24.     SSetObj.SelectOnScreen
    
25.     If SSetObj.Count = 0 Then Exit Sub
    
26.     IncreaseValue = ThisDrawing.Utility.GetReal("指定数值增量: ")
    
27.     For i = 0 To SSetObj.Count - 1
    
28.         If TypeOf SSetObj(i) Is AcadText Or TypeOf SSetObj(i) Is AcadMText Then
    
29.             If IsNumeric(SSetObj(i).TextString) Then
    
30.                 SSetObj(i).TextString = SSetObj(i).TextString + IncreaseValue
    
31.             End If
    
32.         End If
    
33.     Next
    
34.     SSetObj.Delete
    
35.     Set SSetObj = Nothing
    
36.     Exit Sub
    
37.    
    
38. ErrTrap:
    
39.     If Not (SSetObj Is Nothing) Then Set SSetObj = Nothing
    
40.     On Error GoTo 0
    
41. End Sub
    
42.   [/FONT]
    

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

ll_j

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

再贴一次。

梦断江南

贴个lsp的

2. 
   
3.   [FONT=courier new]
   
4. ;;---ttv数字text/标高text改值工具————————lxx.2001.2m
   
5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
6. (DEFUN C:ttv (/ aa s i ll entt e v nv nvs)
   
7. (princ "\nttv数字text/标高text改值工具————————lxx.2001.2m")
   
8. (setq aa (getdist "\n差值-可为负值:") s (ssget) i 0 )
   
9. (if (null (setq d (getdist "\n小数点后-精度<3>:")))(setq d 3))
   
10. (REPEAT (SSLENGTH S)
    
11.   (setq ll (ssname s i) entt (entget ll))
    
12.   (if (= "TEXT" (cdr (assoc 0 entt)))
    
13.       (progn
    
14.         (setq e (assoc 1 entt)
    
15.               v (atof (cdr e))
    
16.               nv (+ v aa)
    
17.               nvs(rtos nv 2 3)
    
18.         )
    
19.         (if (= 0.0 nv)(setq nvs (strcat "%%128" nvs)))
    
20.         (setq entt (subst (cons 1 nvs) e entt))
    
21.         (entmod entt)
    
22.       )
    
23.   )
    
24.   (SETQ I (+ 1 I))
    
25. )
    
26. (princ)
    
27. )
    
28. (princ "\n ttv数字text/标高text改值工具————tval——————lxx.2001.2m")(princ)
    
29.   [/FONT]
    

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

fjw_ok

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

akang

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

horse

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

kfboyxwa

命令:sum

eye

最好的！

XDSoft

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

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