Chuyển đến nội dung
Diễn đàn CADViet
konig

Hỏi cách thêm kí tự bất kỳ vào text

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

Em đã dùng được 2 lisp trên của bác Tuệ, lisp chạy rất tốt ạ, có điều vẫn như em nói ở trên chuỗi text đều không có dấu cách ở đầu và cuối chuỗi chứ không phải là dấu cách ở giữa chuỗi. Ví dụ: nhập chuỗi "Cong Hoa Xa Hoi Chu Nghia Viet Nam" thì ok, nhưng nếu nhập " Cộng Hoa Xa Hoi Chu Nghia Viet Nam " thì nó sẽ bỏ 3 dấu cách ở đầu và cuối chuỗi này, như thế này nhiều lúc chuỗi text thêm vào sẽ dính tịt vào chuỗi text cũ thì cũng ko hay lắm. Nhờ bác xem lại giúp nhé, em cảm ơn các bác nhiều :bigsmile:

Hai_1401, nên nhớ rằng, vị trí ở đầu chuỗi text là vị trí 0, vị trí cuối text là số tổng ký tự trong text. Lisp của Tue và thiep không sai đâu.

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

Các bác giúp em cái lisp này. Trên diễn đàn có lisp "Thay chữ theo định dạng". Em đang rất cần cái này nhưng hơi nâng cao một chút. Lisp này chỉ thay những chữ nằm giữa hai chữ, nhưng em muốn thay chữ đứng đầu tiên hay cuối cùng. Em xin cảm ơn và chúc diễn đàn ngày càng phát triển

Lisp nguyên bản đây ạ. Thay chu theo dinh dang

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
Các bác giúp em cái lisp này. Trên diễn đàn có lisp "Thay chữ theo định dạng". Em đang rất cần cái này nhưng hơi nâng cao một chút. Lisp này chỉ thay những chữ nằm giữa hai chữ, nhưng em muốn thay chữ đứng đầu tiên hay cuối cùng. Em xin cảm ơn và chúc diễn đàn ngày càng phát triển

Lisp nguyên bản đây ạ. Thay chu theo dinh dang

Chào mrmanh

Bạn có thể cho 1 ví dụ được không? Để Lisp chạy theo đúng ý của bạn

Tue_NV ví dụ như sau có đúng ý của bạn không nhé :

Cho 1 chuỗi : "DIỄN ĐÀN CAD VIET TA"

Ví dụ thay chữ cuối là CUA CHUNG TA thì kết quả sẽ là "DIỄN ĐÀN CAD VIET CUA CHUNG TA"

 

Tương tự cho việc thay chữ đầu. Bạn mrmanh xem như vậy có đúng ý của bạn không?

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
Đối tượng phải là dtext chứ không phải mtext!

Chào pác Duy! Tại sao pác không lisp cho đối tượng là mtext mà là dtext, em thấy dùng mtext tiện dụng hơn so với dtext, chẳng hạn đối tượng là mtext dễ dàng thay đổi font chữ. Và em thấy nhiều người thường dùng dtext hơn mtext bác duy có biết tại sao hok, giải thích hộ em với. Chúc bác có một mùa giáng sinh hạnh phúc và ấm áp

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
Chào pác Duy! Tại sao pác không lisp cho đối tượng là mtext mà là dtext, em thấy dùng mtext tiện dụng hơn so với dtext, chẳng hạn đối tượng là mtext dễ dàng thay đổi font chữ. Và em thấy nhiều người thường dùng dtext hơn mtext bác duy có biết tại sao hok, giải thích hộ em với. Chúc bác có một mùa giáng sinh hạnh phúc và ấm áp

Dùng Dtext thì mình đặt mấy cái textstyle sau đó cần chỉnh font cho textstyle nào thì chỉnh nó sẽ thay hàng loạt các text trong slyte đó. Và Nhẹ máy nửa

-Bản vẽ mà hàng ngàn text thì chỉnh sửa Dtext nó nhanh và có trật tự hơn anh mtext nhiều.

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
Dùng Dtext thì mình đặt mấy cái textstyle sau đó cần chỉnh font cho textstyle nào thì chỉnh nó sẽ thay hàng loạt các text trong slyte đó. Và Nhẹ máy nửa

Vậy thì cũng hay hay bác nhỉ đúng là mỗi lệnh có một nét đặc trưng riêng nên anh Autodesk mới viết ra hai lệnh Mtext và Dtext. Vậy muốn dùng được lisp thêm text của bác thì phải EXPLODE các đối tượng mtext ra rồi! Cám ơn pác Duy nhá. Có dịp bác vào sg chơi nha.

  • Vote tăng 1

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
Vậy thì cũng hay hay bác nhỉ đúng là mỗi lệnh có một nét đặc trưng riêng nên anh Autodesk mới viết ra hai lệnh Mtext và Dtext. Vậy muốn dùng được lisp thêm text của bác thì phải EXPLODE các đối tượng mtext ra rồi!

Bạn dùng thử Lisp tgtext.lsp của Tue_NV ở bài viết số 48 nhé. Chấp nhận cả Text, Mtext, thêm được kí tự đầu, giữa và cuối.

Theo mình nghĩ, nếu bạn đã sử dụng Mtext là có chủ đích. Ví dụ như ghi các kí tự đặc biệt.

Nếu ban explode ra thì. Mtext chẳng còn là Mtext nữa và kí tự đặc biệt cũng chẳng còn là nó nữa.

 

Chào bạn CADVIET. Chúc vui vẻ

  • Vote tăng 1

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

Các bạn!

Mình vừa bị mắng vốn cái vụ khoảng trắng trong khi nhập chuổi cần thêm cho lisp themtext tại nơi mình làm việc và phát hiện ra rằng nếu bạn để chế độ nhập lệnh hiển thị tại vị trí trỏ chuột thì khoảng cách trong chuổi nhập sẽ không hiệu lực.

Nên:

-Gửi lời xin lổi tới các bạn bị tình trạng này mà lâu nay mình quả quyết là có nhận khoảng cách.

-Nếu bạn muốn nhận dấu cách thì đưa cái hiển thị dòng lệnh về dưới dòng command là được.

-Nguyên nhân thì không hiểu, hy vọng có bác nào tìm hiểu ra thì cho anh em mở rộng tầm mắt.

  • Vote tăng 1

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

Xin nhờ các Pro giúp mình việc thay thế

Mình đang vướng việc thay thế các nội dung trên bảng vẽ. Trên bảng vẽ có việc đánh số hiệu, như sau :

(1,1) , (1,2), .....(1,n)

(2,1) , ( 2,2) , ...(2.n)

........

Nhờ các anh giúp ch việc thay thế để ra kết quả như sau :

(1,1) , (1,2), .....(1,n) 

(1,1) ------> A-1  . Chỉ thau thế "  (1, "  thành A số kế , là 1, 2,... giữ nguyên và ) cuối thì bỏ đi, nghĩa là (1, thì bằng A-

(1,2) ------> A-2

.........

 

(2,1) , ( 2,2) , ...(2.n)

(2,1)  ------> B-1

(2,2) ------> B-2

........

(3,     ------> C-

(4,   ---------> D-

........

http://www.cadviet.com/upfiles/3/118139_sn_06_1.rar

Nếu sử dụng các Lisp của các bạn trên thì cũng hơi lâu, phải nhập vào từng dạng.

Mình muốn một lisp chọn tất cả các text, lisp lọc và thay thế theo yêu cầu trên.

Rất mong đuộc các Bạn giúp đỗ . Cám ơn

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

Xin nhờ các Pro giúp mình việc thay thế

Mình đang vướng việc thay thế các nội dung trên bảng vẽ. Trên bảng vẽ có việc đánh số hiệu, như sau :

(1,1) , (1,2), .....(1,n)

(2,1) , ( 2,2) , ...(2.n)

........

Nhờ các anh giúp ch việc thay thế để ra kết quả như sau :

(1,1) , (1,2), .....(1,n) 

(1,1) ------> A-1  . Chỉ thau thế "  (1, "  thành A số kế , là 1, 2,... giữ nguyên và ) cuối thì bỏ đi, nghĩa là (1, thì bằng A-

(1,2) ------> A-2

.........

 

(2,1) , ( 2,2) , ...(2.n)

(2,1)  ------> B-1

(2,2) ------> B-2

........

(3,     ------> C-

(4,   ---------> D-

........

chào anhemTracdia, theo yêu cầu của bạn, Thiep nghĩ rằng cũng không cần dùng lisp đâu.

Đầu tiên bạn dùng lệnh Qselect, Cad mở ra hộp thoại, trong object type chọn kiểu đối tượng là TEXT, trong operator: chọn select all, ok - hộp thoại đóng. Sau đó dung lệnh FIND, (hay nhấp chuột phải, nhấp phím F), mở ra hộp thoại:

trong ô find text tring đánh chữ (1,

trong ô replace with đánh chữ A-

OK

tương tự để thay thế "(2," thành "B-"

tiếp tục tìm và lập lại các text có ")" thay thế bằng""

OK

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

Chào các bạn! Mình có bản vẽ mặt bằng thép sàn: số hiệu thép, đường kính, khoảng cách thép tạo thành từ một block attribute. Giờ mình muốn thêm một ký tự  "A" vào cuối mỗi số hiệu thép được chọn. Mình chưa tìm thấy(hoặc nếu có thì mình chưa tìm thấy) lisp nào trên dàn thực hiện được công việc trên với đối tượng text của block attribute.Mong các bạn giúp đỡ. Mình xin cảm ơn trước!

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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:THEMTEXT (/ c e ss txt cmde ttdangs ttdangt)
  (command "undo" "be")
  (setq cmde (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq ttdangt (getstring 5"\nChuoi muon them phia truoc:")) 
  (setq ttdangs (getstring 5"\nChuoi muon them phia sau:")) 
  (if (null ttdangt)(setq ttdangt ""))
  (if (null ttdangs)(setq ttdangs ""))
 (prompt "\nChon chu muon chinh.")
  (setq ss (ssget))
  (setq c 0)
  (if ss (setq e (ssname ss c)))
  (while e
    (setq e (entget e))
    ; Ensure entity is text
    (if (= (cdr (assoc 0 e)) "TEXT")
        (progn
                 (setq txt (strcat ttdangt (cdr (assoc 1 e)) ttdangs))
           (setq e (subst (cons 1 txt) (assoc 1 e) e))
           (entmod e)
        )
    )
    (setq c (1+ c)) ; Increment counter.
    (setq e (ssname ss c))  ; Obtain next entity.
   )
   (setvar "CMDECHO" cmde)
   (command "undo" "end")
      (Prin1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:BOTTEXT (/ c e ss txt cmde tbdangs tbdangt)
  (command "undo" "be")
  (setq cmde (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq tbdangt (getreal "\nSo ky tu muon bot phia truoc:")) 
  (setq tbdangs (getreal "\nSo ky tu muon bot phia sau:")) 
  (if (null tbdangt)(setq tbdangt 0))
  (if (null tbdangs)(setq tbdangs 0))
  (setq sotru (+ tbdangt tbdangs))
 (prompt "\nChon chu muon chinh.")
  (setq ss (ssget))
  (setq c 0)
  (if ss (setq e (ssname ss c)))
  (while e
    (setq e (entget e))
    ; Ensure entity is text
    (if (= (cdr (assoc 0 e)) "TEXT")
        (progn
(setq sochu (strlen (cdr (assoc 1 e))))
(if (> sochu sotru)
(progn
(setq txt (substr (cdr (assoc 1 e)) (fix (+ 1 tbdangt)) (fix (- sochu tbdangt tbdangs))))
           (setq e (subst (cons 1 txt) (assoc 1 e) e))
           (entmod e)
)
)

        )
    )
    (setq c (1+ c)) ; Increment counter.
    (setq e (ssname ss c))  ; Obtain next entity.
   )
   (setvar "CMDECHO" cmde)
   (command "undo" "end")
      (Prin1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Lệnh là  THEMTEXT và  BOTTEXT

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

Bác Duy đây rồi!! tưởng bác không xuất hiện, có người nhờ tôi sửa líp của bác, nhưng bây giờ bác xuất hiện ròi thì bác sửa dùm nhé, dù sao bác cũng rành cái mình viết hơn người khác.

http://www.cadviet.com/forum/topic/95700-yeu-cau-nho-viet-lisp-ve-duong-thang-vuong-goc-voi-pline/page-2

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

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:THEMTEXT (/ c e ss txt cmde ttdangs ttdangt)
  (command "undo" "be")
  (setq cmde (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq ttdangt (getstring 5"\nChuoi muon them phia truoc:")) 
  (setq ttdangs (getstring 5"\nChuoi muon them phia sau:")) 
  (if (null ttdangt)(setq ttdangt ""))
  (if (null ttdangs)(setq ttdangs ""))
 (prompt "\nChon chu muon chinh.")
  (setq ss (ssget))
  (setq c 0)
  (if ss (setq e (ssname ss c)))
  (while e
    (setq e (entget e))
    ; Ensure entity is text
    (if (= (cdr (assoc 0 e)) "TEXT")
        (progn
                 (setq txt (strcat ttdangt (cdr (assoc 1 e)) ttdangs))
           (setq e (subst (cons 1 txt) (assoc 1 e) e))
           (entmod e)
        )
    )
    (setq c (1+ c)) ; Increment counter.
    (setq e (ssname ss c))  ; Obtain next entity.
   )
   (setvar "CMDECHO" cmde)
   (command "undo" "end")
      (Prin1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:BOTTEXT (/ c e ss txt cmde tbdangs tbdangt)
  (command "undo" "be")
  (setq cmde (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq tbdangt (getreal "\nSo ky tu muon bot phia truoc:")) 
  (setq tbdangs (getreal "\nSo ky tu muon bot phia sau:")) 
  (if (null tbdangt)(setq tbdangt 0))
  (if (null tbdangs)(setq tbdangs 0))
  (setq sotru (+ tbdangt tbdangs))
 (prompt "\nChon chu muon chinh.")
  (setq ss (ssget))
  (setq c 0)
  (if ss (setq e (ssname ss c)))
  (while e
    (setq e (entget e))
    ; Ensure entity is text
    (if (= (cdr (assoc 0 e)) "TEXT")
        (progn
(setq sochu (strlen (cdr (assoc 1 e))))
(if (> sochu sotru)
(progn
(setq txt (substr (cdr (assoc 1 e)) (fix (+ 1 tbdangt)) (fix (- sochu tbdangt tbdangs))))
           (setq e (subst (cons 1 txt) (assoc 1 e) e))
           (entmod e)
)
)

        )
    )
    (setq c (1+ c)) ; Increment counter.
    (setq e (ssname ss c))  ; Obtain next entity.
   )
   (setvar "CMDECHO" cmde)
   (command "undo" "end")
      (Prin1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Lệnh là  THEMTEXT và  BOTTEXT

Hề hề hề,

Mạn phép bác Duy sửa hai dòng code (Prin I) thành (Prin1).

  • Vote tăng 1

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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:THEMTEXT (/ c e ss txt cmde ttdangs ttdangt)
  (command "undo" "be")
  (setq cmde (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq ttdangt (getstring 5"\nChuoi muon them phia truoc:")) 
  (setq ttdangs (getstring 5"\nChuoi muon them phia sau:")) 
  (if (null ttdangt)(setq ttdangt ""))
  (if (null ttdangs)(setq ttdangs ""))
 (prompt "\nChon chu muon chinh.")
  (setq ss (ssget))
  (setq c 0)
  (if ss (setq e (ssname ss c)))
  (while e
    (setq e (entget e))
    ; Ensure entity is text
    (if (= (cdr (assoc 0 e)) "TEXT")
        (progn
                 (setq txt (strcat ttdangt (cdr (assoc 1 e)) ttdangs))
           (setq e (subst (cons 1 txt) (assoc 1 e) e))
           (entmod e)
        )
    )
    (setq c (1+ c)) ; Increment counter.
    (setq e (ssname ss c))  ; Obtain next entity.
   )
   (setvar "CMDECHO" cmde)
   (command "undo" "end")
      (Prin1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:BOTTEXT (/ c e ss txt cmde tbdangs tbdangt)
  (command "undo" "be")
  (setq cmde (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq tbdangt (getreal "\nSo ky tu muon bot phia truoc:")) 
  (setq tbdangs (getreal "\nSo ky tu muon bot phia sau:")) 
  (if (null tbdangt)(setq tbdangt 0))
  (if (null tbdangs)(setq tbdangs 0))
  (setq sotru (+ tbdangt tbdangs))
 (prompt "\nChon chu muon chinh.")
  (setq ss (ssget))
  (setq c 0)
  (if ss (setq e (ssname ss c)))
  (while e
    (setq e (entget e))
    ; Ensure entity is text
    (if (= (cdr (assoc 0 e)) "TEXT")
        (progn
(setq sochu (strlen (cdr (assoc 1 e))))
(if (> sochu sotru)
(progn
(setq txt (substr (cdr (assoc 1 e)) (fix (+ 1 tbdangt)) (fix (- sochu tbdangt tbdangs))))
           (setq e (subst (cons 1 txt) (assoc 1 e) e))
           (entmod e)
)
)

        )
    )
    (setq c (1+ c)) ; Increment counter.
    (setq e (ssname ss c))  ; Obtain next entity.
   )
   (setvar "CMDECHO" cmde)
   (command "undo" "end")
      (Prin1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Mr. Duy và mọi người giúp mình với 

mình load lisp lên báo lỗi như này:

Command:

Command: ap

APPLOAD themtextvabottex.lsp successfully loaded.

Command: ; error: syntax error

Thanks all.

Lệnh là  THEMTEXT và  BOTTEXT

 

 
 
Mr. Duy và mọi người giúp mình với 
mình load li sp lên báo lỗi như này:
Command:
Command: ap
APPLOAD themtextvabottex.lsp successfully loaded.
Command: ; error: syntax error
Thanks all.

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

Bạn load file này lên:

http://www.cadviet.com/upfiles/themtext.lsp

Lệnh: themtext

Hỏi: nhập nội dung cần thêm phía trước. Nếu không thêm phía trước thì enter

Hỏi: nhập nội dung cần thêm phía sau. Nếu không thêm phía sau thì enter

Hỏi: chọn đối tượng, bạn ưng chỉnh tẽt nào thì chọn text đó nhiều cũng được. ok.

Chú ý khi nhập nội dung text nhận cả khoảng trắng muốn kết thúc phải nhấn enter.

Bạn Phạm Quốc Duy cho mình xin file lisp này được không (gmail: tranngochoanggtvt@gmail.com), chứ mình click vào link dowload không được. Thanks bạn nhiều!

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

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×