[求助]：这是我刚从论坛上下载的累加求和程序

dgh

这是我刚从论坛上下载的累加求和程序，我希望求和的同时能把结果放到剪贴板，方便更改数值。哪位高手帮帮忙谢谢啦！

数据求和汇总

2. 
   
3. (defun C:QH ( )
   
4.    (setq chm 0)
   
5.    (setq l 0)
   
6.    (setq Nn 6)
   
7.    (setq he 0.0)
   
8.    (prompt"\n\n 选 相 加 数:")
   
9.    (setq p ( ssget))
   
10.    (setq l 0   n  (sslength p))
    
11.       (repeat n
    
12.          (if (= "TEXT"
    
13.                 (cdr (assoc 0 (setq e (entget (ssname p l))))))
    
14.              (progn
    
15.                (setq s (cdr (setq as (assoc 1 e)))
    
16.                      sy (atof s)
    
17.                      he (+ sy he))
    
18.                      (setq chm (1+ chm))))
    
19.                      (setq l (+ 1 l))
    
20.       )
    
21.       (Princ "\n\n ")
    
22.       (Princ chm)
    
23.       (Princ " 个数相加等于: ")
    
24.       (Princ he)
    
25.       (setq m (getpoint "\n 将结果放哪里? <回车取消>\n"))
    
26.       (if (/= m nill)
    
27.           (progn
    
28.            (setq Nn (getINT  "\n 保留 小数 位数:")
    
29.                  sty (cdr (assoc 7 e))
    
30.                    h (cdr (assoc 40 e))
    
31.                  afa (cdr (assoc 50 e))
    
32.                   he (rtos he 2 Nn))
    
33.           (command "text" "s" sty m h afa he)
    
34.           )
    
35.       )
    
36.    (terpri)
    
37.    (setq *error* olderr)
    
38.    (princ "\n")
    
39.    (princ)
    
40. )

<br /> (defun C:QH ( )<br />    (setq chm 0)<br />    (setq l 0)<br />    (setq Nn 6)<br />    (setq he 0.0)<br />    (prompt"\n\n 选 相 加 数:")<br />    (setq p ( ssget))<br />    (setq l 0   n  (sslength p))<br />       (repeat n<br />          (if (= "TEXT"<br />                 (cdr (assoc 0 (setq e (entget (ssname p l))))))<br />              (progn<br />                (setq s (cdr (setq as (assoc 1 e)))<br />                      sy (atof s)<br />                      he (+ sy he))<br />                      (setq chm (1+ chm))))<br />                      (setq l (+ 1 l))<br />       )<br />       (Princ "\n\n ")<br />       (Princ chm)<br />       (Princ " 个数相加等于: ")<br />       (Princ he)<br />       (setq m (getpoint "\n 将结果放哪里? <回车取消>\n"))<br />       (if (/= m nill)<br />           (progn<br />            (setq Nn (getINT  "\n 保留 小数 位数:")<br />                  sty (cdr (assoc 7 e))<br />                    h (cdr (assoc 40 e))<br />                  afa (cdr (assoc 50 e))<br />                   he (rtos he 2 Nn))<br />           (command "text" "s" sty m h afa he)<br />           )<br />       )<br />    (terpri)<br />    (setq *error* olderr)<br />    (princ "\n")<br />    (princ)<br /> )

eachy

最初由 dgh 发布
[B]这是我刚从论坛上下载的累加求和程序，我希望求和的同时能把结果放到剪贴板，方便更改数值。哪位.... [/B]

CAD中文字写剪贴板，目前只有用XDAPI。
在Command后面加 (xdrx_setclipboard he) 即可

1. 
   
2. 
   
3. xdrx_setclipboard
   
4. 
   
5. 功    能：把指定的字符串拷贝到windows的剪切板上
   
6. 
   
7. 调用格式：(xdrx_setclipboard <字符串>)
   
8. 
   
9. 返 回 值：若拷贝成功，返回t
   
10. 
    

复制代码

dgh

我试了几次都没有成功。

zhynt

你先得安装晓东工具箱。

eachy

最初由 dgh 发布
[B]我试了几次都没有成功。 [/B]

讲详细些才好分析原因，比如操作系统、CAD版本、使用的过程。

dgh

操作系统windos98、CAD版本14、程序运行正常只是计算数值没有放到剪贴板。我不熟悉LISP编程,请看是不是下面这样

2. 
   
3. (defun c:total( / cmdmode sset ssl nsset temp ssl1 total)
   
4.       (if *error* quit)
   
5.       (setq cmdmode (getvar "cmdecho"))
   
6.       (setvar "cmdecho" 0)
   
7.       (prompt "\nSelect numbers to add: ")
   
8.       (setq sset (ssget))
   
9.       (if (null sset)
   
10.       (princ "\nError: Nothing selected!\n")
    
11.       ;过滤出选中的“text”实体，并报告有多少“text”实体被选中。
    
12.       (progn
    
13.       (setq ssl (sslength sset))
    
14.       (setq nsset (ssadd))
    
15.       (while (> ssl 0)
    
16.       (setq temp (ssname sset (setq ssl(1- ssl))))
    
17.       (if (= (cdr (assoc 0 (entget temp))) "TEXT")
    
18.       (ssadd temp nsset)
    
19.       )
    
20.       )
    
21.       (setq ssl (sslength nsset))
    
22.       (print ssl)
    
23.       (princ "text entities are found.")
    
24.       ;选出所有可转化为数的“TEXT”，并求和。
    
25.       (setq total 0)
    
26.       (setq ssl1 ssl)
    
27.       (while (> ssl 0)
    
28.       (setq temp (ssname nsset (setq ssl (1- ssl))))
    
29.       (setq number (atof(cdr(assoc 1 (entget temp)))))
    
30.       (if (= 0 number)
    
31.       (setq ssl1 (1- ssl1))
    
32.       (setq total (+ total number))
    
33.       )
    
34.       )
    
35.   [color=blue]    (xdrx_setclipboard total)[/color];;by eachy
    
36.       ;显示和及加数的个数，便于用户检查是否多选或漏选。
    
37.       (princ "\nThe total is ")
    
38.       (princ total)
    
39.       (princ "of the ")
    
40.       (princ ssl1)
    
41.       (princ "numbers\n")
    
42.       )
    
43.       )
    
44. 
    
45.       (setvar "CMDECHO" cmdmode)
    
46.       ) [color=red];(Command (xdrx_setclipboard total))[/color]
    
47.       (princ "\n\tc:total loaded. Start command with total.")

<br /> (defun c:total( / cmdmode sset ssl nsset temp ssl1 total)<br />       (if *error* quit)<br />       (setq cmdmode (getvar "cmdecho")) <br />       (setvar "cmdecho" 0) <br />       (prompt "\nSelect numbers to add: ")<br />       (setq sset (ssget))<br />       (if (null sset)<br />       (princ "\nError: Nothing selected!\n")<br />       ;过滤出选中的“text”实体，并报告有多少“text”实体被选中。<br />       (progn<br />       (setq ssl (sslength sset))<br />       (setq nsset (ssadd))<br />       (while (> ssl 0)<br />       (setq temp (ssname sset (setq ssl(1- ssl))))<br />       (if (= (cdr (assoc 0 (entget temp))) "TEXT")<br />       (ssadd temp nsset)<br />       )<br />       )<br />       (setq ssl (sslength nsset))<br />       (print ssl)<br />       (princ "text entities are found.")<br />       ;选出所有可转化为数的“TEXT”，并求和。<br />       (setq total 0)<br />       (setq ssl1 ssl)<br />       (while (> ssl 0)<br />       (setq temp (ssname nsset (setq ssl (1- ssl))))<br />       (setq number (atof(cdr(assoc 1 (entget temp)))))<br />       (if (= 0 number)<br />       (setq ssl1 (1- ssl1))<br />       (setq total (+ total number))<br />       )<br />       )<br />   [color=blue]    (xdrx_setclipboard total)[/color];;by eachy<br />       ;显示和及加数的个数，便于用户检查是否多选或漏选。<br />       (princ "\nThe total is ")<br />       (princ total)<br />       (princ "of the ")<br />       (princ ssl1)<br />       (princ "numbers\n")<br />       ) <br />       )<br /> <br />       (setvar "CMDECHO" cmdmode)<br />       ) [color=red];(Command (xdrx_setclipboard total))[/color]<br />       (princ "\n\tc:total loaded. Start command with total.")

zhynt

应该将(Command (xdrx_setclipboard total))放在程序段中且应该这样(xdrx_setclipboard total)

XDSoft

最初由 dgh 发布
[B]操作系统windos98、CAD版本14、程序运行正常只是计算数值没有放到剪贴板。我不熟悉LISP编程,请看是不是下面这样
(defun c:total( / cmdmode sset ssl nsset temp ssl1 total)
      (if *error* quit)
      (set... [/B]

函数不能用COMMAND执行，只有ACAD的内部命令才可以用COMMAND执行。

函数用(函数名 参数1....参数n) 来执行。

你如雷锋说的那样，把(xdrx_setclipboard total) 放到 total 变量得到结果后的任意位置就可以了。

dgh

这个函数能否把变量放到剪贴板，我试了一下total加上双引号，(xdrx_setclipboard "total") 则把total这几个字符放到剪贴板，否则什么反应都没有。

eachy

最初由 dgh 发布
[B]这个函数能否把变量放到剪贴板，我试了一下total加上双引号，(xdrx_setclipboard "total") 则把total这几个字符放到剪贴板，否则什么反应都没有。 [/B]

应该是(xdrx_setclipboard (rtos total 2 3)。要将total转换为字符串才可以。

duye_chri

但好像还是不行

XDSoft

最初由 duye_chri 发布
[B]但好像还是不行 [/B]

来，你在命令行依次敲入：

command:(setq abc 123.456)
command:(setq ef (rtos abc 2 2))
command:(xdrx_setclipboard ef)

然后你到任何字处理编辑器里面，CTRL+V，粘贴，看看是什么结果？

这个函数要求的参数是字符串

1. <normalfont>
   
2. 94. xdrx_setclipboard
   
3. 
   
4. 功能：把指定的字符串拷贝到windows的剪切板上
   
5. 
   
6. 调用格式：(xdrx_setclipboard <字符串>)
   
7. 
   
8. 返回值：若拷贝成功，返回t
   
9. </normalfont>
   

复制代码

dgh

谢谢！这下行了，对这个程序我还有个问题，
程序运行结果第三行总有一个0，是什么意思，在程序中是怎样实现的。
“8 text entities are found.
The total is 40.0of the 8numbers
0”