AutoLISP routine to calculate the total weight of steel

[robert.1.hall72202]

Im not real good with lisp so I am asking to see if anyone can create a really useful, but Im guessing quick to make, lisp routine......what I need is a lisp that takes the
area of a 2d object, asks for a material thickness to be input, and completes this calculation (area) x (thickness/25.4) x (.2833) whereas thickness in in millimeters and .2833 is the density of steel. This would calculate an weight estimation.
Any help would be appreciated

[paulmcz]

See if this helps.
Paul.

[robert.1.hall72202]

That is a neat lisp routine but I am looking for a quick lisp routine
for a flat blank.....ie blank area X thickness X density
My drawings are basically 2d, steel blanks, that sometimes have
cutouts.

[paulmcz]

...then it must be this one......

[robert.1.hall72202]

Not quite,, the area should be from the area command, so I can pick an object on the screen. Density is also a constant, all we use is steel .2833

[aaronrumple]

You might consider going 3D. Extrude a region to the thicknes needed and you'll have your mass. You can then use the MASSPROP command to list out all sorts of structural properties and even write the data to a text file. All of this is automatic in 3D. No lisp needed.

[RobertB]

Does the area need to be adjusted to inches also? Or are the objects drawing with units defined as inches?

[robert.1.hall72202]

Drawing units are in inches...so its ok to use .2833 in the calculation.

[RobertB]

Attached is a program that does what I think you want.

[robert.1.hall72202]

That is awesome, me likey, me likey....one last quick favor, can you make the output
be in KG. Your a lifesaver, I do this calculation daily.