Leaderboard

HI (defun C:QQQQPRM ( / AA AR_ENT GION GIONXY LTT PL PL_LEN TEXT_PANTALLA) (setq NO 0) (while (setq pl (entsel "\nSelecc. Entidad:")) (PROGN (setq gion (vlax-invoke (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) 'addregion (list (vlax-ename->vla-object (car pl))))) (setq PL_Len (vlax-get (CAR gion ) 'perimeter)) (setq AR_Ent (vlax-get (CAR gion ) 'Area)) (setq gionXY (vlax-get (CAR gion ) 'CENTROID) ) (vla-delete (CAR gion )) (setq LNO (strcat "NO.=" (rtos (setq NO (+ 1 NO ) ) 2 0))) (setq LTT (strcat "Perim.=" (rtos PL_Len 2 2) "m.")) (setq AA (strcat "?rea=" (rtos AR_Ent 2 2) "m2.")) (setq text_pantalla (strcat LNO "\n" aa "\n" ltt)) (command "_mtext" gionXY gionXY text_pantalla "") ) (princ) ) ); cierre de funcion