TÒ CHÚC HÁ NHC HÍMH

xi NGHiỆr xi HGHiụ
IHÃN MÉM QUAN IY r HÁN MẺM TU VÃN xti

OAN KHOA HOC VẢ CONG NGHE

XN XUÁTNHẶr KHẨU XNTỊlíX?NGHOÁ
VẢ H NH DOANH ĨHIẺT EỊTIN HỌC VẢ TU VÃN XÂY DựNG

Trong chương trình đào tạo kỹ sư của các trường đại học khối kỹ thuật thì các
I.Giới thiệu chung về công ty
đạt
thực
tập làchung:
một trong những môn học hết sức quan trọng.Quan trọng không chỉ ở
1. Giới thiệu
việc các sinh viên được làm quen với các công việc thực tế mà mai sau ra trường mình
có thể phải làm mà điều quan trọng hơn là sinh viên có thễ trau rồi lại những kiến thức
đã học trong sách vở, tiếp thu được nhiều kiến thức thực tế quý háu để có một tri thức
vững vàng giúp ích cho đời trong tương lai.
Trường đại học Xây Dựng là một trong những trường hết sức coi trọng các đợt
thực tập trong chương trình đào tạo kỹ sư. Thật vậy, trong quá trình học tập và rèn
luyện tại trường, sinh viên có hai kỳ thực tập. Kỳ thứ nhất, kỳ thực tập công nhân, diễn
ra vào kỳ II của năm thứ ha, kỳ thứ hai là kỳ thực tập cán hộ kỹ thuật, diển ra vào kỳ
cuối cùng trước khi sinh viên làm đồ án tốt nghiệp.
Chúng em là những sinh viên K45 khoa Công Nghệ Thông Tin, chúng em sắp
kết thúc khoá học của mình hằng việc làm đồ án tốt nghiệp, và theo đúng chương trình
đào tạo của nhà trường chúng em được tham dự một kỳ thực tập cán hộ kỹ thuật. Theo
đúng chuyên ngành của mình, chúng em được nhà trường cùng với khoa giới thiệu về
công ty tin học hộ xây dựng để thực tập. Sau đây là háo cáo của em về đợt thực tập

vừa qua.
Công ty tin học xây dựng (Tên giao dịch quốc tế ClC-Contruction Iníomatics Corporation)
là đơn vị trực thuộc Bộ xây dựng, được thành lập thep Quyết định số 243/QĐ-BXD ngày
16/02/2000 của Bộ trưởng Bộ xây dựng trên cơ sở Trung tâm Tin học Xây dựng.
Tiền thân từ phòng ứng dụng toán và máy tính (5/1974) phát triển thành Trung tâm Tin học
Xay dựng (16/2/2000). Với đội ngũ trên 100 cán bộ trình độ từ đại học trở lên, Công ty đã
không ngừng phát triển trong các hoạt động nghiên cứu - sản xuất - tư vấn, chuyển giao công
nghệ và được Nhà nước chứng nhận bản quyền cho nhiều sản phẩm phần mềm công nghệ
thông tin. Các sản phẩm phần mềm đã được ứng dụng rộng rãi trong nhiều năm qua. Đến nay,
Công ty đã cung cấp, đào tạo và chuyển giao cho trên 1200 đơn vị trong và ngoài ngành Xây
dựng.
BAN GIÁM ĐỐC

TRUMSTẢM ĐẢOTẠO VÁ
CHUYỂN GIA/O CÕNG NGHỄ

TRUMGTẢUOS

TDUNGTẢM NGHIẾN cúu
VÁ ÍHẢTTHỂU CMTT

3. Các chức năng nhiệm vụ chính:
1- Nghiên cứu, thiết kế, sản xuất, khai thác phát triển và cung cấp phần mềm về CNTT
phục vụ quản lý, kinh tế, kỹ thuật.
2- Tư vấn các giải pháp tổng thể về hệ thống thiết bị tin học, viễn thông, nghiên cứu ứng
dụng và chuyển giao các giải pháp CNTT, thực hiện lắp đặt các hệ thống thiết bị tin học viễn
thông.
3- Thực hiện các nội dung công tác tư vấn xây dựng đối vói các công trình tin học viễn
thông, các công trình dân dụng, công nghiệp, công trình kỹ thuật hạ tầng đô thị, khu công
nghiệp.

4- Xuất nhập khẩu và cung cấp các thiết bị, các sản phẩm CNTT và các ứng dụng công
12


6- Liên doanh, liên kết với các đơn vị trong và ngoài nước để phát triển và đầu tư công
nghệ;
7- Thực hiện nhiệm vụ khác do Bộ xây dựng giao.
4. Chỉ nhắnh thành phô Hồ Chí Minh:
-Cung cấp dịch vụ hỗ trợ khách hàng.
-Đào tạo và chuyển giao công nghệl
-Kinh doanh thiết bị, vật tư CNTT
5. Các dịch vụ khác của công ty:
-Tự động hoá thiết kế và tư vấn xây dựng:
+Tư vấn lập dự án các công trình viễn thông tin học và dân dụng.
+Thiết kế lập tỏng dự toán các công trình viễn thông và một số các công trình dân
dụng, công trình công nghiệp, công trình kỹ thuật hạ tầng đô thị, khu công nghiệp.
+Thẩm tra thiết kế và tổng dự toán công trình viễn thông tin học, công trình dân dụng
và công nghiệp.
-Số hoá bản đồ:
+Chuyển giao các phẩm mềm theo hình thức chọn gói (gồm cài đặt và hướng dẫn sử
dụng tại chỗ bảo hành PM và trợ giúp người dùng)
+Nghiên cứu và phát triển các hệ thống quản lý trên mạng máy tính phục vụ cho cồng
tác quản lý điều hành và kết nối dữ liệu giữa các đơn vị.
+Xây dựng dự án ứng dụng CNTT trong các lĩnh vực quản lý và tư vấn xây dựng, phục
vụ các Sở, Tổng công ty, viện nghiên cứu, Trường đào tạo...
6. Giới thiệu các phần mềm của công ty:
-Công ty với hai bộ phần mềm chính là : phần mềm kết cấu và phần mềm quản lý
+Các phần mềm kết cấu:
-KIW: Tính toán và thiết kế khung thép nhà tiền chế.
-KPW: Tính toán và thiết kế khung phẳng(xuất kết quả ra bản vẽ)

-MBW: Tính toán và thiết kế móng băng(xuất kết quả ra bản vẽ)
-MCW:Tính toán và thiết kế móng cọc(xuất kết quả ra bản vẽ)
-MDW: Tính toán và thiết kế móng đơn(xuất kết quả ra bản vẽ)
-SBTW: Tính toán và thiết kế sàn bê tông cốt thép(xuất kết quả ra bản vẽ)
-RDW:TỔ hợp nội lực, thiết kế sàn bê tông cốt thép(xuất kết quả ra bản vẽ)
-VINASAS: Tính và thiết kế kết cấu tổng hợp.
-SƯMAC: Chương trình san nền.
-ESCON: Tính đơn giá, dự toán, quyết toán xây dựng.
+Các phần mềm quản lý:
3


•

Các số liệu về nền đất tự nhiên (các chỉ tiêu cơ lý của các lớp đất như trọng lượng
riêng, góc ma sát trong, lực dính đơn v ị . n ề n đất được coi là tập hợp của các lớp
đất có bề dầy hữu hạn, mỗi lớp đất có một tập hợp các chỉ tiêu cơ lý riêng. Người
sử dụng có thể tạo ra một thư viện các loại đất với các chỉ tiêu xác định để vào dữ
liệu cho nhanh chóng.

•

Các số liệu chi tiết gắn với móng đơn (tải trọng, kích thước hình học...): tuỳ theo
bài toán là kiểm tra hay thiết kế mà người sử dụng cần phải đưa vào kích thước 2
cạnh móng, chiều cao móng. Tải trọng xét đối với móng dơn sẽ gồm lực dọc, lực
cắt theo hai phương, mômen uốn theo hai phương.

•

Các số liệu thêm để thiết kế cấu kiện móng bê tông cốt thép: để phục vụ cho quá

trình tính lún của nền đất(trạng thái biến dạng thứ 2), quá trình tính toán cốt thép
trong móng đon, người dùng cũng phải đưa vào các thông số như trọng lượng trung
bình của móng và đất đắp, chiều dầy một lớp phân tố khi tính, các giá trị cường độ
nén, kéo của bê tông và thép.

Khả năng sử lý của chương trình :

Phần xử lý tính toán của chương trình sẽ thực hiện các bước tính tuỳ thuộc và các xác
lập mà người sử dụng đặt trong chương trình. Các bước tính toán như sau:
•

Xác định sức chịu tải của nền đất, từ đó xác định ra kích thước của móng trong bài
toán thiết kế (hay kiểm tra sức chịu tải của nền với kích thước móng đã có trong
bài toán kiểm tra). Việc xác dịnh sức chịu tải của nền có thể tính theo R tiêu chuẩn
hay khả năng chịu lực cực hạn.

•

Tính toán móng theo trạng thái giới hạn về cường độ : bao gồm xác định chiều cao
của móng căn cứ vào điều kiện chọc thủng ; xác định cốt thép trong móng căn cứ
vào khả năng chịu uốn của móng.

•

Tính toán móng theo trạng thái giới hạn về biến dạng : thực chất là xác định độ lún
của móng theo phương pháp cộng lún từng lớp. Người sử dụng có thể đặt một độ
lún giới hạn, nếu trong thiết kế, độ lún tính toán lớn hơn giá trị cho phép, chương
trình sẽ tự động tăng kích thước móng.

Kết quả của chương trình:

•

Các kết quả dạng TEXT : bao gồm các kết quả tính toán được lưu trong các file

4


7. Các thành tựu, hoạt động của công ty:
-Các thành tựu:
+Là doanh nghiệp đã đạt nhiều giải thưởng trong lĩnh vực công nghệ tin hoc. Nhưng có
lẽ thành tựu đáng kể nhất của công ty tin học mà ta không thể không kể đến là công ty đã đạt
giải thưởng Sao Vàng Đất Việt năm 2004, đây mà một giải thưởng vô
cùng cao quý của nhà nước ban tặng mà bất cứ một doanh nghiệp nào
cũng vô cùng mong muốn. Cùng với giải thưởng cao quý này công ty đã
được tham gia Hội chợ Việt Nam hội nhập kinh tế quốc tế tại Trung tâm
Triển lãm Giảng Võ và lễ diễu hành “Tự hào thương hiệu Việt” trên đường

+ Phần mềm của CIC đã có mặt tại 61 tỉnh thành trong cả nước: Đây là một con số
rất đáng tự hào. Với 4 nhóm sản phẩm chính: Phần mềm phục vụ quản lý Vinacamce, phần
mềm phục vụ TĐH thiết kế Vinasas, phần mềm Vinaplan phục vụ cho thiết kế quản lý quy
hoạch xây dựng và phần mềm hợp tác phát triển với nước ngoài... công ty đã đóng góp rất lớn
vào lĩnh vực xây dựng của nước nhà.

-Các hoạt động:

Bên cạnh việc cho ra đời các phần mềm là công việc chính, công ty đã có nhiều hoạt động
vừa nhằm quảng bá cho sản phẩm của mình, vừa để giao lưu học hỏi các doanh nghiệp bạn
nhằm có được sự góp ý, đánh giá cho sản phẩm của mình, vừa mở rộng thị trường và tăng
cường hỗ trợ khách hàng. Với mục đích trên công ty đã mở Shovvroom mới tại 177 Bùi Thị
Xuân Hà Nội: tại Showroom công ty đã trưng bày các thiết bị mới nhất của máy tính thiết bị

mạng, mạng không dây...các phần mềm... khách hàng có thể xem demo.
Ngoài ra công ty còn có nhiều hoạt động khác như: tặng mềm cho các sỏ, Trường Xây dựng
v.v...
• Công ty tin học xây dựng là một trong số ít các công ty chuyên sâu trong lĩnh vực
CNTT trong xây dựng vói một mục đích hết sức ý nghĩa đó là áp dụng tin học vào
lĩnh vực phi tin học. Công ty với một đội ngũ công nhân viên yêu nghề, trách
nhiệm, trình độ cao đã làm nên một công ty tin học xây dựng với nhiều thành tựu
đáng kể, đã đóng góp đáng kể cho sự phát triển của nền kinh tễ nước nhà. Với thời

5


n. Báo cáo tình hình thực hiện đề tài thực tập tốt nghiệp:
Cùng với việc thực tập tại công ty tin học xây dựng. Theo đặc điểm của chuyên ngành
tin học xây dụng dân dụng và công nghiệp, chúng em, mỗi sinh viên phải làm một đề tài về
tin học, có nghĩa là sử dụng một ngôn ngữ lập trình mình thành thạo để viết một phần mềm
tự động hoá thiết kế về một mảng kiến thức đã được học, ví dụ: tự động hóa thiết kế dầm
cầu trục BTCT trong nhà công nghiệp một tầng, Thiết kế móng đơn, móng băng, móng cọc.
Thiết kế dàn thép.. .Qua đó có thể phát triển thành đề tài tốt nghiệp.
Nội dung đề tài thực tập của em:

Kết xuất bản vẽ cọc bê tông cốt thép
1.

Phạm vi áp dụng của đề tài trong thực tế:

-Một trong những đặc điểm đặc trưng của ngành xây dựng là tất cả các hồ sơ thiết kế
đều gắn liền với các bản vẽ, trong quá trình xây dựng công trình thì bản vẽ thiết kế luôn
luôn đồng hành với người kỹ sư
- Nếu như đề tài này thành công thì nó sẽ tự động hoá kiết xuất bản vẽ các loại cọc bê

tông cốt thép, nó sẽ hỗ trợ việc hoàn thành nhanh các hồ sơ thiết kế móng cọc BTCT
2. Báo cáo và giới thiệu chương trình kết xuất bản vẽ cọc bê tông cốt thép:
Với sự giúp đỡ của thầy giáo Lê Trọng Hoà và tập thể các cán bộ của công ty CIC đặc
biệt là anh Ninh Văn Bình em đã hoàn thành được đề tài của mình tuy nhiên nó vẫn còn rất
nhiều sai sót.
-Ngôn ngữ sử dụng để viết chương trình là Vi sưa Basic : từ một chương trình của VB
ta gọi chương trình AutoCAD để kiết xuất bản vẽ, các lệnh sử dụng trong chương trình đều là
các lệnh của AutoCAD.
- Chương trình yêu cầu người sử dụng nhập các số liệu :
+ Trước hết người sử dụng phải lựa chon vẽ cọc loại 1 cọc hay nhiều cọc
+ Sau khi lựa chọn vẽ loại cọc nào, người sử dụng lựa chọn: chiều dài cọc, tiết diện cọc, chiều
dài mũi cọc, bề dầy lớp bê tông bảo vệ, đường kính cốt dọc đường kính cốt đai, đường kính
móc cẩu, mác bê tông , mác thép, số lượng cọc trong đài.

6


-Thuật toán cơ bản nhất để vẽ một cọc:

7


-Chương trình được thiết kế với 8 module, 1 MDI form, 4 form con.
*

Module:
+Module Khởi tạo bản vẽ
+Module Biến
+Module Vẽ cọc chính
+Module Vẽ các chi tiết cọc

+Module Vẽ cọc vành khăn
+Module Vẽ cọc tiết diện vuông có khoét lỗ tròn ở giữa
-t-Module Ghi kích thước
-t-Module Ghi text
+Module Tính toán (Sức chịu tải, trọng lượng cọc ...)

*

Form:
+form : vẽ cọc tiết diện vuông cốt đai ngang
+form : vẽ cọc tiết diện vuông cốt đai xoắn
+form : vẽ cọc tiết diện vuông có khoét lỗ tròn
+form : vẽ cọc tiết diện vành khăn
+form : Thư viện cọc

-Sau đâylà một vài đoạn code của chương trình
+Module khởi tạo bản vẽ:
Public Sub khoitaoO
Set MyAcad = CreateObject("AutoCad.Application")
MyAcad.Visible = Tme
Set mydoc = MyAcad.ActiveDocument
Tao cac layer cho ban ve
Tao mau sac cho layer cot thep dam
Dim colorl As AcadAcCmColor
Set colorl = mydoc.Application.GetInterfaceObject("AutoCAD.AcCmColor. 16")
Call color 1.SetRGB(255, 255, 0)
'tao layerl
Dim newlayerl As AcadLayer
Set newlayerl = mydoc.Layers.Add("Cot thep dam cua coc")
newlayerl.Freeze = False

newlayerl.LayerOn = Tme
newlayerl.Lock = False
newlayerl.TmeColor = colorl
mydoc.ActiveLayer = newlayerl
Tao mau sac cho layer cot thep nhat cua coc
Dim color2 As AcadAcCmColor


Set color3 = mydoc.Application.GetInterfaceObject("AutoCAD.AcCmColor.l6")
Call color3.SetRGB(0, 0, 255)
Tao layer3
Dim newlayer3 As AcadLayer
Set newlayer3 = mydoc.Layers.Add("net thuong")
newlayer3.Freeze = False
newlayer3.LayerOn = Tme
newlayer3.Lock = False
newlayer3.TmeColor = color3
Tao mau sac cho layer text
Dim color4 As AcadAcCmColor
Set color4 = mydoc. Application.GetInterfaceObject("AutoCAD.AcCmColor.
16")
Call color4.SetRGB(255, 0, 255)
Tao layer4
Dim newlayer4 As AcadLayer
Set newlayer4 = mydoc.Layers.Add("Text")
newlayer4.Freeze = False
newlayer4.LayerOn = True
newlayer4.Lock = False
newlayer4.TmeColor = color4
Tao mau sac cho layer Dim

Dim color5 As AcadAcCmColor
Set color5 = mydoc. Application.GetInterfaceObject("AutoCAD.AcCmColor.
16")
Cal 1 color5. SetRGB(255,0,0)
Tao layer5
Dim newlayer5 As AcadLayer
Set newlayer5 = mydoc.Layers.Add("Dim")
newlayer5.Freeze = False
newlayer5.LayerOn = Tme
newlayer5.Lock = False
newlayer5.TmeColor = color5
Tao mau sac cho layer vat lieu
Dim coloró As AcadAcCmColor
Set color6 = mydoc.Application.GetInterfaceObject("AutoCAD.AcCmColor.l6")
Call color6.SetRGB( 173, 173, 173)
Tao layerô
Dim newlayer6 As AcadLayer
Set newlayer6 = mydoc.Layers.Add("Hatch")
newlayer6.Freeze = False
newlayer6.LayerOn = Tme
newlayer6.Lock = False
newlayer6.TmeColor = coloi'6
9


'Linetype Center
Dim lineTypeNamel As String
lineTypeNamel = "CENTER"
mydoc.Linetypes.Load lineTypeNamel, "acad.lin"
'Linetype hiden

Dim linetypeName2 As String
linetypeName2 = "HIDDEN2"
mydoc.Linetypes.Load linetypeName2, "acad.lin"
'Khoi tao don vi cua ban ve bang lenh Units
mydoc.SendCommanđ "_units"
Tao gioi han ban ve
mydoc.SendCommand "_limits 0,0 10000,10000"
mydoc.SendCommand "_Zoom "
Tao cac Dimstyle
Dim Diml As AcadDimStyle
Set Diml = mydoc.DimStyles.Add("Stylel")
Tao cac Textstyle
Tao textstylel
Dim Tstylel As AcadTextStyle
Set Tstylel = mydoc.TextStyles.Add("CHU THUONG")
WithTstylel
.SetFont ".Vntime", False, False, 0, 0
End With
Set Tstylel = mydoc.ActiveTextStyle
Tao textstyle2
Dim Tstyle2 As AcadTextStyle
Set Tstyle2 = mydoc.TextStyles.Add("CHU IN")
Tstyle2.SetFont ".VnTimeH", False, False, 0, 0
End Sub
+Module tính toán:
Option Explicit
'thu tuc tinh suc chiu tai cua coc
Public Function succhiutaivatlieu(ByVal m As Double, ByVal F_cd As Double, ByVal Rbt As
Double, _
ByVal Rct As Double, ByVal t_đ_coc As Double, ByVal n As Integer) As Double

Dim Fbt As Double
10


If c_d_coc >= 3000 And c_d_coc < 4500 Then
Dim n_50dc As Integer
Dim n_50mc As Integer
Dim n_100 As Integer
n_50dc = 1000/50 + 1
n_50mc = 500 / 5 0 + 1
n_100 = CInt((c_d_coc - 1000 - c_d_doannoi) / 100) - 1
soluongcotdai_motcoc = n_50dc + n_50mc + n_100
Else
Dim n_100đc As Integer
Dim n_100mc As Integer
Dim n_200 As Integer
n_50dc = 1000/50+ 1
n_50mc = 500 / 5 0 + 1
n_100dc = 1500 / 100
n_100mc = 1000/100
n_200 = CInt((c_d_coc - c_d_doannoi - 2500) / 200)
soluongcotdai_motcoc = n_50dc + n_50mc + n_100dc + n_100mc + n_200
End If
End Function
'thu tuc tinh khoi luong cot thep trong coc
Public Function khoiluongthep(ByVal c_d_coc As Double, ByVal met_cd As Double, ByVal
k_c_thepchinh As Double, ByVal soluongcotdai As Integer, _
ByVal n As Integer, ByVal met_cdai As Double, ByVal t_d_coc As Double) As Double
Dim pl As Double
Dim p2 As Double

pl = n * c_d_coc * met_cd / 1000
Dim Lcotdai As Double
l_cotdai = (t_d_coc - 2 * k_c_thepchinh) * 4 / 1000 + 0.15
p2 = l_cotdai * met_cdai * soluongcotdai
khoiluongthep = pl + p2
End Function
'thu tuc kiem tra cau lap coc
Public Function tinhmomenmoccau(ByVal p_betong As Double, ByVal p_thep As Double,
ByVal c_d_coc As Double) As Double
Dim q As Double
q = (p_betong + p_thep) * 1000 / c_d_coc
11


Dim a As Double
a = (Rct * fa) / (Rbt * (t_d_coc * 0.1) * (Ho * 0.1))
Dim gama As Double
gama = 1 - 0.5 * a
khanangchiuluc = Rct * fa * gama * Ho * 0.1
End Function
'thu tuc tinh luc ITIOC cau phai chiu
Public Function khanangmoccau(ByVal Rct As Double, ByVal fa_moccau As Double) As
Double
khanangmoccau = Rct * fa_moccau * 2
End Function
Public Function luccatmoccau(ByVal p_betong As Double, ByVal p_thep As Double, ByVal
c_d_coc As Double) As Double
Dim q As Double
0 = (p_betong + p_thep) * 1000 / c_đ_coc
luccatmoccau = q * 0.207 * c_d_coc / 1000

End Function
+Module Ghi kích thước:
Option Explicit
Thu tuc khoi tao bien dimAligned - cotdai
Public Sub dimAligned(ByVal x_d As Double, ByVal y_d As Double, _
ByVal x_c As Double, By Val y_c As Double, By Val dimscale As Double, _
ByVal dimoffset As Double)
Dim d_ngang_dim As AcadDimAligned
Dim p_d_cuoi(2) As Double
Dim p_d_dau(2) As Double
Dim p_d_mid(2) As Double
p_d_dau(0) = x_d
p_d_dau( 1) = y_d
p_d_dau(2) = 0
p_d_cuoi(0) = x_c
p_d_cuoi(l) = y_c
p_d_cuoi(2) = 0
12


mydoc.Regen acAllViewports
End Sub
'Ghi kich thuoc moc cau
Public Sub Dim_moccau(ByVal X As Double, ByVal y As Double, ByVal c_d_coc As Double,
ByVal t_d_coc As Double, ByVal k_c_thepchinh As Double, _
ByVal c_d_doannoi As Double)
Dim d_p_b( 1) As Double
Dim d_p_e As Double
Dim d_ngang_đim As Double
'Ghi kích thuoc moc cau thu nhat

d_p_b(0) = X - c_d_doannoi
d_p_b(l) = y + t_d_coc - k_c_thepchinh
d_p_e = X + 0.207 * (c_d_coc) - c_d_doannoi
dimAligned d_p_b(0), d_p_b(l), d_p_e, d_p_b(l), 200, -300
'ghi kích thuoc doan giua hai moc cau
Dim d_p_dg As Double
đ_p_đg = X - c_d_doannoi + c_d_coc - 0.207 * c_d_coc
dimAlĩgned d_p_e, d_p_b( 1), d_p_dg, d_p_b( 1), 200, -300
'ghi kich thuoc ITIOC cau cuoi cung
Dim d_c As Double
d_c = d_p_dg + 0.207 * (c_d_coc)
dimAligned d_p_dg, d_p_b(l), d_c, d_p_b(l), 200, -300
Dim x_d As Double
Dim ycao As Double
Dim x_c As Double
x_d = X - c_d_doannoi
x_c = x_d + c_d_coc
ycao = y + t_d_coc - k_c_thepchinh
dimAligned x_d, ycao, x_c, ycao, 200, -400
End Sub
'ghi kich thuoc duong nam ngang
13


Case acAbove:

currentValue = "above"

Case acOutside:


currentValue = "outside"

Case acJIS:

currentValue = "to Japanesee industrial standards"

End Select
d_ngang_dim.VerticalTextPosition = acAbove
d_ngang_dim.UnitsFormat = acDimLDecimal
d_ngang_dim.PrimaryUnitsPrecision = acDimPrecisionZero
d_ngang_dim.TextMovement = acMoveTextNoLeader
d_ngang_dim.ExtensionLineExtend = 0.01
d_ngang_đim.ExtensionLineOffset = 0.8
d_ngang_dim.TextInsideAlign = False
mydoc.Regen acAllViewports
End Sub
'dim ngang trai
Public Sub dim_ngang_trai(By Val X As Double, ByVal yd As Double, ByVal yc As Double,
ByVal dimscale As Double, ByVal dioffset As Double)
Dim p_đ(2) As Double
Dim p_g(2) As Double
Dim p_c(2) As Double
p_d(0) = X
p_d(l) = yd
P_d(2) = 0
p_c(0) = X
p_c(l) = yc
p_c(2) = 0
p_g(0) = X - 40 + dioffset
p_g(l) = (yd + y c ) / 2

p_g(2) = 0
Dim d_ngang_dim As AcadDimAligned
Set d_ngang_dim = mydoc.ModelSpace.AddDimAligned(p_d, p_c, p_g)
d_ngang_dim.StyleName = "stylel"
d_ngang_dim.layer = "dim"
d_ngang_dim.ScaleFactor = dimscale
d_ngang_dim.TextStyle = "chu thuong"
Dim currentValue As String
Select Case d_ngang_đim.VerticalTextPosition
Case acVertCentered:
cuiTentValue = "centered"
Case acAbove:

cuiTentValue = "above"

Case acOutside:

cuiTentValue = "outside"

Case acJIS:

currentValue = "to Japanesee industrial standards"
14


Dim p_d_cuoi(2) As Double
Dim p_d_dau(2) As Double
Dim p_d_mid(2) As Double
p_d_dau(0) = x_d
p_d_dau( 1) = y_d

p_d_dau(2) = 0
p_d_cuoi(0) = x_c
p_d_cuoi( 1) = y_c
p_d_cuoi(2) = 0
p_d_mid(0) = (x_d + x_c) / 2
p_d_mid(l) = y_c - dimoffset
p_d_mid(2) = 0
Set d_ngang_dim = mydoc.ModelSpace.AddDimAligned(p_d_cuoi, p_d_dau, p_d_mid)
d_ngang_dim.StyleName = "stylel"
d_ngang_dim.layer = "dim"
d_ngang_dim.ScaleFactor = dimscale
d_ngang_đim.TextStyle = "chu thuong"
Dim currentValue As String
Select Case d_ngang_dim.VerticalTextPosition
d_ngang_dim.VeiticalTextPosition = acAbove
d_ngang_dim.ưnitsFormat = acDimLDecimal
d_ngang_đim.PrimaryUnitsPrecision = acDimPrecisionZero
d_ngang_dim.TextMovement = acMoveTextNoLeader
d_ngang_dim.TextMovement = acDimLineWithText
'd_ngang_dim.ExtensionLineExtend = 0.1
d_ngang_dim.ExtensionLineOffset = 0.4
mydoc.Regen acAllViewports
End Sub
Public Sub dim_ngang_tll(ByVal X As Double, ByVal yd As Double, ByVal yc As Double,
ByVal dimscale As Double, ByVal dioffset As Double, ByVal tl As Double)
Dim p_d(2) As Double
Dim p_g(2) As Double
Dim p_c(2) As Double
p_d(0) = X
p_d(l) = yd

p_d(2) = 0
p_c(0) = X
p_c(l) = yc
p_c(2) = 0
15


d_ngang_đim.ScaleFactor = dimscale
d_ngang_dim.TextStyle = "chu thuong"
Dim cuiTentValue As String
Select Case d_ngang_dim.VerticalTextPosition
Case acVertCentered:
currentValue = "centered"
Case acAbove:

currentValue = "above"

Case acOutside:

currentValue = "outside"

Case acJIS:

currentValue = "to Japanesee industrial standards"

End Select
d_ngang_đim.VerticalTextPosition = acAbove
d_ngang_dim.UnitsFoiTnat = acDimLDecimal
d_ngang_dim.PrimaryUnitsPrecision = acDimPrecisionZero
d_ngang_dim.TextMovement = acMoveTextNoLeader

d_ngang_dim.ExtensionLineExtend = 0.01
d_ngang_dim.ExtensionLineOffset = 0.8
d_ngang_dim.TextInsideAlign = False
mydoc.Regen acAllViewports
End Sub
'Ghi kich thuoc ITIOC cau-coc mot doan
Public Sub Dim_moccau_motcoc(ByVal X As Double, ByVal y As Double, ByVal c_d_coc As
Double, ByVal t_d_coc As Double, ByVal k_c_thepchinh As Double)
Dim d_p_b( 1) As Double
Dim d_p_e As Double
Dim d_ngang_đim As Double
'Ghi kich thuoc moc cau thu nhat
d_p_b(0) = X
d_p_b(l) = y + t_d_coc - k_c_thepchinh
d_p_e = X + 0.207 * (c_d_coc)
dimAligned d_p_b(0), d_p_b(l), d_p_e, d_p_b(l), 200, -300
'ghi kích thuoc doan giua hai moc cau
Dim d_p_dg As Double
d_p_dg = X + c_d_coc - 0.207 * c_d_coc
dimAligned d_p_e, d_p_b( 1), d_p_dg, d_p_b( 1), 200, -300
'ghi kích thuoc moc cau cuoi cung
Dim d_c As Double
đ_c = d_p_dg + 0.207 * (c_d_coc)

16


EBi

test.txt • Notepđd


vat lieu coc:
:
:
:
:

Mac be tong
Cot thep

300
A-II
16
6

cac kich thuoc co ban:

*Nếu ta muốn xem
thông tin về cọc ta chọn xem thong tin tren menu “Thong tin chi tiết về
: 200 mm

Tiet di en coc

: 250 mm
: 30 mm

suc chiu tai cua coc :
suc chiu tai theo vat lieu
coc thu 1


: 62.44678 tan
: 7 m

Trong luông coc :
Trong luông betong coc
so luông cốt doc trong coc
so luông cot dai trong coc
Trong luông cot thep coc

: 0.6712315 tan
: 4 thanh
: 79 thanh
:0.05669198tan

i

Ki em tra coc khi van chuyên
lapcau
:

• form con : cọc với cốt đai ngang xuất hiện

• Sau khi chọn kích thước và vật liệu cọc , giả sử ta vẽ cọc với 4 đoạn. Ta Click vào
“Ve coc”. Ta được bản vẽ
SỌ AutoCAD 2004 - [Drawing1 .dwg]
0

Ríe EdK View Insert Pormat Tools Dravv Dimension Modify Wlndow Hdp

1 a « H a> q & a » ✓


• < Q* «1
CHU IN

Eũ
o*
ífè
>
^
6$
K

17


* Và tất nhiên ta cũng có thể xem thông tin chi tiết về cọc qua file text.
P1 test.txt Notepad
Rle Eđt Format Vew Heip

Thong tin chi tiet ve coc m
vat Heu coc:
Mac be tong
cot thep
Duong kinh cot doc chiu luc
ouong kinh cot dâ1

doan cot dai ngang CY450-20

cac kích thuoc co ban:

chieu dai coc
Tlet d1en coc
chiêu dai mui coc
Lop be tong bao ve day
Trong luong coc :
Trong luong betong coc
so luong cốt doc trong coc
so luông cot da1 trong coc
Trong luông cot thep coc

-0.004 54 5
tan
4 thanh
thanh
Ki em tra coc khi van chuyên cau lap 67
0.03900054tan
Momen coc phai chiu kh1 van chuyên la
Momen coc phai chiu khi dua len thiet bi dong
Kha nang cn1u luc cua tiet di en coc la
: 0.0075457250325
1.4
tm
715344
0.015091450065 tm
coc du kha nang chiu luc kh1 van chuyên va dua len gia
dong tm
1.4715344
suc chiu ta1 cua coc
tai theo vat lieu

52.00956 tan

*Nếu muốn vẽ cọc tiết diện lăng trụ với cốt đai xoắn tai chọn trong menu “Ve coc” và Click
*Nếu muốn vẽ cọc trong thư viện thì ta chọn “Coc mot doan” trong menu “Thu vien coc”, ta
có form sau xuất hiện: *

• Sau khi nhập các kích thước ta Click vào nút “Ve coc”. Bản vẽ xuât hiện

*Muốn vẽ cọc nào ta chọn và Click vào nút VECOC ta có bản vẽ

Píess pick button and díag verbcaíly (0 200m.

18
19


[ã] AutoCAD 2004 - [Drđwỉng1 .dvvg]

X
ĨS

ũ

lắ

□

Ta cũng có thể xem chi tiết về cọc bằng file text:

Sau khi nhập các kích thước, ta Click vào nút “Ve coc”, ta được bản

c test.txt - Notepad
Fáe Edit Format View Help

Thong tin chi tiet ve coc 4 doan co cot dai
xoan:
Mac be tong
cot thep
Duong kinh cot doc chiu luc
Duong kinh cot dai

:

300
CẤU TẠO
: CHI
A-I TIẾT MẶT CẮT I-I
: 18

cac kích thuoc co ban:
Tiet di en coc
Chleu dai mui coc
Lop be tong bao ve day

*
^n
c
□
-I

Suc chiu ta1 cua coc :

: 62.97701 tan

Suc chiu tai theo vat lieu

coc thu 1
chieu dai coc
Trong luông coc :
: 0.47265675 tan
Trong luông betong coc
: 4 thanh
so luong cốt doc trong coc
: 69 thanh
so luông cot dai trong coc
:0.05087578tan
Trong luông cot thep coc
Ki em tra coc khi van chuyên cau lap :
Momen coc phai chiu khi van chuyên la
: 0.01103991390125 tm
Momen coc phai chiu khi dua len thiet bi dong :0.0220798278025

MẢTCẤTM

tm

Kha nang chiu luc cua tiet dien coc la
ĩ 1.62126190576923
tm
coc du kha nang chiu luc khi van chuyên va dua len gia dong !
coc thu 2

r

chieu dai coc

: 5 m

*Tiếp theo ta vẽ cọc tiêt diện vuông có khoét lỗ, Click vào menu “Coc BTCT tiet dien
vu ong voi#■loChuông
rongtrinh
tron”.
Form sau xuất hiện:
ket xuat ban ve coc BTCT______________________________________________(_"](□][x]|
Ve coc

• Tiếp theo ta vẽ cọc vành khăn. Click vào menu “ve coc ong BTCT” form sau xuất
hiện

• Sau khi nhập kích thước, Click vào nut “Ve coc ” ta được bản vẽ như mong muốn

20
21


0H®

13] AutoCAD 2004 - [Drawing1 ,dwg]

.õ

£3 File Edrt View Insert Format Tools Dravv Dimension Modỉfy Wndow Help

II a H & 3 &

ỊỊs^ỊOQtl^aCtmhepdamcuacoc

> ị tsQ?^^ g%HOfci Q I I I fr|ẼHÌ
Ịt # III □ ByLaye.

X

--

ỹJỊ--------------ByLạyt. V III-------------ByLạya I ByColoi

^ ll

niCŨ
I
+
P
E
D
O
*
gg
»
b
»s

22

Đó là toàn bộ chương trình mà em đã thực hiện được trong đợt thực tập vừa qua. Để có
thể hoàn thành chương trình này, em xin chân thành cảm ơn thầy giáo Lê Trọng Hoà,
em xin chân thành cảm ơn tập thể cán bộ công nhân viên công ty tin học xây dựng đặc
biệt em xin cảm ơn anh Ninh Văn Bình là người đã trực tiếp phụ trách nhóm thực tập
chúng em đã giúp đỡ, bảo ban, truyền đạt cho em rất nhiều kinh nghiệm và kiến thức
quý báu để em có được phương pháp tốt nhất thực hiện đề tài này.
Qua đợt thực tập này, chúng em không những tiếp thu được một lượng kiến thức thực
tế phong phú, trau rồi lại các kiến thức đã học mà điều quan trọng hơn là chúng em
còn được rèn luyện kỷ luật, ý thức trách nhiệm, lòng yêu nghề để có thể trở thành một
người kỹ sư tốt, đóng góp vào công cuộc xây dựng đất nước trong tương lai. Một lần

23