Hỏi về Lisp (thuật toán, ý tưởng, coding,...)

Tháng 9 29, 2016

Hình như tối đa view được 64 VP, biến hệ thống => MAXACTVP

Tháng 9 29, 2016

Hình như tối đa view được 64 VP, biến hệ thống => MAXACTVP

Không phải bác ạ!

Bác xem lại xem.

Tháng 9 29, 2016

Khả năng lỗi là do hiện tượng "nuốt lệnh". Đây là căn bệnh nghe lạ như virut Zika, nhưng bản chất là: trong quá trình lặp, nhiều khi một lệnh nào đó bị "nuốt" - tức là chưa kịp thực hiện lệnh thì đã bị lệnh kế tiếp nhảy vào.

Hàm (command "zoom"...) khi dùng trong vòng lặp hay gặp bệnh này.

Thử thay tất cả (cômand "zoom"...) bằng các (vla-Zoom...) xem sao.

Dự là xử được!

P/S: máy bác chạy ngọt, thử 500 đếm đủ 501.

Tháng 9 29, 2016

Khả năng lỗi là do hiện tượng "nuốt lệnh". Đây là căn bệnh nghe lạ như virut Zika, nhưng bản chất là: trong quá trình lặp, nhiều khi một lệnh nào đó bị "nuốt" - tức là chưa kịp thực hiện lệnh thì đã bị lệnh kế tiếp nhảy vào.

Hàm (command "zoom"...) khi dùng trong vòng lặp hay gặp bệnh này.

Thử thay tất cả (cômand "zoom"...) bằng các (vla-Zoom...) xem sao.

Dự là xử được!

P/S: máy bác chạy ngọt, thử 500 đếm đủ 501.

Cháu đã thử nhưng vẫn bị mất bác ạ! Bác cho cháu xin chút code tham khảo được không ạ?

Cháu cảm ơn bác!

Cháu sửa.

(defun C:99 (/	       CHCAO	 CHNGANG   I	     N
	     PNTDONGNAM		 PNTTAYBAC PNT_CHEN  PNT_I
	     PNT_I+1
	    )
  (vl-load-com)
  (setq Olmode (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setvar 'TILEMODE 0)
  (setq	Pnt_Chen
	 (getpoint
	   "\nCh\U+1ECDn \U+0111i\U+1EC3m ch\U+00E8n khung: "
	 )
  )
  (setq n 50);;; (getint "\nNhap so Viewport: "))
  (setq ChCao 400.0)
  (setq ChNgang 350.0)
  (setq i 0)
  (vla-ZoomExtents (vlax-get-acad-object))
  (while (< i n)
    (setq Pnt_i (polar Pnt_Chen 0 (* i 800.0)))
    (setq Pnt_i+1 (polar Pnt_Chen 0 (* (+ i 1) 400.0)))
    (setq PntTayBac (polar Pnt_i (/ pi 2) 400.0))
    (setq PntDongNam (polar Pnt_i 0 350.0))
    (vla-ZoomWindow (vlax-get-acad-object) (vlax-3d-point PntTayBac) (vlax-3d-point PntDongNam))
    (vl-cmdf "Mview" PntTayBac PntDongNam)
    (vl-cmdf "MSpace")
    (vla-ZoomExtents (vlax-get-acad-object))
    (vl-cmdf "PSpace")
    (vl-cmdf "PAN" Pnt_i Pnt_i+1)
    (setq i (1+ i))
  )
  (vla-ZoomExtents (vlax-get-acad-object))
  (setvar "OSMODE" Olmode)
  (Princ)
)

Tháng 9 30, 2016

Hình như tối đa view được 64 VP, biến hệ thống => MAXACTVP

Cảm ơn bác nhiều!

Em đã giải quyết xong vấn đề.

(setvar "MAXACTVP" 64)

Của em lúc đầu bằng 16 nên toàn bị mất khi tạo Mview.

Nếu nhiều Mview hơn 64 em tạo ra các Layout và chia đều Mview vào trong đó.

Tháng 9 30, 2016

Mặc dù đã set biến MAXACTVP là 64 nhưng đôi khi vẫn bị mất view khi kết thúc lệnh

Vì vậy thêm câu lệnh này để hiện tất cả các viewport nhé

"setq drawing (vla-get-activedocument (vlax-get-acad-object)))

(vla-Regen drawing acAllViewports)

:D

Tháng 9 30, 2016

Cảm ơn bác nhiều!

Em đã giải quyết xong vấn đề.

(setvar "MAXACTVP" 64)

Của em lúc đầu bằng 16 nên toàn bị mất khi tạo Mview.

Nếu nhiều Mview hơn 64 em tạo ra các Layout và chia đều Mview vào trong đó.

Set 64 vẫn tạo 500 cái ngon ơ nhé!

Tháng 10 1, 2016

Mặc dù đã set biến MAXACTVP là 64 nhưng đôi khi vẫn bị mất view khi kết thúc lệnh

Vì vậy thêm câu lệnh này để hiện tất cả các viewport nhé

"setq drawing (vla-get-activedocument (vlax-get-acad-object)))

(vla-Regen drawing acAllViewports)

:D

Dạ không được bác ạ! Chỉ tối đa 64 Viewport.

Set 64 vẫn tạo 500 cái ngon ơ nhé!

Ơ thế ạ! Cháu chỉ tạo dc 64 cái. Các viewport mất. @@

Tháng 10 3, 2016

Dạ không được bác ạ! Chỉ tối đa 64 Viewport.

Đúng là chỉ tạo được 64 view nhưng khi bác tạo từng view một theo câu lệnh lisp, nếu không dùng lệnh regen theo câu lệnh như trên thì kết thúc lệnh autolisp thì sẽ mất 1 số view không thấy nhé

Tháng 12 1, 2016

Các bác cho em hỏi chút ạ!

Em có 1 tập điểm Point (gọi là LtsAll), sau khi em Sort tọa độ Y giảm dần thì em thao tác như sau:

Lấy tọa độ Y thằng có tọa độ Y lớn nhất cộng trừ với 1 gia số a chẳng hạn, tất cả thằng tọa độ nào có Y nằm trong (Ymax-a; Ymax+a) thì lấy nó ra cho vào 1 list (gọi là lts1).

Sau đó loại bỏ lts1 ra khỏi LtsAll (ta được lts2).

Lại Sort lts2 lấy ra dc Ymax và lại tiếp tục vòng lặp cho đến khi không con phần tử nào nữa. Em đã làm được điều này nhưng chưa biết cách chặn điểm dừng của vòng lặp. Mong các bác chỉ dùng em cách thức với ạ.

Cảm ơn các bác nhiều!

(defun C:90 (/ ENDYP I K LSTOBJ	LTS1 LTS2 LTSPOINT LTS_SORTY_REDUCE P
	     POINTFINAL	STARTYP	STEP Flag
	    )
  (setq	i      0
	Step   10.0
	LstObj (LM:ss->ent (ssget (list (cons 0 "POINT"))))
  )
  (repeat (length LstObj)
    (setq LtsPoint
	   (cons (cdr (assoc 10 (entget (nth i LstObj))))
		 LtsPoint
	   )
	  i (1+ i)
    )
  )
  (setq
    Lts_sortY_Reduce
     (vl-sort
       LtsPoint
       (function
	 (lambda (e1 e2) (> (cadr e1) (cadr e2)))
       )
     )
  )
  (setq StartYP (cadr (nth 0 Lts_sortY_Reduce)))
  (setq EndYP (cadr (last Lts_sortY_Reduce)))
  (setq Lts2 (list))
  (setq Lts_sortY_Reduce (TD:LM:RemoveItems Lts1 Lts_sortY_Reduce))
  (setq Flag T)
  (while Flag
    (progn
      (if (>= StartYP EndYP)
	(progn
	  (setq
	    Lts_sortY_Reduce
	     (vl-sort
	       Lts_sortY_Reduce
	       (function
		 (lambda (e1 e2) (> (cadr e1) (cadr e2)))
	       )
	     )
	  )
	  (setq k 0)
	  (setq Lts1 (list))
	  (while (< k (- (length Lts_sortY_Reduce) 1))
	    (if
	      (and
		(<= (cadr (nth k Lts_sortY_Reduce))
		    (+ StartYP (* Step 0.5))
		)
		(> (cadr (nth k Lts_sortY_Reduce))
		   (- StartYP (* Step 0.5))
		)
	      )
	       (progn
		 (setq p
			(list (car (nth k Lts_sortY_Reduce))
			      (cadr (nth k Lts_sortY_Reduce))
			)
		 )
		 (setq Lts1 (append Lts1 (list p)))
	       )
	    )
	    (setq k (1+ k))
	  )
	  (setq
	    Lts1
	     (vl-sort
	       Lts1
	       (function (lambda (e1 e2) (< (car e1) (car e2))))
	     )
	  )
	  (setq	Lts_sortY_Reduce
		 (TD:LM:RemoveItems
		   Lts1
		   Lts_sortY_Reduce
		 )
	  )
	  (setq Lts2 (append Lts2 Lts1))
	)
	(Progn
	  (setq Flag nil)
	  (setq StartYP (cadr (nth 0 Lts_sortY_Reduce)))
	)
      )
    )
  )
  (princ)
)
(defun LM:ss->ent (ss / i l)
  (if ss
    (repeat (setq i (sslength ss))
      (setq l (cons (ssname ss (setq i (1- i))) l))
    )
  )
)
;;;;;;(TD:LM:RemoveItems  '(2 4 6) '(1 2 3 4 5 6 7 8))
(defun TD:LM:RemoveItems (items lst / i items1)
  (setq i -1)
  (setq items1 (mapcar '(lambda (x) (vl-position x lst)) items))
  (vl-remove-if '(lambda (x) (member (setq i (1+ i)) items1)) lst)
)

Tháng 12 2, 2016

Các bác cho em hỏi chút ạ!

Em có 1 tập điểm Point (gọi là LtsAll), sau khi em Sort tọa độ Y giảm dần thì em thao tác như sau:

Lấy tọa độ Y thằng có tọa độ Y lớn nhất cộng trừ với 1 gia số a chẳng hạn, tất cả thằng tọa độ nào có Y nằm trong (Ymax-a; Ymax+a) thì lấy nó ra cho vào 1 list (gọi là lts1).

Sau đó loại bỏ lts1 ra khỏi LtsAll (ta được lts2).

Lại Sort lts2 lấy ra dc Ymax và lại tiếp tục vòng lặp cho đến khi không con phần tử nào nữa. Em đã làm được điều này nhưng chưa biết cách chặn điểm dừng của vòng lặp. Mong các bác chỉ dùng em cách thức với ạ.

Cảm ơn các bác nhiều!

(defun C:90 (/ ENDYP I K LSTOBJ	LTS1 LTS2 LTSPOINT LTS_SORTY_REDUCE P
	     POINTFINAL	STARTYP	STEP Flag
	    )
  (setq	i      0
	Step   10.0
	LstObj (LM:ss->ent (ssget (list (cons 0 "POINT"))))
  )
  (repeat (length LstObj)
    (setq LtsPoint
	   (cons (cdr (assoc 10 (entget (nth i LstObj))))
		 LtsPoint
	   )
	  i (1+ i)
    )
  )
  (setq
    Lts_sortY_Reduce
     (vl-sort
       LtsPoint
       (function
	 (lambda (e1 e2) (> (cadr e1) (cadr e2)))
       )
     )
  )
  (setq StartYP (cadr (nth 0 Lts_sortY_Reduce)))
  (setq EndYP (cadr (last Lts_sortY_Reduce)))
  (setq Lts2 (list))
  (setq Lts_sortY_Reduce (TD:LM:RemoveItems Lts1 Lts_sortY_Reduce))
  (setq Flag T)
  (while Flag
    (progn
      (if (>= StartYP EndYP)
	(progn
	  (setq
	    Lts_sortY_Reduce
	     (vl-sort
	       Lts_sortY_Reduce
	       (function
		 (lambda (e1 e2) (> (cadr e1) (cadr e2)))
	       )
	     )
	  )
	  (setq k 0)
	  (setq Lts1 (list))
	  (while (< k (- (length Lts_sortY_Reduce) 1))
	    (if
	      (and
		(<= (cadr (nth k Lts_sortY_Reduce))
		    (+ StartYP (* Step 0.5))
		)
		(> (cadr (nth k Lts_sortY_Reduce))
		   (- StartYP (* Step 0.5))
		)
	      )
	       (progn
		 (setq p
			(list (car (nth k Lts_sortY_Reduce))
			      (cadr (nth k Lts_sortY_Reduce))
			)
		 )
		 (setq Lts1 (append Lts1 (list p)))
	       )
	    )
	    (setq k (1+ k))
	  )
	  (setq
	    Lts1
	     (vl-sort
	       Lts1
	       (function (lambda (e1 e2) (< (car e1) (car e2))))
	     )
	  )
	  (setq	Lts_sortY_Reduce
		 (TD:LM:RemoveItems
		   Lts1
		   Lts_sortY_Reduce
		 )
	  )
	  (setq Lts2 (append Lts2 Lts1))
	)
	(Progn
	  (setq Flag nil)
	  (setq StartYP (cadr (nth 0 Lts_sortY_Reduce)))
	)
      )
    )
  )
  (princ)
)
(defun LM:ss->ent (ss / i l)
  (if ss
    (repeat (setq i (sslength ss))
      (setq l (cons (ssname ss (setq i (1- i))) l))
    )
  )
)
;;;;;;(TD:LM:RemoveItems  '(2 4 6) '(1 2 3 4 5 6 7 8))
(defun TD:LM:RemoveItems (items lst / i items1)
  (setq i -1)
  (setq items1 (mapcar '(lambda (x) (vl-position x lst)) items))
  (vl-remove-if '(lambda (x) (member (setq i (1+ i)) items1)) lst)
)

Thử thay (while Flag ....

bằng (while (>(length Lts_sortY_Reduce) 0)

Tháng 12 2, 2016

Thử thay (while Flag ....

bằng (while (>(length Lts_sortY_Reduce) 0)

Em đã thử rất nhiều kiểu rồi nhưng máy vẫn đơ do ko kiểm soát dc vòng lặp

Tháng 12 2, 2016

Em đã thử rất nhiều kiểu rồi nhưng máy vẫn đơ do ko kiểm soát dc vòng lặp

Sao lisp phức tạp thế nhỉ??? Thử cái này xem sao:

(defun loai_lst (/ lst)

(setq lst (list '(5 6) '(1 2) '(2 3) '(8 10) '(6 7) '(3 4) '(4 5))

a 2)

(while lst

(setq lst (vl-sort lst '(lambda (p1 p2) (> (cadr p1) (cadr p2)))))

(princ lst)

(princ "\n........................\n")

(setq lst (vl-remove-if '(lambda (x) (<= (- (cadar lst) a) (cadr x))) lst))))

Tháng 12 2, 2016

Thanhduan đặt câu hỏi tối nghĩa dễ sợ. Nếu cứ duyệt cho đến khi lstAll nil thì chỉ cần 1 dòng (setq lstAll nil) !!!!!!

Chắc là muốn lisp trả về (list lst1 lst2 ... lstn) ????? Nếu đúng vậy thì chỉ cần vài dòng thôi.

Tháng 12 2, 2016

Thanhduan đặt câu hỏi tối nghĩa dễ sợ. Nếu cứ duyệt cho đến khi lstAll nil thì chỉ cần 1 dòng (setq lstAll nil) !!!!!!

Chắc là muốn lisp trả về (list lst1 lst2 ... lstn) ????? Nếu đúng vậy thì chỉ cần vài dòng thôi.

Cảm ơn bác Quocmanh04tt đã gợi ý.

Cảm ơn bác Hạ.

Thực ra cháu chỉ hỏi 1 cách thức trong bài toán của cháu, các hàm "thừa" ko phải thừa đâu ạ, nó có tác dụng về sau nữa nên cháu để như vậy.

Cháu đã gần xong bài toán sau gợi ý rồi. Hii

Tháng 12 2, 2016

Các bác cho em hỏi chút ạ!

Em có 1 tập điểm Point (gọi là LtsAll), sau khi em Sort tọa độ Y giảm dần thì em thao tác như sau:

Lấy tọa độ Y thằng có tọa độ Y lớn nhất cộng trừ với 1 gia số a chẳng hạn, tất cả thằng tọa độ nào có Y nằm trong (Ymax-a; Ymax+a) thì lấy nó ra cho vào 1 list (gọi là lts1).

Sau đó loại bỏ lts1 ra khỏi LtsAll (ta được lts2).

Lại Sort lts2 lấy ra dc Ymax và lại tiếp tục vòng lặp cho đến khi không con phần tử nào nữa. Em đã làm được điều này nhưng chưa biết cách chặn điểm dừng của vòng lặp. Mong các bác chỉ dùng em cách thức với ạ.

Cảm ơn các bác nhiều!

(defun C:90 (/ ENDYP I K LSTOBJ	LTS1 LTS2 LTSPOINT LTS_SORTY_REDUCE P
	     POINTFINAL	STARTYP	STEP Flag
	    )
  (setq	i      0
	Step   10.0
	LstObj (LM:ss->ent (ssget (list (cons 0 "POINT"))))
  )
  (repeat (length LstObj)
    (setq LtsPoint
	   (cons (cdr (assoc 10 (entget (nth i LstObj))))
		 LtsPoint
	   )
	  i (1+ i)
    )
  )
  (setq
    Lts_sortY_Reduce
     (vl-sort
       LtsPoint
       (function
	 (lambda (e1 e2) (> (cadr e1) (cadr e2)))
       )
     )
  )
  (setq StartYP (cadr (nth 0 Lts_sortY_Reduce)))
  (setq EndYP (cadr (last Lts_sortY_Reduce)))
  (setq Lts2 (list))
  (setq Lts_sortY_Reduce (TD:LM:RemoveItems Lts1 Lts_sortY_Reduce))
  (setq Flag T)
  (while Flag
    (progn
      (if (>= StartYP EndYP)
	(progn
	  (setq
	    Lts_sortY_Reduce
	     (vl-sort
	       Lts_sortY_Reduce
	       (function
		 (lambda (e1 e2) (> (cadr e1) (cadr e2)))
	       )
	     )
	  )
	  (setq k 0)
	  (setq Lts1 (list))
	  (while (< k (- (length Lts_sortY_Reduce) 1))
	    (if
	      (and
		(<= (cadr (nth k Lts_sortY_Reduce))
		    (+ StartYP (* Step 0.5))
		)
		(> (cadr (nth k Lts_sortY_Reduce))
		   (- StartYP (* Step 0.5))
		)
	      )
	       (progn
		 (setq p
			(list (car (nth k Lts_sortY_Reduce))
			      (cadr (nth k Lts_sortY_Reduce))
			)
		 )
		 (setq Lts1 (append Lts1 (list p)))
	       )
	    )
	    (setq k (1+ k))
	  )
	  (setq
	    Lts1
	     (vl-sort
	       Lts1
	       (function (lambda (e1 e2) (< (car e1) (car e2))))
	     )
	  )
	  (setq	Lts_sortY_Reduce
		 (TD:LM:RemoveItems
		   Lts1
		   Lts_sortY_Reduce
		 )
	  )
	  (setq Lts2 (append Lts2 Lts1))
	)
	(Progn
	  (setq Flag nil)
	  (setq StartYP (cadr (nth 0 Lts_sortY_Reduce)))
	)
      )
    )
  )
  (princ)
)
(defun LM:ss->ent (ss / i l)
  (if ss
    (repeat (setq i (sslength ss))
      (setq l (cons (ssname ss (setq i (1- i))) l))
    )
  )
)
;;;;;;(TD:LM:RemoveItems  '(2 4 6) '(1 2 3 4 5 6 7 8))
(defun TD:LM:RemoveItems (items lst / i items1)
  (setq i -1)
  (setq items1 (mapcar '(lambda (x) (vl-position x lst)) items))
  (vl-remove-if '(lambda (x) (member (setq i (1+ i)) items1)) lst)
)

(defun f (l / r y)
  (setq l (vl-sort l (function (lambda (a b) (>= (cadr a) (cadr b))))))
  (while l
     (setq y (apply (function max) (mapcar (function cadr) l)))
     (setq r (cons (vl-remove-if-not (function (lambda (a) (equal (cadr a) y 1.))) l) r))
     (foreach a (car r) (setq l (vl-remove a l)))
  )
  (reverse r)
)

Tháng 12 2, 2016



(defun f (l / r y)

  (setq l (vl-sort l (function (lambda (a b) (>= (cadr a) (cadr b))))))

  (while l

     (setq y (apply (function max) (mapcar (function cadr) l)))

     (setq r (cons (vl-remove-if-not (function (lambda (a) (equal (cadr a) y 1.))) l) r))

     (foreach a (car r) (setq l (vl-remove a l)))

  )

  (reverse r)

)



(defun f1 (l / r y)

  (setq l (vl-sort l (function (lambda (a b) (>= (cadr a) (cadr b))))))

  (while l

     (setq y (cadar l))

     (setq r (cons (vl-remove-if-not (function (lambda (a) (equal (cadr a) y 1.))) l) r))

     (foreach a (car r) (setq l (vl-remove a l)))

  )

  (reverse r)

)

Tháng 12 2, 2016

(defun f1 (l / r y)
  (setq l (vl-sort l (function (lambda (a b) (>= (cadr a) (cadr b))))))
  (while l
     (setq y (cadar l))
     (setq r (cons (vl-remove-if-not (function (lambda (a) (equal (cadr a) y 1.))) l) r))
     (foreach a (car r) (setq l (vl-remove a l)))
  )
  (reverse r)
)

Cảm ơn bác. Em đã làm xong rồi. Hàm của bác rất hay.

Tháng 12 3, 2016



(defun f2 (l / r r1 y)

  (setq l (vl-sort l (function (lambda (a b) (>= (cadr a) (cadr b))))))

  (while (setq y (cadar l))

     (while (equal y (cadar l) 1.)

       (setq r1 (cons (car l) r1)

	     l (cdr l))

       )

    (setq r (cons (reverse r1) r)

	  r1 nil)

  )

  (reverse r)

)

Tháng 12 4, 2016

Chào mọi người. Em có 1 yêu cầu cần giúp đỡ như sau:

- Em có list ban đầu ((5 (a1 a2 a4) ) (10 (b1 b3 b4)) (5 (a3)))

- Và e cần kết quả như sau: ((5 (a1 a2 a4 a3)) (10 (b1 b3 b4))).

Cho hỏi là có hàm nào thực hiện đc như trên ko a?

Thank.

Tháng 12 5, 2016

Bạn tự viết thôi có chi đâu ^^ Duyệt qua từng item trong list để xử lý

Tháng 12 5, 2016

Chào mọi người. Em có 1 yêu cầu cần giúp đỡ như sau:

- Em có list ban đầu ((5 (a1 a2 a4) ) (10 (b1 b3 b4)) (5 (a3)))

- Và e cần kết quả như sau: ((5 (a1 a2 a4 a3)) (10 (b1 b3 b4))).

Cho hỏi là có hàm nào thực hiện đc như trên ko a?

Thank.

Nghịch tí ^_^

(setq lst '((5 (a1 a2 a4) ) (10 (b1 b3 b4)) (5 (a3))))

(append (list (list (caar lst) (append (cadar lst) (car (cdaddr lst))))) (list (cadr lst)))

Tháng 12 8, 2016

Chào các bác!

Từ ngày tham gia diễn đàn em đã học được rất nhiều điều bổ ích và cũng tự trau dồi kiến thức để tự viết Lisp. Hiện tại em viết cũng được 1 số lisp phục vụ cho công việc của mình và vì còn non kinh nghiệm nên em thường viết riêng lẻ từng lisp. Do nhiều chương trình em đã copy lại rất nhiều hàm dẫn đến hàm được lặp đi lặp lại rất nhiều lần (hàm giống hệt nhau).

Nay em muốn gộp tất cả các lisp với nhau và lọc loại bỏ các hàm giống nhau chỉ để lại 1 hàm để đóng gói thì có cách nào không ạ?

Thứ hai là em muốn thống kê các tên lệnh thì có cách nào làm nhanh không ạ?

Em xin chân thành cảm ơn các bác nhiều!

Tháng 12 8, 2016

Notepad++ làm việc này rất đơn giản:

- Tìm 1 chuỗi trong tất cả file lisp muốn tìm.

- Trả về danh sách hàm, danh sách biến của 1 file lisp

- v.v...

Tháng 12 8, 2016

Notepad++ làm việc này rất đơn giản:

- Tìm 1 chuỗi trong tất cả file lisp muốn tìm.

- Trả về danh sách hàm, danh sách biến của 1 file lisp

- v.v...

Cháu cảm ơn bác!

Cháu sẽ tìm hiểu bây giờ ạ!

Đăng nhập

Hỏi về Lisp (thuật toán, ý tưởng, coding,...)

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

quocmanh04tt 635

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

Doan Van Ha 3.191

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

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

VUVUZELA 100

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

Doan Van Ha 3.191

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

VUVUZELA 100

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

gia_bach 1.549

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

quocmanh04tt 635

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

Doan Van Ha 3.191

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

snowman.hms 59

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

snowman.hms 59

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

snowman.hms 59

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

thanh chau 0