【KAIXIN】----通用函数,跟贴伪源码

hhh454

两个都买了，支持开心，

【KAIXIN】

2. ;框选数字减数值
   
3. (DEFUN C:XX (/ SHU SS X S1 A TX)
   
4. (KX-COMA)
   
5. (KX-princA "框选数字减数值")
   
6.   (setq SHU (KX-real 7 "" "要减的数值" SHU 1))
   
7. (while (setq ss (ssget":s" '((0 . "*TEXT")(1 . "~*[~`--9]*"))))
   
8.         (setq X -1 )
   
9.     (while (setq s1 (ssname ss (setq X (1+ X))))
   
10.       (setq a (distof (kx-get-dxf 1 s1)))
    
11.       (setq tx (rtos (- a SHU) 2 2))
    
12.         (KX-PUT-DXF s1 1 tx)
    
13.     )
    
14.   )
    
15. (KX-COMB)
    
16. )
    

;框选数字减数值<br /> (DEFUN C:XX (/ SHU SS X S1 A TX)<br /> (KX-COMA)<br /> (KX-princA "框选数字减数值")<br />   (setq SHU (KX-real 7 "" "要减的数值" SHU 1)) <br /> (while (setq ss (ssget":s" '((0 . "*TEXT")(1 . "~*[~`--9]*"))))<br />         (setq X -1 )<br />     (while (setq s1 (ssname ss (setq X (1+ X)))) <br />       (setq a (distof (kx-get-dxf 1 s1)))<br />       (setq tx (rtos (- a SHU) 2 2))<br />         (KX-PUT-DXF s1 1 tx)<br />     )<br />   )<br /> (KX-COMB)<br /> )<br />

ptime

学习学习。

自贡黄明儒

学习学习,支持开心

【KAIXIN】

2. ;加法计算
   
3. (defun C:JIA()
   
4. (KX-COMA)
   
5. (KX-princA "数字文本加法计算")
   
6.       (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5))
   
7.   (if (setq SS (ssget '((0 . "TEXT")(1 . "~*[~`--9]*"))))
   
8.    (progn
   
9.       (SETQ TEXT (eval (cons '+ (KX-Js-Text-JJCC SS))))
   
10.      (if (setq pt (getpoint "\n-->请指定写入点<退出>:"))
    
11.         (kx-Text 5 pt hh 0 (rtos TEXT 2 3))
    
12.      )
    
13.    )
    
14.   )
    
15. (KX-COMB)  
    
16. )
    
17. 
    
18. ;减法计算
    
19. (defun C:JIAN()
    
20. (KX-COMA)
    
21. (KX-princA "数字文本减法计算")
    
22.       (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5))
    
23.   (if (setq SS (ssget '((0 . "TEXT")(1 . "~*[~`--9]*"))))
    
24.    (progn
    
25.       (SETQ TEXT (eval (cons '- (KX-Js-Text-JJCC SS))))
    
26.      (if (setq pt (getpoint "\n-->请指定写入点<退出>:"))
    
27.         (kx-Text 5 pt hh 0 (rtos TEXT 2 3))
    
28.      )
    
29.    )
    
30.   )
    
31. (KX-COMB)  
    
32. )
    
33. 
    
34. ;乘法计算
    
35. (defun C:CHENG()
    
36. (KX-COMA)
    
37. (KX-princA "数字文本乘法计算")
    
38.       (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5))
    
39.   (if (setq SS (ssget '((0 . "TEXT")(1 . "~*[~`--9]*"))))
    
40.    (progn
    
41.       (SETQ TEXT (eval (cons '* (KX-Js-Text-JJCC SS))))
    
42.      (if (setq pt (getpoint "\n-->请指定写入点<退出>:"))
    
43.         (kx-Text 5 pt hh 0 (rtos TEXT 2 3))
    
44.      )
    
45.    )
    
46.   )
    
47. (KX-COMB)  
    
48. )
    
49. 
    
50. ;除法计算
    
51. (defun C:CHU()
    
52. (KX-COMA)
    
53. (KX-princA "数字文本除法计算")
    
54.       (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5))
    
55.   (if (setq SS (ssget '((0 . "TEXT")(1 . "~*[~`--9]*"))))
    
56.    (progn
    
57.       (SETQ TEXT (eval (cons '/ (KX-Js-Text-JJCC SS))))
    
58.      (if (setq pt (getpoint "\n-->请指定写入点<退出>:"))
    
59.         (kx-Text 5 pt hh 0 (rtos TEXT 2 3))
    
60.      )
    
61.    )
    
62.   )
    
63. (KX-COMB)  
    
64. )
    

;加法计算<br /> (defun C:JIA()<br /> (KX-COMA)<br /> (KX-princA "数字文本加法计算")<br />       (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5))<br />   (if (setq SS (ssget '((0 . "TEXT")(1 . "~*[~`--9]*"))))<br />    (progn<br />       (SETQ TEXT (eval (cons '+ (KX-Js-Text-JJCC SS))))<br />      (if (setq pt (getpoint "\n-->请指定写入点<退出>:"))<br />         (kx-Text 5 pt hh 0 (rtos TEXT 2 3))<br />      )<br />    )<br />   ) <br /> (KX-COMB)  <br /> )<br /> <br /> ;减法计算<br /> (defun C:JIAN()<br /> (KX-COMA)<br /> (KX-princA "数字文本减法计算")<br />       (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5))<br />   (if (setq SS (ssget '((0 . "TEXT")(1 . "~*[~`--9]*"))))<br />    (progn<br />       (SETQ TEXT (eval (cons '- (KX-Js-Text-JJCC SS))))<br />      (if (setq pt (getpoint "\n-->请指定写入点<退出>:"))<br />         (kx-Text 5 pt hh 0 (rtos TEXT 2 3))<br />      )<br />    )<br />   ) <br /> (KX-COMB)  <br /> )<br /> <br /> ;乘法计算<br /> (defun C:CHENG()<br /> (KX-COMA)<br /> (KX-princA "数字文本乘法计算")<br />       (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5))<br />   (if (setq SS (ssget '((0 . "TEXT")(1 . "~*[~`--9]*"))))<br />    (progn<br />       (SETQ TEXT (eval (cons '* (KX-Js-Text-JJCC SS))))<br />      (if (setq pt (getpoint "\n-->请指定写入点<退出>:"))<br />         (kx-Text 5 pt hh 0 (rtos TEXT 2 3))<br />      )<br />    )<br />   ) <br /> (KX-COMB)  <br /> )<br /> <br /> ;除法计算<br /> (defun C:CHU()<br /> (KX-COMA)<br /> (KX-princA "数字文本除法计算")<br />       (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5))<br />   (if (setq SS (ssget '((0 . "TEXT")(1 . "~*[~`--9]*"))))<br />    (progn<br />       (SETQ TEXT (eval (cons '/ (KX-Js-Text-JJCC SS))))<br />      (if (setq pt (getpoint "\n-->请指定写入点<退出>:"))<br />         (kx-Text 5 pt hh 0 (rtos TEXT 2 3))<br />      )<br />    )<br />   ) <br /> (KX-COMB)  <br /> )<br />

自贡黄明儒

【KAIXIN】 发表于 2012-11-20 12:24

通用函数搞成伪源码就难读了！！！

【KAIXIN】

2. ;删除数字文本
   
3. (defun c:XX()
   
4. (KX-COMA)   
   
5.   (KX-princA "删除数字文本")
   
6.   (KX-princ "数字文本对象")
   
7.   (KX-E (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))
   
8. (KX-COMB)
   
9. )
   

;删除数字文本<br /> (defun c:XX()<br /> (KX-COMA)    <br />   (KX-princA "删除数字文本")<br />   (KX-princ "数字文本对象")<br />   (KX-E (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))<br /> (KX-COMB)<br /> )<br />

psdcdr

这个非常不错，可以帮助菜鸟学习LSP

phoevana

好东西顶一下

clh521

帮助文件下载了看不了内容啊