[Yêu Cầu] Cắm Cọc Gpmb Trên 2 Mép Ngoài Taluy Trên Bình Đồ

Tháng 10 15, 2015

Chào các bác!

Em muốn nhờ các bác giúp em viết cái lisp cắm cọc GPMB ở 2 bên mép ngoài taluy trên bình đồ với ạ.

Cụ thể yêu cầu em xin phép trình bày trong bản vẽ dưới đây:

http://www.cadviet.com/upfiles/5/64560_gpmbbd.dwg

P/s: à không cần cái nét đứt như trong hình yêu cầu đâu nhé, em vẽ vào để hiển thị thôi.

Em mới tham gia diễn đàn, còn phải học hỏi rất nhiều, mong các bác giúp đỡ, mắng chửi em nhiệt tình vào để khá hơn ạ.

Tháng 10 16, 2015

Các pro giúp em với

Tháng 10 16, 2015

Rảnh nên mò mẫn lại tí, quên cả rồi :D

(defun c:DONG ()
(vl-load-com)
(setq lst_va '("osmode" "cmdecho"))
(setq old (mapcar 'getvar lst_va))
(mapcar 'setvar lst_va '(0 0))
(prompt "\nChon BD muon dong coc GPMB !")
(setq ss (ssget '((8 . "MEPTLT,MEPTLP,ENTCOC"))))
(setq lst_name (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(setq coc (vl-remove-if-not '(lambda(x) (= "ENTCOC" (cdr (assoc 8 (entget x))))) lst_name)
	  tlt (vlax-ename->vla-object (car (vl-remove-if-not '(lambda(x) (= "MEPTLT" (cdr (assoc 8 (entget x))))) lst_name)))
	  tlp (vlax-ename->vla-object (car (vl-remove-if-not '(lambda(x) (= "MEPTLP" (cdr (assoc 8 (entget x))))) lst_name))))
(foreach c coc
	(setq trai (vlax-invoke (vlax-ename->vla-object c) 'intersectwith tlt acExtendThisEntity)
		  phai (vlax-invoke (vlax-ename->vla-object c) 'intersectwith tlp acExtendThisEntity))
	(command "_.insert" "cocmoc" trai 25.4 "" "")
	(command "_.insert" "cocmoc" phai 25.4 "" "")
)
(mapcar 'setvar lst_va old)
(princ)
)

- Để block được chèn đúng vị trí, bạn cần:

Chỉnh sửa điểm chèn cái block của bạn đúng tâm đường tròn (đã có bài hướng dẫn cụ thể trên diễn đàn)

..... :D :D :D

Tháng 10 16, 2015

Các pro giúp em với

Hề hề hề,

Bạn tham khảo lisp sau đây. Lưu ý hai vấn đề sau:

1/ Bạn phải tạo block "cocmoc1" có các thành phần giống như block cocmoc của bạn nhưng có điểm chèn là tâm của hình tròn bao. (mình đã tạo block này trong file bản vẽ gửi kèm ở bài này)

2/- hãy xóa các pline mép taluy trùng nhau (khá nhiều đấy) để tránh chèn trùng lắp quá nhiều block. (Trong file bản vẽ kèm theo ở đây mình đã xáo hết chỉ để lại mỗii bên một đường thôi.)

Hãy test thử và cho ý kiến nếu cần chỉnh sửa nhé.

http://www.cadviet.com/upfiles/5/5194_camcocgpmb_1.lsp

http://www.cadviet.com/upfiles/5/5194_64560_gpmbbd_1.dwg

(defun c:ccmb (/ oldos ls1 ls2 plst )
(vl-load-com)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(alert "Chon cac coc tim duong")
(setq ls1 (acet-ss-to-list (ssget (list (cons 0 "line") (cons 8 "entcoc")))) )
(alert "Chon cac duong mep taluy ")
(setq ls2 (acet-ss-to-list (ssget (list (cons 0 "*line") (cons 8 "dientichtn")))) 
          plst (list) )
(foreach e1 ls1
         (foreach e2 ls2
                (setq plst (append plst (acet-geom-intersectwith e1 e2 1)))
         )
)
(command "undo" "be")
(foreach p plst
         (command "insert" "cocmoc1" p 1 1 0)
)
(command "undo" "e")
(setvar "osmode" oldos)
(princ)
)

Tháng 10 16, 2015

Cảm ơn hiepttr và phamthanhbinh rất rất nhiếu hì hì.

1. Bản của hiepttr mình test không hiểu vì sao các block bị phóng to lên, không đúng với kích cỡ của block, chi tiết trong bản vẽ mình gửi kèm lên, bạn xem mình bị lỗi chỗ nào nhé.

2. Bản của phamthanhbinh mình dùng thì dùng ok rồi :D

http://www.cadviet.com/upfiles/5/64560_gpmbbd.lsp

Tháng 10 16, 2015

Cảm ơn hiepttr và phamthanhbinh rất rất nhiếu hì hì.

1. Bản của hiepttr mình test không hiểu vì sao các block bị phóng to lên, không đúng với kích cỡ của block, chi tiết trong bản vẽ mình gửi kèm lên, bạn xem mình bị lỗi chỗ nào nhé.

2. Bản của phamthanhbinh mình dùng thì dùng ok rồi :D

http://www.cadviet.com/upfiles/5/64560_gpmbbd.lsp

Hề hề hề,

Vì bác Hieptr cận thị nên phóng cái block ấy lên 25.4 lần ấy mà. Nếu bạn không thích thì sửa lại:

(command "_.insert" "cocmoc" trai 25.4 "" "") (command "_.insert" "cocmoc" phai 25.4 "" "")

thành

(command "_.insert" "cocmoc" trai 1 "" "") (command "_.insert" "cocmoc" phai 1 "" "")

Tháng 10 16, 2015

ok thank bác :D

Tháng 10 17, 2015

@bác Bình: Cái tật cận thị là xuất phát từ BV mẫu của chủ thớt mừ :D :D :D

Tháng 10 17, 2015

Em có viết chương trình Extend Line về 2 phía. Không biết ai cần ko? ^^

(vl-load-com)
(defun c:EXL2P (/ OBJPL1 OBJPL2 SSOBJLINE VLAOBJPL1 VLAOBJPL2)
;;;;EXTEND LINE 2 PHIA
  (setq ObjPL1 (car (entsel "\nChon duong chan thu nhat: ")))
  (setq ObjPL2 (car (entsel "\nChon duong chan thu hai ")))
  (setq VlaObjPL1 (vlax-ename->vla-object ObjPL1))
  (setq VlaObjPL2 (vlax-ename->vla-object ObjPL2))
  (setq ssObjLine (LM:ss->ent (ssget (list (cons 0 "LINE")))))
  (foreach eL ssObjLine
    (EntmodLine eL ObjPL1)
    (EntmodLine eL ObjPL2)
  )
  (princ)
)

(defun EntmodLine (ObjLine  ObjPLine /	      VlaLine  VlaPline
		   Lts1	    P1	     P2	      Ds_KC1   Ds_KC2
		   di1	    di2
		  )
  (setq VlaLine (vlax-ename->vla-object ObjLine))
  (setq VlaPline (vlax-ename->vla-object ObjPLine))
  (setq Lts1 (LM:Intersections VlaLine VlaPline acextendboth))
  (setq P1 (acet-dxf 10 (entget ObjLine)))
  (setq P2 (acet-dxf 11 (entget ObjLine)))
  (setq Ds_KC1 (mapcar '(lambda (x) (list (distance P1 x) x)) Lts1))
  (setq Ds_KC2 (mapcar '(lambda (x) (list (distance P2 x) x)) Lts1))
  (setq di1 (car (vl-sort Ds_KC1 '(lambda (x y) (< (car x) (car y))))))
  (setq di2 (car (vl-sort Ds_KC2 '(lambda (x y) (< (car x) (car y))))))
  (if (< (car di1) (car di2))
    (entmod (subst (cons 10 (last di1))
		   (assoc 10 (entget ObjLine))
		   (entget ObjLine)
	    )
    )
    (entmod (subst (cons 11 (last di2))
		   (assoc 11 (entget ObjLine))
		   (entget ObjLine)
	    )
    )
  )
)





;;;; acextendnone
(defun LM:Intersections	(obj1 obj2 mode / l r)
  (setq l (vlax-invoke obj1 'intersectwith obj2 mode))
  (repeat (/ (length l) 3)
    (setq r (cons (list (car l) (cadr l) (caddr l)) r)
	  l (cdddr l)
    )
  )
  (reverse r)
)
(defun LM:ss->ent (ss / i l)
  (if ss
    (repeat (setq i (sslength ss))
      (setq l (cons (ssname ss (setq i (1- i))) l))
    )
  )
)

Tháng 10 28, 2015

Bác chủ cho em ké tý

Nhờ các chuyên gia phán hộ sao em ko thay đổi được giá trị tọa độ 2 đầu line = hàm subst được nhỉ

Code dạng này

(setq ent (entget (car (entsel "select a line: ")))

(setq p '(0 0 0)) ; toạ độ này do tính toán, em tạm ví dụ thế

(setq ent (subst (cons 10 p)(cons 10 ent) ent))

(entupd (cdr(assoc -1 ent)))

(entmod ent)

sau câu lệnh subst, em xem data của ent thì vẫn như cũ, chả thay đổi j, các bác chỉ giúp xem sai chỗ nào với

Tháng 10 28, 2015

Thay cons bằng assoc

(setq ent (subst (cons 10 p)(assoc 10 ent) ent))

Tháng 10 28, 2015

Thay cons bằng assoc

(setq ent (subst (cons 10 p)(assoc 10 ent) ent

thank bác.

lâu ko làm nên cũng quên nhiều

Tháng 11 2, 2015

Nhờ các bác phát triển lisp này có thêm kích thước từ tim cọc GPMB hai bên mép taluy đến tim đường như trong hình với ạ.

Còn đây là 2 lisp của bác hieptr và bác phamthanhbinh

http://www.cadviet.com/upfiles/5/64560_gpmbbd_1.lsp

http://www.cadviet.com/upfiles/5/64560_gpmbbd2.lsp

Đây là file yêu cầu của em ạ.

http://www.cadviet.com/upfiles/5/64560_gpmbbd1.dwg

Tháng 11 2, 2015

Các pro giúp em vơi ạ

Tháng 11 2, 2015

Pro thì không dám nhưng cũng sửa cho bạn đây: :D :D :D

(defun c:DONG2 ( / lst_va old ss lst_name coc tlt tlp ob trai phai mid mid_pt)
(vl-load-com)
(defun mid(p1 p2)(mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5)))
(setq lst_va '("osmode" "cmdecho"))
(setq old (mapcar 'getvar lst_va))
(mapcar 'setvar lst_va '(0 0))
(prompt "\nChon BD muon dong coc GPMB !")
(setq ss (ssget '((8 . "MEPTLT,MEPTLP,ENTCOC"))))
(setq lst_name (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(setq coc (vl-remove-if-not '(lambda(x) (= "ENTCOC" (cdr (assoc 8 (entget x))))) lst_name)
	  tlt (vlax-ename->vla-object (car (vl-remove-if-not '(lambda(x) (= "MEPTLT" (cdr (assoc 8 (entget x))))) lst_name)))
	  tlp (vlax-ename->vla-object (car (vl-remove-if-not '(lambda(x) (= "MEPTLP" (cdr (assoc 8 (entget x))))) lst_name))))
(foreach c coc
	(setq trai (vlax-invoke (setq ob (vlax-ename->vla-object c)) 'intersectwith tlt acExtendThisEntity)
		  phai (vlax-invoke ob 'intersectwith tlp acExtendThisEntity)
		  mid_pt (mid (vlax-curve-getStartpoint c) (vlax-curve-getEndpoint c)))
	(command "_.insert" "cocmoc" trai 1 "" "")
	(command "_.insert" "cocmoc" phai 1 "" "")
	(command ".DIMALIGNED" mid_pt trai mid_pt)
	(command ".DIMALIGNED" mid_pt phai mid_pt)
)
(mapcar 'setvar lst_va old)
(princ)
)

Tháng 11 2, 2015

Hì hì, làm phiền bác nhiều ngại quá, thank bác nhiều :D

Tháng 11 9, 2015

- Trước khi mặt dày lại nhờ vả các bác tiếp em xin cảm ơn các bác trong diễn đàn cadviet rất nhiều, em tuy là newbie n các bác vẫn nhiệt tình giúp đỡ và trả lời mọi thắc mắc ko chỉ riêng em và còn rất nhiều thành viên khác nữa. Và đặc biệt cảm ơn 2 bác hiepttr và bác phamthanhbinh.

- Nhờ bác sau khi làm xong hồ sơ cắm cọc GPMB với tốc độ chóng mặt thì bên chủ đầu tư lại yêu cầu bên em phải xuất tọa độ cọc giải phóng mặt bằng của từng cọc và ghi rõ tại vị trí cọc nào ạ.

- Dưới đây là mẫu bảng biểu, file bình đồ mẫu đầy đủ tên cọc, và lisp cắm cọc của bác hiepttr em đang dùng ạ.

http://www.cadviet.com/upfiles/5/64560_mau_bang_xuat_toa_do.zip

http://www.cadviet.com/upfiles/5/64560_binh_do_gpmb_2932.dwg

http://www.cadviet.com/upfiles/5/64560_gpmbbd3_co_kich_thuoc.lsp

Tháng 11 10, 2015

- Mình chỉ code lúc rảnh và ngoài việc giúp bạn ra nó còn giúp mình ôn bài :D nên nếu hài lòng bạn chỉ cần kích like là đủ :D :D :D

- File xuất ra, bạn mở bằng excel, và nhớ cài đặt dấu ngắt phần thập phân là dấu chấm. Biểu mẫu file mình không theo ý bạn 100%, mình để chừa cột STT lại để bạn làm bằng excel thì linh động hơn, cột Y mình để trước, X để sau, thuận lợi trong việc nhập máy toàn đạc ...

p/s:

- Chú ý, Tên cọc được lấy từ XData của line ENTCOC nên trong quá trình biên tập bình đồ bạn không nên copy line của cọc này sang cọc kia, Hoặc thay đổi tên cọc trên Text thì lisp cũng không nhận được !

- Mình có sửa chút ít để lisp dim đúng form của bạn và không bị lỗi khi line ENTCOC cắt mỗi đường biên > 1 điểm.

(defun c:DONG3 ( / lst_va old ss lst_name coc tlt tlp ob trai phai mid mid_pt fn pw ten_coc)
(vl-load-com)
(defun mid(p1 p2)(mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5)))
(setq lst_va '("osmode" "cmdecho"))
(setq old (mapcar 'getvar lst_va))
(mapcar 'setvar lst_va '(0 0))
(prompt "\nChon BD muon dong coc GPMB !")
(setq ss (ssget '((8 . "MEPTLT,MEPTLP,ENTCOC"))))
(setq lst_name (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(setq coc (vl-remove-if-not '(lambda(x) (= "ENTCOC" (cdr (assoc 8 (entget x))))) lst_name)
	  tlt (vlax-ename->vla-object (car (vl-remove-if-not '(lambda(x) (= "MEPTLT" (cdr (assoc 8 (entget x))))) lst_name)))
	  tlp (vlax-ename->vla-object (car (vl-remove-if-not '(lambda(x) (= "MEPTLP" (cdr (assoc 8 (entget x))))) lst_name))))
(setq fn (getfiled "Chon file de xuat ket qua" "" "csv" 1))
(setq pw (open fn "w"))
(write-line "STT,Tencoc,Y,X" pw)
(foreach c coc
	(setq ten_coc	(cdr 
						(car
							(vl-remove-if-not '(lambda (x) (= 1000 (car x))) (cdr (last (assoc -3 (entget c '("*"))))))
						)
					)
	)
	(setq trai (if (= 3 (length (setq trai (vlax-invoke (setq ob (vlax-ename->vla-object c)) 'intersectwith tlt acExtendThisEntity))))
					trai
					(list (car trai) (cadr trai) (caddr trai))
				)
		  phai (if (= 3 (length (setq phai (vlax-invoke ob 'intersectwith tlp acExtendThisEntity))))
					phai
					(list (car phai) (cadr phai) (caddr phai))
				)
		  mid_pt (mid (vlax-curve-getStartpoint c) (vlax-curve-getEndpoint c)))
	(command "_.insert" "cocmoc" trai 1 "" "")
	(command "_.insert" "cocmoc" phai 1 "" "")
	(command ".DIMALIGNED" mid_pt trai (mid trai mid_pt))
	(command ".DIMALIGNED" mid_pt phai (mid phai mid_pt))
	(write-line (strcat "" "," "P-" ten_coc "," (rtos (cadr phai) 2 3) "," (rtos (car phai) 2 3)) pw)
	(write-line (strcat "" "," "T-" ten_coc "," (rtos (cadr trai) 2 3) "," (rtos (car trai) 2 3)) pw)
)
(close pw)
(mapcar 'setvar lst_va old)
(princ)
)

Tháng 11 10, 2015

- Cảm ơn bác đã nhiệt tình giúp em nhé, bác chỉ làm lúc rảnh mà giúp được em làm nhanh hơn được bao nhiêu lần đấy :D.

- Em xuất ra bản vẽ thấy OK rồi, mới đầu e quên chưa chuyển dấu thập phân về dấu chấm thì thấy tất cả dữ liệu về 1 cột hết, sau chuyển lại thì lại ngon rồi hì hì. để lúc làm có vấn đề gì thì phản hồi bác tiếp.

- Bây giờ em mới biết đến khái niệm Xdata đấy, bác có thể nói rõ hơn được không, e search n ko bài nào nêu cụ thể cả. Thực ra lúc ra yêu cầu này e chỉ mong xuất được tọa độ cọc thôi chứ ko mong được cả tên cọc vì nghĩ không có cơ sở dữ liệu nào để biết cọc nào tên là gì cả.

- Lúc nào rảnh bác nghiên cứu em xuất ra bảng kích thước từ tim ra cọc giải phóng mặt bằng bên trái và bên phải tuyến phát nhé, mẫu giống file dưới em gửi ạ.

http://www.cadviet.com/upfiles/5/64560_thong_ke_kich_thuoc.zip

À em ở Hòa Bình, có dịp đi qua chơi bác alo em, bác với em giao lưu cảm ơn bác :D

SĐT em: 0975.819.020

Tháng 11 10, 2015

- Bạn có thể dùng lisp này, 2 trong 1 :D

(defun c:DONG3 ( / lst_va old ss lst_name coc tlt tlp ob trai phai mid mid_pt fn pw ten_coc)
(vl-load-com)
(defun mid(p1 p2)(mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5)))
(setq lst_va '("osmode" "cmdecho"))
(setq old (mapcar 'getvar lst_va))
(mapcar 'setvar lst_va '(0 0))
(prompt "\nChon BD muon dong coc GPMB !")
(setq ss (ssget '((8 . "MEPTLT,MEPTLP,ENTCOC"))))
(setq lst_name (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(setq coc (vl-remove-if-not '(lambda(x) (= "ENTCOC" (cdr (assoc 8 (entget x))))) lst_name)
	  tlt (vlax-ename->vla-object (car (vl-remove-if-not '(lambda(x) (= "MEPTLT" (cdr (assoc 8 (entget x))))) lst_name)))
	  tlp (vlax-ename->vla-object (car (vl-remove-if-not '(lambda(x) (= "MEPTLP" (cdr (assoc 8 (entget x))))) lst_name))))
(setq fn (getfiled "Chon file de xuat ket qua" "" "csv" 1))
(setq pw (open fn "w"))
(write-line "STT,Ten coc,Trai,,,Phai" pw)
(write-line ",,K/cach den tim,Y,X,K/cach den tim,Y,X" pw)
(foreach c coc
	(setq ten_coc	(cdr 
						(car
							(vl-remove-if-not '(lambda (x) (= 1000 (car x))) (cdr (last (assoc -3 (entget c '("*"))))))
						)
					)
	)
	(setq trai (if (= 3 (length (setq trai (vlax-invoke (setq ob (vlax-ename->vla-object c)) 'intersectwith tlt acExtendThisEntity))))
					trai
					(list (car trai) (cadr trai) (caddr trai))
				)
		  phai (if (= 3 (length (setq phai (vlax-invoke ob 'intersectwith tlp acExtendThisEntity))))
					phai
					(list (car phai) (cadr phai) (caddr phai))
				)
		  mid_pt (mid (vlax-curve-getStartpoint c) (vlax-curve-getEndpoint c)))
	(command "_.insert" "cocmoc" trai 1 "" "")
	(command "_.insert" "cocmoc" phai 1 "" "")
	(command ".DIMALIGNED" mid_pt trai (mid trai mid_pt))
	(command ".DIMALIGNED" mid_pt phai (mid phai mid_pt))
	(write-line (strcat "," ten_coc "," (rtos (distance mid_pt trai) 2 3) "," (rtos (cadr trai) 2 3) "," (rtos (car trai) 2 3)
									"," (rtos (distance mid_pt phai) 2 3) "," (rtos (cadr phai) 2 3) "," (rtos (car phai) 2 3)) pw)
)
(close pw)
(mapcar 'setvar lst_va old)
(princ)
)

Tháng 11 10, 2015

Bác có thể giúp em tách ra được không, lisp cắm cọc và kích thước riêng (lisp này thì ok rồi), còn lisp xuất ra bảng gồm tọa độ và kích thước riêng khi đã có cọc gpmb và kích thước. Vấn đề xảy ra khi em làm là trong bình đồ bên thiết kế giao đường mép taluy ngoài gồm nhiều đường pline, nên em phải chạy lệnh cắm cọc thành nhiều lần, như thế mỗi lần lại xuất ra 1 bảng thì khó quản lý hơn ạ.

Tháng 11 10, 2015

Tại sao bạn không join đường mép taluy lại thành 1 đối tượng trước khi chạy lisp ?! Như vậy có lạm dụng lisp quá chăng ?!

Tháng 11 10, 2015

Em cũng đã thử join rồi, nhưng đường mép taluy ngoài này không hiểu sao ko join vào được.

Với cả khi làm trên bình đồ của em không hiểu sao thứ tự cọc xuất ra không đi theo đúng thứ tự, bác kiểm tra hộ em phát.

Đây là file của em đang làm

http://www.cadviet.com/upfiles/5/64560_binh_do_1.dwg

Tháng 11 10, 2015

để giải quyết vấn đề khó quản lý của Bạn thì Bạn lại làm khó cho lisper.

Các newmember chỉ biết vào để xin lisp mà không chịu học hỏi viết lisp để chủ động hơn. Bởi vậy 4r bây giờ ít khi thấy các lisper kỳ cựu viết mà họ chỉ hổ trợ và trao đổi thuật toán mà thôi

Tháng 11 10, 2015

Điều bác tien2005 nói em xin tiếp thu, nhưng do công việc cần gấp mà khả năng em không có mới phải mặt dày nhờ các bác thế này, mong các bác thông cảm cho em. Khi tải lisp về em cũng đã cố gắng đọc xem nội dung thế nào có chỉnh sửa được gì để phù hợp với yêu cầu của mình không n cái em sửa được chỉ là 1 vài thông số rất là nhỏ thôi :(

Đăng nhập

[Yêu Cầu] Cắm Cọc Gpmb Trên 2 Mép Ngoài Taluy Trên Bình Đồ

Các bài được khuyến nghị

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

hiepttr 538

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

phamthanhbinh 3.146

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

phamthanhbinh 3.146

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

hiepttr 538

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

thanhduan2407 272

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

stinger 0

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

ndtnv 481

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

stinger 0

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

hiepttr 538

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

hiepttr 538

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

dangky2510 6

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

hiepttr 538