DIỄN ĐÀN SINH VIÊN NGÀNH TÀU THỦY VIỆT NAM
DIỄN ĐÀN SINH VIÊN NGÀNH TÀU THỦY VIỆT NAM
Diễn Đàn http://tauthuy.hot4um.com là nơi trao đổi kinh nghiệm và chia sẻ tài liệu, chính vì vậy yêu cầu các thành viên thực hiện theo đúng nội quy của diễn đàn. BQT Diễn Đàn Xin Trân Thành Cảm Ơn!

Đăng Nhập

Quên mật khẩu



Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

Số người truy cập cùng lúc nhiều nhất là 12 người, vào ngày Thu Sep 19, 2013 1:20 am
Statistics
Diễn Đàn hiện có 3039 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: nguyenduy8293

Tổng số bài viết đã gửi vào diễn đàn là 1026 in 453 subjects

You are not connected. Please login or register

DIỄN ĐÀN SINH VIÊN NGÀNH TÀU THỦY VIỆT NAM » CHƯƠNG TRÌNH-PHẦN MỀM ỨNG DỤNG TRONG LĨNH VỰC TÀU THỦY » TIN HỌC ỨNG DỤNG » Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc)

Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

Admin

avatar
Admin
Đây là code phần mềm mình mới ngồi viết để anh em tính khối lượng công trình cho dễ
Code:
(defun c:aq ()
(setq n1 (getstring "\n Nhap so thu tu ong "))
  (setq cdo (getreal "\nNhap chieu dai ong(mm):  ") cco (getreal "\nNhap chieu cao ong(mm): ") cro (getreal "\n Nhap chieu rong ong(mm): "))
  (setq PS11 (open (STRCAT "D:\\" "Fie ket qua tinh dien tich ton ong.txt") "a" ))
  ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<kich thuoc mat bich/ kich thuoc 2 ben co the thay doi >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 (setq ktbic 100 kichthuoc2ben 38)
     (setq  dto (* (/ (+ cdo ktbic) 1000) (/ (+ cco cco cro cro kichthuoc2ben) 1000)))
  ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<Tinh dien tich>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

(setq ghi (strcat  "\t" n1 "\t" (rtos dto 2 4)))
   (write-line ghi PS11)
(close PS11)
  (princ "\n")
  (princ "\nDien tich ong m2: ")
  (princ "\n")
  (Princ dto)
  (princ "\n")
  (princ "\n")
  (close PS11)
  )
Các bạn copy đoạn code này rồi past vào file autocad2007.lsp trong mục support của AutoCAD



===========================================================
http://tauthuy.hot4um.com

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết