Counting and sum of the TEXT

[Gaganpatel]

Dear Sir,

I want to count and make the sum of it by the help of lisp file.

1*M16*40

2*M16*35

8*M16*50

1*M16*40

2*M16*35

2*M16*45

1*M16*6PW

1*M16*10PW

2*M16*45

2*M16*35

1*M16*10PW

1*M16*6PW

only select object text sum not total drawing text sum.

Final result will be

M16x35-6

M16x40-2

M16x45-4

PW16x6-2

PW16x10-2

[Gaganpatel]

Dear Sir,

I want to count and make the sum of it by the help of lisp file.

1*M16*40

2*M16*35

8*M16*50

1*M16*40

2*M16*35

2*M16*45

1*M16*6PW

1*M16*10PW

2*M16*45

2*M16*35

1*M16*10PW

1*M16*6PW

only select object text sum not total drawing text sum.

Final result will be

M16x35-6

M16x40-2

M16x45-4

PW16x6-2

PW16x10-2

Report

[Gaganpatel]

Dear Sir,

I want to count and make the sum of it by the help of lisp file.

1*M16*40

2*M16*35

8*M16*50

1*M16*40

2*M16*35

2*M16*45

1*M16*6PW

1*M16*10PW

2*M16*45

2*M16*35

1*M16*10PW

1*M16*6PW

only select object text sum not total drawing text sum.

Final result will be

M16x35-6

M16x40-2

M16x45-4

PW16x6-2

PW16x10-2

[Gaganpatel]

PLEASE REPLAY

[ВeekeeCZ]

What are you talking about? Tell us some background. Maybe post some screenshot or dwg.

What is M16, is it some variable? What are 6MW or 10PW? Remember we know nothing about your area, your industry, your national customs...

[Gaganpatel]

Dear Sir,

Please replay

Please find the attached example file.

[ВeekeeCZ]

Sorry, can't help you, don't understand you.

@Anonymous LOOK HERE for more context. 

[Gaganpatel]

dear sir,

text writing will be changed

old text

M16x45-12

M16x50-8

M16x55-4

new text

1*M16*40

2*M16*35

8*M16*50

1*M16*40

2*M16*35

2*M16*45

1*M16*6PW

i am trying old lisp file but not working

please help

[pbejse]

---

@Gaganpatel wrote:

i am trying old lisp file but not working

please help

---

Perhaps this one  MULTI TYPES OF TEXT SUM by DannyNL

[pbejse]

---

@ВeekeeCZ wrote:

@Anonymous LOOK HERE for more context. 

---

Would love to help, but apparently, I did not even come up with a solution for that 😄

[Gaganpatel]

Dear sir,

text writing will be changed.

old text

1-C

2-D

5-A

new text

2*M16*35

2*M16*45

1*M16*6PW

1*M16*10PW

2*M16*45

2*M16*35

1*M16*10PW

i am trying this lisp but not working

please help .

[Gaganpatel]

Please any body answer

please help

[CADaSchtroumpf]

With your example, seem to work...

Try it if can help you

((lambda ( / js M16*40 M16*45 M16*50 M16*55 n en dxf_txt)
  (setq js (ssget "_X" '((0 . "TEXT") (67 . 0) (8 . "Bolt_Qty") (62 . 40) (7 . "BoltNut"))))
  (cond
    (js
      (setq M16*40 0 M16*45 0 M16*50 0 M16*55 0)
      (repeat (setq n (sslength js))
        (setq
          ent (ssname js (setq n (1- n)))
          dxf_txt (cdr (assoc 1 (entget ent)))
        )
        (foreach el '("?`*M16*40" "?`*M16*45" "?`*M16*50" "?`*M16*55")
          (if (wcmatch dxf_txt el)
            (set (read (substr el 4)) (1+ (eval (read (substr el 4)))))
          )
        )
      )
    )
  )
  (mapcar '(lambda (x) (print (strcat x "-" (itoa (eval (read x)))))) '("M16*40" "M16*45" "M16*50" "M16*55"))
  (prin1)
))

[Gaganpatel]

Dear Sir,

Not only M16 bolt

M20*55*5

M20*85*2

M20*65*5

[Gaganpatel]

Please help me sir

[dbhunia]

Try this......(Considering all Bolts are in Layer "Bolt_Qty")

(defun C:BCNT (/ Toatl);;Add Temp variables here
(setq Bolt_lst (list "M16*6" "M16*35" "M16*40" "M16*45" "M20*55" "M20*65" "M20*85" "16*6PW"));;Add Bolts Here in this format
(setq selectionset (ssget "_A" '((0 . "TEXT") (8 . "Bolt_Qty"))))
(foreach b Bolt_lst
   (setq count 0)
   (repeat (setq N (sslength selectionset))
	(setq Data (ssname selectionset (setq N (- N 1))))
	(setq EntityData (entget Data))
	(setq text (cdr (assoc 1 EntityData)))
	(if (/= (vl-string-search b text) nil)
	    (progn
		(setq text_lst (LM:str->lst text "*"))
		(setq no (atoi (nth 0 text_lst)))
		(setq count (+ count no))
	    )
	)
   )
   (if (= (vl-string-search "PW" b) nil)
   	(print (setq result (strcat (vl-string-subst "X" "*" b) "-" (rtos count))))
	(progn
   		(setq result (strcat (vl-string-subst "X" "*" b) "-" (rtos count)))
		(print (setq result (strcat "PW" (vl-string-subst "" "PW" result))))
	)
   )
   (setq Toatl (cons result Toatl))
)
(print Toatl)
(princ)
)
(defun LM:str->lst ( str del / len lst pos )
    (setq len (1+ (strlen del)))
    (while (setq pos (vl-string-search del str))
	   (setq lst (cons (substr str 1 pos) lst))
           (setq str (substr str (+ pos len)))
    )
    (reverse (cons str lst))
)

[Gaganpatel]

Dear Sir,

This lisp not working in command BCNT

[dbhunia]

This is working with your attached drawing to me.......(AutoCAD 2018)......

Try this.....

(defun C:BCNT (/ Toatl);;Add Temp variables here
(vl-load-com)
(setvar 'cmdecho 0)
(setq Bolt_lst (list "M16*6" "M16*35" "M16*40" "M16*45" "M20*55" "M20*65" "M20*85" "16*6PW"));;Add Bolts Here in this format
(setq selectionset (ssget "_A" '((0 . "TEXT") (8 . "Bolt_Qty"))))
(foreach b Bolt_lst
   (setq count 0)
   (repeat (setq N (sslength selectionset))
	(setq Data (ssname selectionset (setq N (- N 1))))
	(setq EntityData (entget Data))
	(setq text (cdr (assoc 1 EntityData)))
	(if (/= (vl-string-search b text) nil)
	    (progn
		(setq text_lst (LM:str->lst text "*"))
		(setq no (atoi (nth 0 text_lst)))
		(setq count (+ count no))
	    )
	)
   )
   (if (= (vl-string-search "PW" b) nil)
   	(setq result (strcat (vl-string-subst "X" "*" b) "-" (rtos count)))
	(progn
   	   (setq result (strcat (vl-string-subst "X" "*" b) "-" (rtos count)))
	   (setq result (strcat "PW" (vl-string-subst "" "PW" result)))
	)
   )
   (setq Toatl (cons result Toatl))
)
(setq txtpt (getpoint "\nSelect location to print Calculation:"))
(command "text" txtpt "" "%%uBolt Summation:")
(foreach Item (reverse Toatl)
       (command "_TEXT" "" Item)
)
(setvar 'cmdecho 1)
(princ)
)
(defun LM:str->lst ( str del / len lst pos )
    (setq len (1+ (strlen del)))
    (while (setq pos (vl-string-search del str))
	   (setq lst (cons (substr str 1 pos) lst))
           (setq str (substr str (+ pos len)))
    )
    (reverse (cons str lst))
)

What message you are getting???????

[Gaganpatel · Accepted solution]

This lisp is working ok but i want to option

selecting drawing bolt counting option not total drawing bolt count.

please help.

[dbhunia · Accepted solution]

---

@Gaganpatel wrote:

This lisp is working ok but i want to option

selecting drawing bolt counting option not total drawing bolt count.

please help.

---

change....this

(setq selectionset (ssget "_A" '((0 . "TEXT") (8 . "Bolt_Qty"))))

To.....

(setq selectionset (ssget '((0 . "TEXT") (8 . "Bolt_Qty"))))

[Gaganpatel]

Thank you very much sir