Berechnen Sie das Gewicht mehrerer Objekte

[joe]

Guten Morgen.
Dies ist eine Routine, um das Gewicht (bei Stahl) von nur einem festen Objekt zu berechnen, das auf der Anfrage ausgewählt wird:

(Defunc cp)
(vl-load-com)
(setq ps 0,00000785)
(setq vol (vla-get-volume (vlax-ename->vla-object (car (entsel))))))
(Sectq pt)
(Print (Strkat "das Gewicht ist kg..." (rtos pt)))
(princ)
)

Ist es möglich, es so zu ändern, dass Sie mich die Auswahl von mehr Objekten fragen?

Danke.

 

[rpor66]

zwei Versionen, pp und/oder pp2.

Bye

 

[joe]

Vielen Dank