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.forumvi.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



Latest topics
» Các anh co ai có cho em xin bản vẽ tàu cá hay tàu gỗ
Thu May 17, 2018 9:21 am by Once

» In móc khoá ở Hà Nội
Fri Apr 20, 2018 8:54 pm by bluesky22188

» Mong cac a/chị giúp dùm em
Mon Apr 16, 2018 9:00 pm by Once

» In huy hiệu
Sun Apr 08, 2018 8:06 pm by bluesky22188

» tàu chở dầu DO
Thu Mar 22, 2018 8:57 am by Thắng Mập

» In cốc giá rẻ siêu đẹp
Fri Mar 16, 2018 9:52 pm by bluesky22188

» tốc độ khai thác của loại tàu công trình ( tàu hút bùn tự hành )
Fri Feb 23, 2018 6:53 pm by Admin

» Cách xác định kích thước tàu hút bùn
Fri Feb 23, 2018 6:52 pm by Admin

» Xin phần mềm Maxsurf
Mon Jan 01, 2018 10:44 pm by trungdhbk

» Bản vẽ tàu cao tốc
Wed Nov 29, 2017 8:18 pm by NKTTT

» In móc khoá
Mon Nov 27, 2017 8:37 pm by bluesky22188

» Thắc mắc về thiết kế tàu hút bùn ???
Fri Nov 17, 2017 2:55 am by cuonggts

» Bảng báo giá ống luồn dây điện RSC 1/2 inch toàn quốc
Fri Oct 13, 2017 10:37 pm by ongluondaydien

» Xin tài liệu thiết kế tuyến hình tàu.
Wed Sep 27, 2017 12:21 pm by cuonggts

» KIẾN THỨC TÀU THỦY
Tue Sep 26, 2017 3:12 am by sofia123

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ó 3096 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: nguyennhatduy

Tổng số bài viết đã gửi vào diễn đàn là 1034 in 459 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)

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.forumvi.com

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