Assigning Values to Block for Flow Calculation

Hi,

I would like to have a lisp for calculating flow of Irrigation sprinklers in a click.

There are different blocks in a drawing. I would like to assign 0.23 to block1 and 0.12 to block 2 and 0.06 to block3.

The lisp required is calculate flow by Number of Block1 x 0.23 + Nr. of Block2 x 0.12 + Nr of block 3 x 0.06, when finished selecting blocks.

If someone could write this in Autolisp, I would appreciate it.

Thanks, and let me know if the explanation was not clear

Welcome to Cadtutor

Does it mean that you have block ( not attributed blocks ) and you want to calculate the values in the selected blocks ?

If not , please be more specific to your aim of the routine .

Tharwat

Thanks for your prompt response.

I have block without attributes.

I have similar thread in the following link

http://www.cadtutor.net/forum/showthread.php?54111-Data-Extraction&highlight=irrigation

I am looking for the same for the blocks without attributes.

Thanks again,

Suriwaits.

Do you want to have the values in a text or by an alert message ?

Alert message would be great..

Try this draft at the moment ...

(defun c:Test (/ *error* IfBlockhasSingleTextObject _sum j ss i sn l)
 ;;--- Tharwat 31. March, 2013 ---;;
 (defun *error* (msg)
   (princ
     "\n*Cancelled by user or by coincidence ,Nothings more*"
   )
 )
 (defun IfBlockhasSingleTextObject (e / i)
   (setq i 0)
   (setq e (tblobjname "BLOCK" (cdr (assoc 2 (entget e)))))
   (while (and    (setq e (entnext e))
       (not (eq (cdr (assoc 0 (entget e))) "SEQEND"))
      )
     (if (wcmatch (cdr (assoc 0 (entget e))) "*TEXT")
   (setq i (1+ i))
     )
   )
   i
 )
 (defun _sum (en / sm)
   (setq sm 0.)
   (setq en (tblobjname "BLOCK" (cdr (assoc 2 (entget en)))))
   (while (and    (setq en (entnext en))
       (not (eq (cdr (assoc 0 (entget en))) "SEQEND"))
      )
     (if (and (wcmatch (cdr (assoc 0 (entget en))) "*TEXT")
          (numberp (read (cdr (assoc 1 (entget en)))))
     )
   (setq sm (+ (read (cdr (assoc 1 (entget en)))) sm))
     )
   )
   sm
 )
 (if (setq j  0.
       ss (ssget "_:L" '((0 . "INSERT")))
     )
   (repeat (setq i (sslength ss))
     (setq sn (ssname ss (setq i (1- i))))
     (if (eq (IfBlockhasSingleTextObject sn) 1)
   (setq j (+ (_sum sn) j))
   (setq l (cons sn l))
     )
   )
 )
 (if l
   (alert
     (strcat "You have < "
         (itoa (length l))
         " > Blocks doesn't have or have more than one Text entity "
     )
   )
 )
 (if (> j 0)
   (alert (strcat "Total Values : " (rtos j 2 4)))
 )
 (princ "\nWritten by Tharwat Al Shoufi")
 (princ)
)

Dear Mr.Tharwat

It seems nice lisp. Thanks

I will try your lisp in the morning when reaching my office.

By seeing your lisp and also my insufficient input given to you, this won't work as i would like to,

Since My blocks don't have any text value or attribute in it

say for example,

for the block with block name is BLK1, it should have value of 0.23

similarly for BLk2 - 0.12 and for BLK3 - 0.06 (the value not necessarily to be shown in the DWG, it should take this value and multiply by number of corresponding block and sum it with other blocks x value and display as Flow is "value of the sum"

I will use your program posted here, if it is not possible how i want..

Suriwaits

If you can upload a sample drawing , that would be much more clearer to know the goal of the code .

Dear Mr.Tharwat,

Your program works flawlessly when the block has text of desired value.

In the attached drawing, 3 different blocks are there

and following is the qty

15 Nr of 180DEG

9 Nr of 360DEG

2 Nr of 90DEG

now i want program to calculate

15x0.12 + 9x0.23 + 2x0.06

0.12, 0.23 & 0.06 are respective flow of 180deg, 360 deg and 90 deg irrigation spray nozzles.

Sprayer1 - Copy.dwg

If I got you well .

(defun c:Test (/ *error* j ss i e)
 ;;--- Tharwat 31. March, 2013 ---;;
 (defun *error* (msg)
   (princ
     "\n*Cancelled by user or by coincidence ,Nothings more*"
   )
 )
 (if (setq j  0.
       ss (ssget "_:L" '((0 . "INSERT") (2 . "180DEG,360DEG,90DEG")))
     )
   (repeat (setq i (sslength ss))
     (setq e (entget (ssname ss (setq i (1- i)))))
     (cond ((eq (cdr (assoc 2 e)) "90DEG")
        (setq j (+ 0.12 j))
       )
       ((eq (cdr (assoc 2 e)) "180DEG")
        (setq j (+ 1.8 j))
       )
       (t
        (eq (cdr (assoc 2 e)) "360DEG")
        (setq j (+ 2.07 j))
       )
     )
   )
 )
 (if (> j 0)
   (alert (strcat "Total Values : " (rtos j 2 4)))
 )
 (princ)
)

Fabulous stuff.

Thank you for time you have spent on my request and i appreciate it.

works very well

i have changed the value as i wanted it

(defun c:Test (/ *error* j ss i e)
 ;;--- Tharwat 31. March, 2013 ---;;
 (defun *error* (msg)
   (princ
     "\n*Cancelled by user or by coincidence ,Nothings more*"
   )
 )
 (if (setq j  0.
       ss (ssget "_:L" '((0 . "INSERT") (2 . "180DEG,360DEG,90DEG")))
     )
   (repeat (setq i (sslength ss))
     (setq e (entget (ssname ss (setq i (1- i)))))
     (cond ((eq (cdr (assoc 2 e)) "90DEG")
        (setq j (+ 0.06 j))
       )
       ((eq (cdr (assoc 2 e)) "180DEG")
        (setq j (+ 0.12 j))
       )
       (t
        (eq (cdr (assoc 2 e)) "360DEG")
        (setq j (+ 0.23 j))
       )
     )
   )
 )
 (if (> j 0)
   (alert (strcat "Total Values : " (rtos j 2 4)))
 )
 (princ)
)

Fabulous stuff.

Thank you for time you have on my request and i appreciate it.

 

works very well

Excellent , Very happy to hear that .

Please read the CODE POSTING GUIDELINES and in the future place your Code in Code Tags. I fixed it for you this time.