DIỄN ĐÀN SINH VIÊN NGÀNH TÀU THỦY VIỆT NAM


Join the forum, it's quick and easy

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
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
DIỄN ĐÀN SINH VIÊN NGÀNH TÀU THỦY VIỆT NAM
Diễn Đàn https://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
» em đang làm đồ án thiết kế mọi người ai có bản vẽ tàu DV-03-BNN DV-04-BNN cho em xin đc k ạ
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyMon Oct 04, 2021 8:10 am by vandung33333

» các anh cho em xin bản vẽ autocad tàu cá tàu đánh cá lưới rê BNN 02 về phần hệ độ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) EmptySun Sep 19, 2021 12:01 am by Admin

» Thiết kế tàu chuyên 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) EmptyThu Apr 22, 2021 9:39 am by VinhVT17

» anh chị nào có bản vẽ tàu fu lịch vỏ nhôm 15m không ạ. cho em xin với ạ
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptySun Apr 11, 2021 1:51 pm by minhsang

» STRENGTH+ANALYSIS+OF+HULL+STRUCTURE
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptySun Mar 21, 2021 1:38 pm by Once

» Xin hồ sơ tàu dầu
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyFri Feb 26, 2021 11:17 am by Nguyễn Đức

» Phần Lớn Dân Tàu Thủy Không Biết Pha Chế Món Đồ Uống Này
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyThu Feb 25, 2021 11:18 pm by nuocuongtot

» Nước tinh khiết Aquafina chính hãng tại Củ Chi
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyThu Dec 17, 2020 5:20 pm by nuocuongtot

» Giáo trình AutoSHIP - PGS.Ts Trần Gia Thái
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyThu Dec 03, 2020 10:05 pm by danvtt51

» Phần mềm ứng dụng NUPAS - CADMATIC
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyWed Dec 02, 2020 4:16 pm by Xuan Phuong

» Xin hồ sơ tàu mẫu hậu cần cá vỏ thép 30m-36m
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyTue Oct 27, 2020 6:46 pm by Nguyen Anh

» Mọi người cho em xin bản vẽ tàu chở dầu 3000 tấn với ạ
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyTue Oct 27, 2020 2:47 pm by duyvu2310hd

» Tổng hợp tàu kéo
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptySat Oct 24, 2020 12:25 pm by VONGU

» Xin file tàu hàng khô 6500t
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyTue Oct 20, 2020 11:28 pm by garangpo123

» Phần Mềm Vẽ Đồ Thị Bonjean tự động
Phần mềm tính diện tích tôn chế tạo ống gió(Bùi Công Lộc) EmptyThu May 21, 2020 9:50 am by trongtin9798

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

Không

Số người truy cập cùng lúc nhiều nhất là 30 người, vào ngày Fri Apr 14, 2023 11:54 am
Statistics
Diễn Đàn hiện có 3841 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: Đạt

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

You are not connected. Please login or register

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

Admin
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

https://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