Sum attribute

ImaJayhawk · 2nd Mar 2004 11:29 pm

I'm trying to write an autolisp program that will sum all the numbers within a block attribute that has a attribute tag called 100. Here's what I tried.

(defun C:atty (/ en enlist en2 enlist2 sum)
(setq summy 0)
(setq ent (ssget ":N" '((0 . "INSERT"))))
(setq numobj (sslength object))
(foreach ent
(progn
(setq en (car ent))
(setq enlist (entget en))
(if (= (cdr (assoc 66 enlist)) 1)
(progn
(setq en2 (entnext en))
(setq enlist2 (entget en2))
(while (/= (cdr (assoc 0 enlist2)) "SEQEND")
(if (= (cdr (assoc 2 enlist2)) "100")
(setq sum (cdr (assoc 1 enlist2)))
) ;if assoc 2
(setq en2 (entnext en2))
(setq enlist2 (entget en2))
) ; while
) ; progn
) ; if assoc 66
(setq summy (+ summy sum))
) ; progn
) ; foreach

(princ)

)

Any help would be appreciated. Thanks.

ImaJayhawk

**David Bethel** · 3rd Mar 2004 03:31 pm

Try this:
-David

Code:

&#40;defun c&#58;combav &#40;/ tm ss i en an ad at av vl&#41;
  &#40;initget 1&#41;
  &#40;setq tm &#40;strcase &#40;getstring "\nATTRIB Tag To Add&#58;   "&#41;&#41;&#41;
  &#40;and &#40;setq ss 
          &#40;ssget "X" &#40;list &#40;cons 0 "INSERT"&#41;
                           &#40;cons 66 1&#41;
                           &#40;cons 67 &#40;if &#40;= &#40;getvar "TILEMODE"&#41; 1&#41; 0 1&#41;&#41;&#41;&#41;&#41;
        &#40;setq i &#40;sslength ss&#41;&#41;
        &#40;while &#40;not &#40;minusp &#40;setq i &#40;1- i&#41;&#41;&#41;&#41;
               &#40;setq en &#40;ssname ss i&#41;
                     an &#40;entnext en&#41;&#41;
               &#40;while &#40;= "ATTRIB" &#40;cdr &#40;assoc 0 &#40;entget an&#41;&#41;&#41;&#41;
                      &#40;setq ad &#40;entget an&#41;
                            at &#40;strcase &#40;cdr &#40;assoc 2 ad&#41;&#41;&#41;
                            av &#40;cdr &#40;assoc 1 ad&#41;&#41;&#41;
                      &#40;if &#40;= at tm&#41;
                          &#40;setq vl &#40;cons &#40;atof av&#41; vl&#41;&#41;&#41;
                      &#40;setq an &#40;entnext an&#41;&#41;&#41;&#41;&#41;
&#40;apply '+ vl&#41;&#41;

[/code]

ImaJayhawk · 3rd Mar 2004 05:46 pm

Thanks that works great!

ImaJayhawk

Thread: Sum attribute

Thread Tools

Sum attribute

David Bethel's Discipline Details

Bookmarks

Bookmarks

Posting Permissions