joe
Utente Standard
professione: Disegnatore strutture reticolari spaziali
software: autocad 2015
regione: campania
Ciao, nel seguente lisp la funzione in grassetto non mi restituisce più il risultato, mi date una soluzione per cortesia. Autocad 2019
(DEFUN C
P3 ( )
(VL-LOAD-COM)
(SETQ PS 0.00000785)
(SETQ VOL (VLA-GET-VOLUME (VLAX-ENAME->VLA-OBJECT (CAR (ENTSEL)))))
(SETQ PT (* PS VOL))
(Print (strcat "Il peso è di kg..." (rtos PT)))
(Princ)
)
(DEFUN C
(VL-LOAD-COM)
(SETQ PS 0.00000785)
(SETQ VOL (VLA-GET-VOLUME (VLAX-ENAME->VLA-OBJECT (CAR (ENTSEL)))))
(SETQ PT (* PS VOL))
(Print (strcat "Il peso è di kg..." (rtos PT)))
(Princ)
)