calculate the weight of multiple objects

[joe]

Good morning
this is a routine to calculate the weight (in case of steel) of only one solid object that is selected at the request:

(defunc cp)
(vl-load-com)
(setq ps 0.00000785)
(setq vol (vla-get-volume (vlax-ename->vla-object (car (entsel))))))
(Sectq pt)
(print (strcat "the weight is kg..." (rtos pt)))
(princ)
)

Is it possible to change it so that you ask me the selection of more objects?

Thank you.

 

[rpor66]

two versions, pp and/or pp2.

bye

 

[joe]

Thank you very much