Phần mềm này sẽ rất hữu ích giúp bạn tính toán trọng lượng tôn và phục vụ cho việc làm đồ án công nghệ đóng sửa tàu kim loại
- Code:
(defun c:tht(/ laygiatri chongiatri dientich)
(princ"\nBui Cong Loc Nha Trang University")
(setq laygiatri (entsel"\nChon bien dang thep tam:"))
(setq chongiatri (car laygiatri))
(command".area" "o" chongiatri)
(setq dientich (getvar"area"))
(princ "\nDien tich la :")
(princ dientich)
(princ)
(setq t (getreal "\nChieu day thep tam (mm)= :"))
(setq mass (* 0.000001 (* t (* dientich 7.8270820))))
(princ "tong trong luong = ")
(princ mass)
(princ " kg")
(princ "\n50Dt2")
(princ)
)