[分享]數字加减的lsp

sammywuhkg

ta.lsp 可把text文字裹的数目字加起来

td.lsp 把text文字的数目字减起来

例如: 21 +12 = 33

只要选取文字21及12,再选取任可的一个文字,它就可以便成答案33了.

如此类推.

请给我回覆Ｏ

carrot82

Ｏ

lxq810125

大哥!咋是乱码呀?

lxq810125

老兄!你的TA.LSP咋解不了密呀?

jaminth

2. (defun c:td (/ #1 #2 #3 #4 #5 #6 e)
3. (prompt "\nSelect the text to total area:")
4. (setq #1 (ssget))
5. (setq #2 (getstring T "\nType character in front of the number: "))
6. (if (= #2 "") (setq #2 " "))
7. (setq #2a (strlen #2))
8. (setq _total 0 con 0)
9. (IF #1
10.    (repeat (sslength #1)
11.      (setq #3(entget (ssname #1 con)))
12.      (if (= (cdr (assoc 0 #3)) "TEXT")
13.        (PROGN
14.          (setq #4 (cdr (assoc 1 #3)))
15.          (setq #4(substr #4 #2a))
16.          (setq _total (+ _total (atof #4)))
17.          (setq con (1+ con))
18.        )
19.      )
20.    )
21. )
22. (prompt "\nSelect the text of deduct area:")
23. (setq #1 (ssget))
24. (setq #2a (strlen #2))
25. (setq _total1 0 con 0)
26. (IF #1
27.    (repeat (sslength #1)
28.      (setq #3(entget (ssname #1 con)))
29.      (if (= (cdr (assoc 0 #3)) "TEXT")
30.        (PROGN
31.          (setq #4(cdr (assoc 1 #3)))
32.          (setq #4(substr #4 #2a))
33.          (setq _total1 (+ _total1 (atof #4)))
34.          (setq con (1+ con))
35.        )
36.      )
37.    )
38. )
39. (setq _total2 (- _total _total1))
40. (setvar "cmdecho" 0)
41. (setq #5 (CAR (ENTSEL "\nSelect a text change to total area:")))
42. (setq #6 (entget #5))
43. (setq #e (subst (cons 1 (strcat #2 (strcat (rtos _total2 2 3) " " "m")))
44.         (assoc 1 #6) #6))
45. (princ (substr (cdr (assoc 1 #e)) #2a))
46. (entmod #e)
47. (princ)
48.     (setq sqp (cdr (assoc 10 #e)))
49.     (setq sqlen (strlen (cdr (assoc 1 #e))))
50.     (setq sqth (cdr (assoc 40 #e)))
51.     (setq sqp1 (polar sqp (dtr 0) (* (- sqlen 1.75) sqth)))
52.     (setq sqp2 (polar sqp1 (dtr 90) (/ sqth 1.025)))
53.     (setq sqth1 (/ sqth 1.200))
54.     (command "text" sqp2 sqth1 "0" "2")
55. (princ))
56. ;(defun c:td () (c:tot-d))
57. ;(princ
58. ;  "\n\tC:TOT-d loaded.  Start command with TD or TOT-D.")
59. ;(princ)

(defun c:td (/ #1 #2 #3 #4 #5 #6 e) (prompt "\nSelect the text to total area:") (setq #1 (ssget)) (setq #2 (getstring T "\nType character in front of the number: ")) (if (= #2 "") (setq #2 " ")) (setq #2a (strlen #2)) (setq _total 0 con 0) (IF #1    (repeat (sslength #1)      (setq #3(entget (ssname #1 con)))      (if (= (cdr (assoc 0 #3)) "TEXT")        (PROGN          (setq #4 (cdr (assoc 1 #3)))          (setq #4(substr #4 #2a))          (setq _total (+ _total (atof #4)))          (setq con (1+ con))        )      )    ) ) (prompt "\nSelect the text of deduct area:") (setq #1 (ssget)) (setq #2a (strlen #2)) (setq _total1 0 con 0) (IF #1    (repeat (sslength #1)      (setq #3(entget (ssname #1 con)))      (if (= (cdr (assoc 0 #3)) "TEXT")        (PROGN          (setq #4(cdr (assoc 1 #3)))          (setq #4(substr #4 #2a))          (setq _total1 (+ _total1 (atof #4)))          (setq con (1+ con))        )      )    ) ) (setq _total2 (- _total _total1)) (setvar "cmdecho" 0) (setq #5 (CAR (ENTSEL "\nSelect a text change to total area:"))) (setq #6 (entget #5)) (setq #e (subst (cons 1 (strcat #2 (strcat (rtos _total2 2 3) " " "m")))         (assoc 1 #6) #6)) (princ (substr (cdr (assoc 1 #e)) #2a)) (entmod #e) (princ)     (setq sqp (cdr (assoc 10 #e)))     (setq sqlen (strlen (cdr (assoc 1 #e))))     (setq sqth (cdr (assoc 40 #e)))     (setq sqp1 (polar sqp (dtr 0) (* (- sqlen 1.75) sqth)))     (setq sqp2 (polar sqp1 (dtr 90) (/ sqth 1.025)))     (setq sqth1 (/ sqth 1.200))     (command "text" sqp2 sqth1 "0" "2") (princ)) ;(defun c:td () (c:tot-d)) ;(princ ;  "\n\tC:TOT-d loaded.  Start command with TD or TOT-D.") ;(princ)

jaminth

2. (defun DTR (a)
3. (* pi (/ a 180.00)))
4. (defun c:ta ()
5. (setq #oldla (getvar "clayer"))
6. (prompt "\nSelect the text to total area:")
7. (setq #1 (ssget))
8. (setq #2 (getstring T "\nType character in front of the number: "))
9. (if (= #2 "") (setq #2 "1"))
10. (setq #2a (strlen #2))
11. (setq _total 0 con 0)
12. (IF #1
13.    (repeat (sslength #1)
14.      (setq #3(entget (ssname #1 con)))
15.      (if (= (cdr (assoc 0 #3)) "TEXT")
16.        (PROGN
17.          (setq #3a (strlen (cdr (assoc 1 #3))))
18.          (setq #3b (+ (- #3a #2a) 1))
19.          (setq #4(cdr (assoc 1 #3)))
20.          (setq #4(substr #4 #2a #3b))
21.          (setq _total(+ _total (atof #4)))
22.          (setq con (1+ con))
23.        )
24.      )
25.    )
26. )
27. (setvar "cmdecho" 0)
28. (setq #5 (CAR (ENTSEL "\nSelect a text change to total area:")))
29. (setq #6 (entget #5))
30. (if (= #2 "1")
31. (progn
32. (setq #e (subst (cons 1 (strcat (rtos _total 2 3) "m"))
33.         (assoc 1 #6) #6))
34. )
35. )
36. (if (> #2a 1)
37. (progn
38. (setq #e (subst (cons 1 (strcat #2 (strcat (rtos _total 2 3)" " "m")))
39.         (assoc 1 #6) #6))
40. )
41. )
42. (princ (substr (cdr (assoc 1 #e)) #2a))
43. (entmod #e)
44.     (setq sqp (cdr (assoc 10 #e)))
45.     (setq sqlen (strlen (cdr (assoc 1 #e))))
46.     (setq sqth (cdr (assoc 40 #e)))
47.     (setq #la (cdr (assoc 8 #e)))
48.     (setq sqp1 (polar sqp (dtr 0) (* (- sqlen 1.75) sqth)))
49.     (setq sqp2 (polar sqp1 (dtr 90) (/ sqth 1.025)))
50.     (setq sqth1 (/ sqth 1.200))
51.     (command "layer" "s" #la "")
52.     (command "text" sqp2 sqth1 "0" "2")
53. (command "layer" "s" #oldla "")
54. (princ))

(defun DTR (a) (* pi (/ a 180.00))) (defun c:ta () (setq #oldla (getvar "clayer")) (prompt "\nSelect the text to total area:") (setq #1 (ssget)) (setq #2 (getstring T "\nType character in front of the number: ")) (if (= #2 "") (setq #2 "1")) (setq #2a (strlen #2)) (setq _total 0 con 0) (IF #1    (repeat (sslength #1)      (setq #3(entget (ssname #1 con)))      (if (= (cdr (assoc 0 #3)) "TEXT")        (PROGN          (setq #3a (strlen (cdr (assoc 1 #3))))          (setq #3b (+ (- #3a #2a) 1))          (setq #4(cdr (assoc 1 #3)))          (setq #4(substr #4 #2a #3b))          (setq _total(+ _total (atof #4)))          (setq con (1+ con))        )      )    ) ) (setvar "cmdecho" 0) (setq #5 (CAR (ENTSEL "\nSelect a text change to total area:"))) (setq #6 (entget #5)) (if (= #2 "1") (progn (setq #e (subst (cons 1 (strcat (rtos _total 2 3) "m"))         (assoc 1 #6) #6)) ) ) (if (> #2a 1) (progn (setq #e (subst (cons 1 (strcat #2 (strcat (rtos _total 2 3)" " "m")))         (assoc 1 #6) #6)) ) ) (princ (substr (cdr (assoc 1 #e)) #2a)) (entmod #e)     (setq sqp (cdr (assoc 10 #e)))     (setq sqlen (strlen (cdr (assoc 1 #e))))     (setq sqth (cdr (assoc 40 #e)))     (setq #la (cdr (assoc 8 #e)))     (setq sqp1 (polar sqp (dtr 0) (* (- sqlen 1.75) sqth)))     (setq sqp2 (polar sqp1 (dtr 90) (/ sqth 1.025)))     (setq sqth1 (/ sqth 1.200))     (command "layer" "s" #la "")     (command "text" sqp2 sqth1 "0" "2") (command "layer" "s" #oldla "") (princ))

phoenixdjq

这种程序网上有好多呢

我现在就有一个这样的程序呢，也是从网上下载的

dkj0322

谢谢楼上的分享，参考下，很感激

白色微風1991

謝謝樓上的分享，參考下，很感激