求一个求和数字型文本的程序

06622

比如我在图形中随意输入了 23         28                 35 能否通过我选择这三个文本后进行求和，希望大侠解决！叩谢！来到广东请你吃饭！13192552835

mikewolf2k

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16561

wangzhong

求和后的结果怎样输出?是直接写到图中、对话框输出、还是命令提示行输出。

06622

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16561 这是有一个程序，可是我不会加载用，谁能告诉我吗？万分感谢！

06622

不过我保证我的承诺，如果你在广东，我会请你吃饭的，请来阳江给我电话！13192552835，阳江闸坡很好玩的！

06622

在线的朋友帮我一下好吗？

subtlation

把下面的文件下载后存在autocad的支持路径中，用appload加载


输入ts运行命令

zxj_76

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=23719

liufx2000

Sub CADJSQ_qh() 'CAD计算器
Dim txt_type As String
Dim sset As AcadSelectionSet
Dim i As Integer, j As Integer
Dim qh As Double
qh = 0
Set sset = ThisDrawing.SelectionSets.Add("qh") '定义选择集
If Err Then Set sset = ThisDrawing.SelectionSets.Add("wzxg"): sset.Clear
sset.SelectOnScreen '提升用户选择对象
For i = 0 To sset.Count - 1
txt_type = sset.Item(i).ObjectName
If txt_type = "AcDbText" Or txt_type = "AcDbMText" Then
qh = qh + sset.Item(i).TextString
End If
Next
MsgBox "当前所选择数据的总和为" & qh
sset.Delete
End Sub

ZZXXQQ

用LISP写一个： (DEFUN C:SUMTXT (/ SS SL I SUM DL)
(SETQ SS (SSGET) SL (SSLENGTH SS) I 0 SUM 0)
(WHILE (< I SL)
(SETQ DL (ENTGET (SSNAME SS I)) I (1+ I))
(IF (OR (= (SETQ L (CDR (ASSOC 0 DL))) "TEXT") (= L "MTEXT"))
(SETQ SUM (+ (ATOF (CDR (ASSOC 1 DL))) SUM))
)
)
(PRINC SUM) (PRINC "\n")
(PRINC)
)