Nhập Tọa độ Từ Excel Vào AutoCAD

Có thể bạn quan tâm

Trang chủ Có gì mới Hoạt động gần nhất Tác giả
Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
Video Video về Excel Video về tin học khác Tin tức về tin học chung
Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
Tài nguyên Đánh giá mới nhất Tìm tài nguyên
Facebook
Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

Tìm bài viết mới
Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

Trang chủ
Diễn đàn
Excel và Kỹ Thuật

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Nhập tọa độ từ Excel vào AutoCAD ? (1 người xem)

Thread starter Thread starter Chuotdong
Ngày gửi Ngày gửi 9/7/08

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) C

Chuotdong

Thành viên thường trực

Tham gia 28/11/06 Bài viết 255 Được thích 60 Mình muốn xuất tọa độ của 1 loạt các điểm (có tên, tọa độ X, Y) sang AutoCAD và ngược lại thì làm thế nào nhỉ ? hienld

hienld

Thành viên mới

Tham gia 25/5/08 Bài viết 35 Được thích 125 Để có thể điều khiển AutoCAD trong Excel, lấy dữ liệu từ Excel sang AutoCAD, cần tạo đối Application chứa ứng dụng AutoCAD và biết cách sử dụng các đối tượng của ACAD như ThisDrawing, Modelspace.... Để thực hiện được việc này, cần phải thực hiện các bước sau: 1 Tham chiếu đến với thư viện mở rộng của chương trình AutoCAD. 2 Viết mã lệnh thực hiện việc khởi động chương trình AutoCAD (tạo đối tượng Application của AutoCAD). Dưới đây sẽ trình bày cách thức khởi động chương trình AutoCAD từ ứng dụng Excel. Tham chiếu thư viện mở rộng của chương trình AutoCAD 1 Khởi động chương trình Excel, Khởi động VBAIDE trong AutoCAD bằng cách nhấn tổ hợp phím ALT+F11. , chọn trình đơn Tools > References… để hiển thị hộp thoại References dùng để tham chiếu đến thư viện mở rộng. 2 Trong danh sách các thư viện có sẵn, chọn AutoCAD xxxx Object Library (xxxx là phiên bản của AutoCad được cài trên máy) ð Chọn OK. Như vậy là dự án VB đã có tham chiếu đến thư viện mở rộng của AutoCAD, nghĩa là người lập trình có thể truy cập đến mô hình đối tượng của AutoCAD ngay từ bên trong Visual Basic. Viết mã lệnh khởi động chương trình AutoCAD 3 Trong Menu, chọn trình đơn Project ð Add Module để tạo mới một module chuẩn. 4 Trong cửa sổ mã lệnh của module chuẩn, nhập đoạn mã lệnh dùng để khởi động chương trình AutoCAD như sau:Sub ConnectToAutoCAD() Dim App As AutoCAD.Application On Error Resume Next Set App = GetObject(, "AutoCAD.Application") ‘ Kiểm tra xem AutoCAD đã được khởi động chưa ‘ Nếu chưa sẽ tiến hành tạo đối tượng Application If Err Then Err.Clear Set App = CreateObject("AutoCAD.Application") If Err Then MsgBox Err.Description Exit Sub End If End If ‘Hiển thị cửa sổ chính của AutoCAD App.Visible = True MsgBox "Now running " + App.Name + _ " version " + App.Version End Sub5 Thực thi thủ tục: ConnectToAutoCAD như trên, chương trình AutoCAD sẽ được khởi động. Chúc bạn thành công! PMXD

PMXD

Thành viên chính thức

Thành viên danh dự Tham gia 23/6/06 Bài viết 60 Được thích 150

Chuotdong đã viết: Mình muốn xuất tọa độ của 1 loạt các điểm (có tên, tọa độ X, Y) sang AutoCAD và ngược lại thì làm thế nào nhỉ ? Nhấp chuột vào đây để mở rộng...

Lấy tọa tên, độ điểm của các ô trong Excel và vẽ lên AutoCad, viết Code từ VBA Excel: Giả sử tôi có 1 file Excel có số liệu như sau A B C D 1 12 8 0 2 12 9 0 3 12 10 0 4 12 11 0 5 12 12 0 6 12 13 0 7 12 14 0 8 12 15 0 9 12 16 0 10 12 17 0 11 12 18 0 TRong đó cột thứ nhất là tên các điểm, cột thứ 2, 3, 4 lần lượt là tọa độ X,Y,Z của điểm tương ứng. Ta có thể viết như sau để điều khiển Cad vẽ ra các điểm này Sub ExporttoCad() Dim Cad As Object Dim VPoint As Object Dim Point(2) As Double Dim i As Long Set Cad = GetObject("C:\A.dwg") '(Coi nhu da co 1 file A.dwg ngoài ổ C) For i = 1 To 11 Point(0) = Cells(i, 2) Point(1) = Cells(i, 3) Set VPoint = Cad.ModelSpace.AddPoint(Point) Next i Cad.Save End Sub PMXD

PMXD

Thành viên chính thức

Thành viên danh dự Tham gia 23/6/06 Bài viết 60 Được thích 150 Bạn Chạy file bày xem nhé

File đính kèm

Vi du dieu khien cad.xls Vi du dieu khien cad.xls 18 KB · Đọc: 2,919

Chuotdong

Thành viên thường trực

Tham gia 28/11/06 Bài viết 255 Được thích 60 Cám ơn các bạn. Ngoài ra tôi cũng đã nhờ bạn của mình làm được như sau, các bạn tham khảo, hiện chỉ có font chữ nếu là mã UNICODE thì chưa xuất sang CAD được, bạn nào biết sửa giùm:

File đính kèm

VeSangACAD.zip VeSangACAD.zip 89.3 KB · Đọc: 2,311

Lần chỉnh sửa cuối: 12/7/08 N

ndtnv

Thành viên mới

Tham gia 7/10/08 Bài viết 22 Được thích 14

Chuotdong đã viết: Cám ơn các bạn. Ngoài ra tôi cũng đã nhờ bạn của mình làm được như sau, các bạn tham khảo, hiện chỉ có font chữ nếu là mã UNICODE thì chưa xuất sang CAD được, bạn nào biết sửa giùm: Nhấp chuột vào đây để mở rộng...

Sửa trong Mã: Sao chép. Sub [B]DrawCells[/B](R As Range) ... For i = 1 To M If R(i, 1).EntireRow.Hidden = False Then [B][COLOR=blue] objName = EnCode(R(i, 1))[/COLOR][/B] objX = R(i, 2) objY = R(i, 3) .. Sau đó thêm hàm này Mã: Sao chép. Function EnCode(Target As Range) As String Dim EcTxt$, codeTxt$, i%, c%, s$ On Error Resume Next codeTxt = "\U+0000" For i = 1 To Len(Target) s = Mid(Target, i, 1) c = AscW(s) If c > 127 Then s = Hex(c) s = Left(codeTxt, 7 - Len(s)) & s End If EcTxt = EcTxt & s Next EnCode = EcTxt End Function Riêng chữ ơ bị lỗi vì mã của nó trùng với mã điều khiển nào đó Lần chỉnh sửa cuối: 23/1/09 B

buivanbac

Thành viên mới

Tham gia 6/10/09 Bài viết 4 Được thích 0 Em có bảng toạ độ các điểm trong một file excel. Em muốn vẽ các điểm này trên cad thì làm thế nào. Có anh chị nào biết chỉ giúp em với. Em có đọc một và hướng dẫn nhưng vẫn chưa hiểu.(Trong bài viết trên của bạn PMXD có hướng dẫn viết đoạn mã, nhưng viết vào đâu và sau đó làm gì nữa.) N

ntbcadcam

Thành viên mới

Tham gia 25/2/10 Bài viết 12 Được thích 3

PMXD đã viết: Lấy tọa tên, độ điểm của các ô trong Excel và vẽ lên AutoCad, viết Code từ VBA Excel: Giả sử tôi có 1 file Excel có số liệu như sau A B C D 1 12 8 0 2 12 9 0 3 12 10 0 4 12 11 0 5 12 12 0 6 12 13 0 7 12 14 0 8 12 15 0 9 12 16 0 10 12 17 0 11 12 18 0 TRong đó cột thứ nhất là tên các điểm, cột thứ 2, 3, 4 lần lượt là tọa độ X,Y,Z của điểm tương ứng. Ta có thể viết như sau để điều khiển Cad vẽ ra các điểm này Sub ExporttoCad() Dim Cad As Object Dim VPoint As Object Dim Point(2) As Double Dim i As Long Set Cad = GetObject("C:\A.dwg") '(Coi nhu da co 1 file A.dwg ngoài ổ C) For i = 1 To 11 Point(0) = Cells(i, 2) Point(1) = Cells(i, 3) Set VPoint = Cad.ModelSpace.AddPoint(Point) Next i Cad.Save End Sub Nhấp chuột vào đây để mở rộng...

Bạn có thể chỉ cụ thể bài này được k? - file Excel phải lưu tên gì? đặt ở đâu? - cách nhập tọa độ từ bảng Excel? thanks K

kisixanh

Thành viên mới

Tham gia 22/9/09 Bài viết 2 Được thích 1 vấn đề này rất hay, nhưng hiện nay mình chẳng biết tí gì về Visual Basic cả,nếu ai có tài liệu hay hướng dẫn nào thật đơn giản, các bạn làm ơn gửi qua mail [email protected] giùm mình nhe!chân thành cám ơn D

Dieuvuong

Thành viên mới

Tham gia 20/3/09 Bài viết 4 Được thích 1 Kinh nghiệm nho nhỏ, chỉ cần copy và paste vào trong cad thôi: Trong excel, tạo 2 cột: 1 cột point và 1 cột tọa độ dạng (X,Y) ---> copy và paste vào cad A

adoonis

Thành viên mới

Tham gia 4/5/08 Bài viết 9 Được thích 7 Những thứ các bạn cần ở đây bạn Download tại đây: http://www.mediafire.com/?iiyonukkupv34if để biết thêm chi tiết bạn vào đây tham khảo nhé: http://camranhvinh.blogspot.com/2011/05/xuat-du-lieu-qua-lai-giua-autocad-va.html T

th_kid2001

Thành viên mới

Tham gia 5/9/09 Bài viết 11 Được thích 8 Bạn sài thử cái này xem. File Excel lưu tùy ý miễn nhớ đường dẫn. Có hướng dẫn theo kèm đó

File đính kèm

Tien ich cho trac dia.rar Tien ich cho trac dia.rar 237.3 KB · Đọc: 2,208

van_k49

Thành viên mới

Tham gia 7/12/10 Bài viết 32 Được thích 1 xuất tọa độ từ exel sang cad Em có một phai dữ liệu trong exel nhờ các anh chị chuyển hộ sang cad hộ em với, đúng theo tọa độ đã có ở trong exel

File đính kèm

xuat tu exel sang cad.rar xuat tu exel sang cad.rar 92.8 KB · Đọc: 501

Lần chỉnh sửa cuối: 16/1/13 V

van_k49

Thành viên mới

Tham gia 7/12/10 Bài viết 32 Được thích 1 Cảm ơn bạn "tiện ích cho trắc địa" đúng là cái mình đang cần, nhưng bạn có thể sửa lại cho mình chút ít nữa được không. trong tiện ích load điểm, cột nhập tên điểm chuyển thành cột họ và tên có được không. vì mình nhập số thứ tự vào thì đúng nhưng khi nhập họ và tên người load vào cad lại không đúng nữa. Minh gửi phai mẫu bạn giúp mình nhé, minh đang rất cần nó xin cảm ơn nhiều

File đính kèm

mau.rar mau.rar 38.7 KB · Đọc: 231

van_k49

Thành viên mới

Tham gia 7/12/10 Bài viết 32 Được thích 1 Có ai không? giúp mình với............. H

hung_xu20032000

Thành viên thường trực

Tham gia 26/7/07 Bài viết 229 Được thích 69 Nghề nghiệp Khai thác mỏ Mình thật sự không hiểu "van_k49" định làm cái gì. Nếu bạn là dân trắc địa thì dùng phần mềm của Hài hòa (HS, TÔPO) hoặc các phần mềm khác tương tự đi. Con nếu không phải hãy hỏi dân trắc địa là xong ngay. B

banhtun

Thành viên mới

Tham gia 28/8/12 Bài viết 4 Được thích 0 giúp mình dòng code này với ??? Private Sub CBViDu_Change() End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo thoat Dim bEnableEvents As Boolean bEnableEvents = Application.EnableEvents Application.EnableEvents = False If Target.Column = 2 Then Call thaydoi Call MaKH ActiveCell.Select Else Call Hide End If thoat: Application.EnableEvents = bEnableEvents Dim i As Integer Dim dau As Integer, cuoi As Integer Dim DL As String, Dgiai As String Dim gt As String Application.ScreenUpdating = False Application.EnableEvents = False If Target.Column = 3 Then If IsEmpty(Target) Or Cells(Target.Row, 1).Value <> 0 Then GoTo thoat1 If InStr(1, Target.Value, ":") > 0 Then dau = InStr(1, Target.Value, ":") Else dau = 0 End If If InStr(1, Target.Value, "=") > 0 Then cuoi = InStr(1, Target.Value, "=") - 1 Else cuoi = Len(Target.Value) End If If cuoi = dau Or cuoi < dau Then GoTo thoat1 Dgiai = RTrim(LTrim(Left(Target.Value, cuoi))) DL = RTrim(LTrim(Mid(Target.Value, dau + 1, cuoi - dau))) DL = Replace(DL, ",", ".") Target.Formula = Dgiai & " = " & Round(Evaluate(DL), 3) Target.Characters(Start:=Len(Dgiai) + 4, Length:=Len(Round(Evaluate(DL), 3))).Font.ColorIndex = 3 Target.Interior.ColorIndex = xlNone For i = Target.Row To 1 Step -1 If Cells(i, 1).Value > 0 Then If DiengiaiTL(Cells(Target.Row + 1, Target.Column)) = 0 Then Cells(i, 5).Formula = "=DiengiaiTL(C" & (i + 1) & ":C" & Target.Row & ")" Else gt = Cells(i, 4).Formula Cells(i, 4).Formula = gt End If Exit For End If Next GoTo thoat1 Target.Interior.ColorIndex = 4 End If thoat1: Application.EnableEvents = True Application.ScreenUpdating = True End Sub cảm ơn các bạn. D

dangchaudkt47

Thành viên mới

Tham gia 26/8/14 Bài viết 1 Được thích 0

th_kid2001 đã viết: Bạn sài thử cái này xem. File Excel lưu tùy ý miễn nhớ đường dẫn. Có hướng dẫn theo kèm đó Nhấp chuột vào đây để mở rộng...

bạn cho mình hỏi cách dùng tiện ích như thế nào.bạn hướng dẫn cụ thể giúp mình với nhé.cản ơn bạn rất nhiều N

NongDanYeuNuoc

Thành viên mới

Tham gia 31/3/16 Bài viết 1 Được thích 0 Minh download ve nhung chua biet cach su dung ban huong dan chi tiet dc ko ah T

Tamphung

Thành viên mới

Tham gia 27/3/13 Bài viết 2 Được thích 0 Báo bảng có 3 cột là sao bạn. T

Tamphung

Thành viên mới

Tham gia 27/3/13 Bài viết 2 Được thích 0 Báo bảng cần có 3 cột là sao bạn. L

lekhoaanh

Thành viên mới

Tham gia 6/6/09 Bài viết 1 Được thích 0 Nếu số lượng point không quá lớn thì bạn dùng cách này thử

File đính kèm

Vi du dieu khien cad bang comand line.xls Vi du dieu khien cad bang comand line.xls 28 KB · Đọc: 54

thenguyen007

Thành viên mới

Tham gia 6/8/10 Bài viết 29 Được thích 2

th_kid2001 đã viết: Bạn sài thử cái này xem. File Excel lưu tùy ý miễn nhớ đường dẫn. Có hướng dẫn theo kèm đó Nhấp chuột vào đây để mở rộng...

van_k49 đã viết: xuất tọa độ từ exel sang cad Em có một phai dữ liệu trong exel nhờ các anh chị chuyển hộ sang cad hộ em với, đúng theo tọa độ đã có ở trong exel Nhấp chuột vào đây để mở rộng...

sao không thấy file lisp Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Nếu diễn đàn GPE đóng cửa? (2 người xem)

PhanTuHuong
Chủ nhật lúc 23:46
Thư giãn

Trả lời 15 Đọc 371 6 phút trước ExcelMy

Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)

HeSanbi
30/5/20
Lập Trình với Excel

Trả lời 92 Đọc 27K Hôm nay lúc 19:57 Maika8008

P Lỗi hàm VBA phải add-in sau mỗi lần mở file (1 người xem)

phamdinh.huy.aladin@gmail
Hôm qua, lúc 10:18
Hàm và công thức Excel

Trả lời 5 Đọc 126 Hôm nay lúc 13:59 phamdinh.huy.aladin@gmail P K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

kaoehtkid
Hôm qua, lúc 19:04
Những vấn đề chung

Trả lời 4 Đọc 85 Hôm nay lúc 13:49 ptm0412

Question Question

Tách dòng tự động theo điều kiện bằng VBA

duongnhuxuyen
Thứ sáu lúc 15:39
Lập Trình với Excel

Trả lời 14 Đọc 278 Hôm nay lúc 09:00 ptm0412

Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)

ongke0711
6/10/24
Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 82K Hôm nay lúc 08:39 pycckuu410

Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

eagle12
8/12/25
Lập Trình với Excel

Trả lời 24 Đọc 502 Hôm qua, lúc 16:19 eagle12 E

Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

HeSanbi
Thứ bảy lúc 15:41
Xử lý chuỗi ký tự

Trả lời 1 Đọc 141 Hôm qua, lúc 10:34 jonythanht J D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

dieppk.nb92
Chủ nhật lúc 01:22
Hàm và công thức Excel

Trả lời 10 Đọc 302 Hôm qua, lúc 08:43 dieppk.nb92 D H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

H_P
Thứ bảy lúc 14:23
Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 111 Hôm qua, lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

Ngựa con 2002
Thứ bảy lúc 23:07
Xử lý chuỗi ký tự

Trả lời 7 Đọc 135 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

QUANSUNG
Thứ bảy lúc 10:55
Hàm và công thức Excel

Trả lời 2 Đọc 132 Chủ nhật lúc 00:02 dungpham01 D

Cùng xây dựng file Gia Phả (1 người xem)

huuthang_bd
30/12/13
Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)

Dinh Hong Nhung
Thứ năm lúc 10:36
Hàm và công thức Excel

Trả lời 14 Đọc 741 Thứ bảy lúc 10:43 Cúc Hr C

CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ

PhanTuHuong
4/10/22
Thư giãn

Trả lời 8 Đọc 2K Thứ bảy lúc 00:09 PhanTuHuong

Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

duongnhuxuyen
12/11/25
Lập Trình với Excel

Trả lời 14 Đọc 476 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape

Vũ Hải Sơn
2/12/25
Hàm và công thức Excel

Trả lời 34 Đọc 733 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.

Thúy Sa
Thứ năm lúc 17:17
Những vấn đề chung

Trả lời 1 Đọc 113 Thứ năm lúc 20:29 Maika8008

Question Question

Tạo ComboBox để tìm kiếm tên

lyvanthang
Thứ năm lúc 10:36
Lập Trình với Excel

Trả lời 4 Đọc 213 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif

TVT230279
5/12/25
Hàm và công thức Excel

Trả lời 5 Đọc 289 Thứ năm lúc 11:30 87kilua

Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

Maika8008 33
thanthanhan 19
dungpham01 18
eagle12 16
ongke0711 16
nguyenanhtruong2409 14
Phan Thế Hiệp 12
HUONGHCKT 12
vic_it 11
ptm0412 11
nhhnam 10
pycckuu410 10
Vũ Hải Sơn 9
HeSanbi 8
bsbnhh 7
Gà Con yêu VBA 7
Hana2610 6
dieppk.nb92 6
duongnhuxuyen 6
Mr.hieudoanxd 5

Thành viên có điểm tương tác cao nhất tháng

Phan Thế Hiệp 63
Maika8008 26
ongke0711 17
thanthanhan 16
ptm0412 14
HeSanbi 12
HUONGHCKT 9
dungpham01 9
Cúc Hr 8
eagle12 8
dieppk.nb92 6
befaint 5
Mr.hieudoanxd 5
pycckuu410 5
SA_DQ 4
nguyenanhtruong2409 4
Phuocam 4
nhhnam 2
Gà Con yêu VBA 2
huuthang_bd 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

Trang chủ
Diễn đàn
Excel và Kỹ Thuật

Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom

Từ khóa » Nhập Tọa độ Từ Excel Vào Autocad

Tìm kiếm

Người dùng đang xem chủ đề này

Chuotdong

Thành viên thường trực

hienld

Thành viên mới

PMXD

Thành viên chính thức

PMXD

Thành viên chính thức

File đính kèm

Chuotdong

Thành viên thường trực

File đính kèm

ndtnv

Thành viên mới

buivanbac

Thành viên mới

ntbcadcam

Thành viên mới

kisixanh

Thành viên mới

Dieuvuong

Thành viên mới

adoonis

Thành viên mới

th_kid2001

Thành viên mới

File đính kèm

van_k49

Thành viên mới

File đính kèm

van_k49

Thành viên mới

File đính kèm

van_k49

Thành viên mới

hung_xu20032000

Thành viên thường trực

banhtun

Thành viên mới

dangchaudkt47

Thành viên mới

NongDanYeuNuoc

Thành viên mới

Tamphung

Thành viên mới

Tamphung

Thành viên mới

lekhoaanh

Thành viên mới

File đính kèm

thenguyen007

Thành viên mới

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

Liên Hệ