06622 发表于 2004-7-20 16:06:00

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

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

mikewolf2k 发表于 2004-7-20 20:34:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16561" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16561</A>

wangzhong 发表于 2004-7-21 08:12:00

求和后的结果怎样输出?

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

06622 发表于 2004-7-21 08:22:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16561" target="_blank" ><FONT color=#000000>http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16561</FONT></A>


       


这是有一个程序，可是我不会加载用，谁能告诉我吗？万分感谢！

06622 发表于 2004-7-21 08:25:00

谢谢你的程序，可是我不会用

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

06622 发表于 2004-7-21 08:25:00

在线的朋友帮我一下？

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

subtlation 发表于 2004-7-21 15:46:00

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


输入ts运行命令


zxj_76 发表于 2004-7-27 16:50:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=23719" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=23719</A>

liufx2000 发表于 2004-8-25 13:26:00

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

ZZXXQQ 发表于 2004-8-25 16:43:00

用LISP写一个：


(DEFUN C:SUMTXT (/ SS SL I SUM DL)<BR>(SETQ SS (SSGET) SL (SSLENGTH SS) I 0 SUM 0)<BR>(WHILE (&lt; I SL)<BR>        (SETQ DL (ENTGET (SSNAME SS I)) I (1+ I))<BR>        (IF (OR (= (SETQ L (CDR (ASSOC 0 DL))) "TEXT") (= L "MTEXT"))<BR>       (SETQ SUM (+ (ATOF (CDR (ASSOC 1 DL))) SUM))<BR>        )<BR>)<BR>(PRINC SUM) (PRINC "\n")<BR>(PRINC)<BR>)
页: [1] 2
查看完整版本: 求一个求和数字型文本的程序