CAD画的铝材图形怎么计算重量，各位大神给祥细点的步骤

CAD画的铝材图形怎么计算重量，各位大神给祥细点的步骤

(defun c:AW1()
(setvar"cmdecho"0)
(prompt"重量面积标注")(terpri)
  (setvar "osmode" 4271)
(command "area" "O" (car(entsel "
单选闭合对象：")))
    (setq t1 (getdist "
 板厚<4>:"))
(if (null t1)(setq t1 4))
    (setq f1 (getreal " 材料密度<默认7.85>:"))
(if (null f1)(setq f1 7.85))
(setq aa1 (* (/ (getvar "area") 1000000) f1 t1))
(setq aa2 (/ (getvar "area") 1000000))
(setq aa3 (getvar "area"))
    (print "重量kg")(princ aa1)
    (print "平米")(princ aa2)
    (print "平方毫米")(princ aa3)
    (setq p1 (getpoint "
 文字标注点:"))
   (setvar "osmode" 20655)
(command "layer" "m" "6文字层" "c" 3 "6文字层" "l" "continuous" "6文字层" "");6文字层 
  (command "text" "m" p1 60 0 "重量kg")
  (command "text" "m" (polar p1 (* 1.5 pi) 65) 60 0 (rtos aa1 2 2))
  ;(command "text" "m" (polar p1 (* 1.5 pi) 130) 60 0 "平米")
  ;(command "text" "m" (polar p1 (* 1.5 pi) 195) 60 0 (rtos aa2 2 2))
  (command "text" "m" (polar p1 (* 1.5 pi) 260) 60 0 "平方毫米")
  (command "text" "m" (polar p1 (* 1.5 pi) 325) 60 0 (rtos aa3 2 0))
 (princ)
)