[LISP程序]：文本工具：面积文字累加求和

梦断江南

2. 
   
3.   [FONT=courier new]
   
4. (princ "\nc:txta===面积文字累加求和---txtas设置--------lxx.2001.5")
   
5. (princ "\ntxtaa===面积文字累加求和'(txtaa 字高 精度 后缀)-----------lxx.2001.5")
   
6. ;;/////////////////////////////////////////////////////////////;;;
   
7. (defun txtadd (/ ss tta i tt pt)
   
8. (setq ss (ssget '((0 . "TEXT")) )
   
9.       tta 0
   
10.       i 0
    
11. )
    
12. (repeat (sslength ss)
    
13. (setq tt (cdr(assoc 1 (entget(ssname ss i))))
    
14.        tta (+ tta (atof tt))
    
15.        i (1+ i)
    
16. )
    
17. )
    
18. (princ "\n累加总和:")(princ tta)
    
19. (if (not txtdec) (setq txtdec (getint "\n小数点后位数:")) )
    
20. (if (not txthz) (setq txthz (getstring "\n后缀:1-m2/2-米2/3-m/<>:")))
    
21. (cond
    
22. ((= "1" txthz)(setq txthz "m%%132"))
    
23. ((= "2" txthz)(setq txthz "米%%132"))
    
24. ((= "3" txthz)(setq txthz "m"))
    
25. )
    
26. (setq tta (strcat (rtos tta 2 txtdec) txthz)
    
27.        pt (getpoint "\n标注位置:")
    
28. )
    
29. (if (not txth) (setq txth (rtos (getdist pt "\n字高:"))) )
    
30. (command "text" pt txth "" tta ^c)
    
31. )
    
32. ;;;;;;;;;;;;;;;;;;;;
    
33. (defun c:txtas ()
    
34. (setq txth (rtos (getdist "\n字高:"))
    
35.       txtdec (getint "\n小数点后位数:")
    
36.       txthz (getstring "\n后缀: 1-m2/ 2-米2/ 3-m/<>:")
    
37. )
    
38. (cond
    
39. ((= "1" txthz)(setq txthz "m%%132"))
    
40. ((= "2" txthz)(setq txthz "米%%132"))
    
41. ((= "3" txthz)(setq txthz "m"))
    
42. )
    
43. (princ (strcat "\n   字高=" txth "     精度=" (itoa txtdec) "     后缀=" txthz))
    
44. (princ)
    
45. )
    
46. ;;;;;;;;;;;;;;;;;;;;
    
47. (defun c:txta ()
    
48. (princ "\ntxta===面积文字累加求和c:------txtas设置-----lxx.2001.5")
    
49. (txtadd)
    
50. (princ)
    
51. )
    
52. ;;;;;;;;;;;;;;;;;;;;
    
53. ;;;;;用法:(txtaa 字高 精度 后缀);;;;;;;;;;eg. (txtaa 300 3 "m%%132");;;
    
54. (defun txtaa (txth txtdec txthz)
    
55. (princ "\ntxtaa===面积文字累加求和'()-----------lxx.2001.5")
    
56. (txtadd)
    
57. (princ)
    
58. )
    
59. ;;;;;;;;;;;;
    
60.   [/FONT]
    

<br />   [FONT=courier new]<br /> (princ "\nc:txta===面积文字累加求和---txtas设置--------lxx.2001.5")<br /> (princ "\ntxtaa===面积文字累加求和'(txtaa 字高 精度 后缀)-----------lxx.2001.5")<br /> ;;/////////////////////////////////////////////////////////////;;;<br /> (defun txtadd (/ ss tta i tt pt)<br /> (setq ss (ssget '((0 . "TEXT")) )<br />       tta 0<br />       i 0<br /> )<br /> (repeat (sslength ss)<br /> (setq tt (cdr(assoc 1 (entget(ssname ss i))))<br />        tta (+ tta (atof tt))<br />        i (1+ i)<br /> )<br /> )<br /> (princ "\n累加总和:")(princ tta)<br /> (if (not txtdec) (setq txtdec (getint "\n小数点后位数:")) )<br /> (if (not txthz) (setq txthz (getstring "\n后缀:1-m2/2-米2/3-m/<>:")))<br /> (cond<br /> ((= "1" txthz)(setq txthz "m%%132"))<br /> ((= "2" txthz)(setq txthz "米%%132"))<br /> ((= "3" txthz)(setq txthz "m"))<br /> )<br /> (setq tta (strcat (rtos tta 2 txtdec) txthz)<br />        pt (getpoint "\n标注位置:")<br /> )<br /> (if (not txth) (setq txth (rtos (getdist pt "\n字高:"))) )<br /> (command "text" pt txth "" tta ^c)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;<br /> (defun c:txtas ()<br /> (setq txth (rtos (getdist "\n字高:"))<br />       txtdec (getint "\n小数点后位数:")<br />       txthz (getstring "\n后缀: 1-m2/ 2-米2/ 3-m/<>:")<br /> )<br /> (cond<br /> ((= "1" txthz)(setq txthz "m%%132"))<br /> ((= "2" txthz)(setq txthz "米%%132"))<br /> ((= "3" txthz)(setq txthz "m"))<br /> )<br /> (princ (strcat "\n   字高=" txth "     精度=" (itoa txtdec) "     后缀=" txthz))<br /> (princ)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;<br /> (defun c:txta ()<br /> (princ "\ntxta===面积文字累加求和c:------txtas设置-----lxx.2001.5")<br /> (txtadd)<br /> (princ)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;<br /> ;;;;;用法:(txtaa 字高 精度 后缀);;;;;;;;;;eg. (txtaa 300 3 "m%%132");;;<br /> (defun txtaa (txth txtdec txthz)<br /> (princ "\ntxtaa===面积文字累加求和'()-----------lxx.2001.5")<br /> (txtadd)<br /> (princ)<br /> )<br /> ;;;;;;;;;;;;<br />   [/FONT]<br />

好为人师

没什么用，和文字累加有什么区别

guangshunsong

“面积文字累加求和”？
是用CAD的量面积命令量完面积以后再把显示的数值累加吗？

hejunjie39

是面积的计算式吗

JiangYJii

太长了，我有个短点的ｌｉｓｐ程序