Lisp Chuyển Đổi Mã Font Chữ Trong Autocad

[loststars 5]

7 phút trước, quocmanh04tt đã nói:

Text nguồn của nó gồm những chữ gì?

Những text sai này bao gồm những chữ: Ã É È Ế Ề Í Ì Ị Ó Ò Õ Ỡ Ũ Ừ Ỵ 

nếu dùng lisp convert sang unicode nó bị lỗi thành ă Ð Ì Õ Ò Ý ́ Þ ã ̣ ơ ì ò õ þ

[quocmanh04tt 638]

Vấn đề ở chỗ này đây: Những máy không bị lỗi thì khi dùng lệnh TT các ký tự ở trên sẽ ra kết quả:

 (183 32 208 32 204 32 213 32 210 32 221 32 215 32 222 32 227 32 223 32 226 32 236 32 242 32 245 32 254 32)

Còn máy của bạn thì:

(183 32 92 85 43 48 48 68 48 32 92 85 43 48 48 67 67 32 92 85 43 48 48 68 53 32 92 85 43 48 48 68
                                          50 32 92 85 43 48 48 68 68 32 215 32 92 85 43 48 48 68 69 32 92 85 43 48 48 69 51 32 223 32 226 32
                                          92 85 43 48 48 69 67 32 92 85 43 48 48 70 50 32 92 85 43 48 48 70 53 32 92 85 43 48 48 70 69 32)

*** Để giải quyết vấn đề này... hiện tại mình chưa biết cách nào, cần phải suy nghĩ đã.

[snowman.hms 60]

(VL-LIST->STRING '(208)) -> "Ð"

(VL-LIST->STRING '(92 85 43 48 48 68 48))

Cùng 1 code point (208)

[snowman.hms 60]

Nếu muốn chính xác hoàn toàn thì bạn phải chuyển về codepoint chứ không dùng mã của cad.

[snowman.hms 60]

208 = 00D0 = 48 48 68 48

[loststars 5]

cái vấn đề này đau đầu quá nhỉ. nhưng k biết cái này là lỗi ở đâu mà có sự khác biệt giữa những máy ạ? e tưởng bảng mã chữ này phải chung một bảng hết chứ ạ

[ngokiet 170]

 

52 phút trước, loststars đã nói:

cái vấn đề này đau đầu quá nhỉ. nhưng k biết cái này là lỗi ở đâu mà có sự khác biệt giữa những máy ạ? e tưởng bảng mã chữ này phải chung một bảng hết chứ ạ

Lỗi là ở chỗ thay vì "Đ" nó thành "/U+00D0" nên nó không chuyển. Chỉ có mã đầu 183 nó chuyển thành chừ "Ó" thôi 

Cái này chắc do setcode của HDH nên Cad mới chuyển qua thể hiễn kiểu /U+ nên chương trình bị lỗi.

Muốn xử lý lỗi này thì khi code lisp convert xét thêm các ký tự kiểu này.

 

[loststars 5]

2 phút trước, ngokiet đã nói:

 

Lỗi là ở chỗ thay vì "Đ" nó thành "/U+00D0" nên nó không chuyển. Chỉ có mã đầu 183 nó chuyển thành chừ "Ó" thôi 

Cái này chắc do setcode của HDH nên Cad mới chuyển qua thể hiễn kiểu /U+ nên chương trình bị lỗi.

Muốn xử lý lỗi này thì khi code lisp convert xét thêm các ký tự kiểu này.

 

Tức là chương trình nhận định đây là unicode sẵn r nên sẽ k chuyển sang tcvn3 nữa đúng k ạ. 

[ngokiet 170]

2 phút trước, loststars đã nói:

Tức là chương trình nhận định đây là unicode sẵn r nên sẽ k chuyển sang tcvn3 nữa đúng k ạ. 

Mình chưa xem kỹ phần code hàm convert nên không rõ. Nhưng ngay cả ấn định Tcvn3- Unicode nó vẫn khong chuyển.

Chắc là do nó hiểu /U+00D0 là chữ bình thương ko phải tiếng việt

[quocmanh04tt 638]

24 phút trước, loststars đã nói:

Tức là chương trình nhận định đây là unicode sẵn r nên sẽ k chuyển sang tcvn3 nữa đúng k ạ. 

Bạn thử dùng cái này xem! (lệnh t2u).

 

t2u_2.LSP

[loststars 5]

46 phút trước, quocmanh04tt đã nói:

Bạn thử dùng cái này xem! (lệnh t2u).

 

t2u_2.LSP

convert ok hơn rồi bác ạ. nhưng hiện tại vẫn đang bị convert sai các chữ " Ì Ã Ò " ạ

[loststars 5]

nó còn đang sai ở những chữ này 

[quocmanh04tt 638]

12 phút trước, loststars đã nói:

nó còn đang sai ở nwhxng chữ này 

Chẳng lẽ mã Unicode cũng khác đi!???

Bạn thử viết mấy ký tự trên bằng unicode, rồi dùng TXT2LSP đưa lên mình xem nào!

[ngokiet 170]

Thử lisp này xem. Nó chuyển cả chừ viết bằng %%XXX

tcvn-uni.LSP

[loststars 5]

3 phút trước, ngokiet đã nói:

Thử lisp này xem. Nó chuyển cả chừ viết bằng %%XXX

tcvn-uni.LSP

lisp này của bác e dùng cũng bị dính 3 chữ "Ã Ì Ò" convert sai ạ

[loststars 5]

5 phút trước, quocmanh04tt đã nói:

Chẳng lẽ mã Unicode cũng khác đi!???

Bạn thử viết mấy ký tự trên bằng unicode, rồi dùng TXT2LSP đưa lên mình xem nào!

em gửi bác ạ: \U+00E3 \U+00EC \U+00F2
 

[loststars 5]

7 phút trước, quocmanh04tt đã nói:

Chẳng lẽ mã Unicode cũng khác đi!???

Bạn thử viết mấy ký tự trên bằng unicode, rồi dùng TXT2LSP đưa lên mình xem nào!

Nếu viết hoa hết thì nó ra là: \U+00C3 \U+00CC \U+00D2

[quocmanh04tt 638]

43 phút trước, loststars đã nói:

Nếu viết hoa hết thì nó ra là: \U+00C3 \U+00CC \U+00D2

Thử lại:

t2u_3.LSP

[loststars 5]

4 phút trước, quocmanh04tt đã nói:

Thử lại:

t2u_3.LSP

3 chữ ý vẫn bị lỗi bác ạ.

[ngokiet 170]

Bác dùng lệnh TXT2LSP của bác trên cho 3 text

1. text gốc

2. text sau khi dùng lệnh

3. Text bác mong muốn

[loststars 5]

54 phút trước, ngokiet đã nói:

Bác dùng lệnh TXT2LSP của bác trên cho 3 text

1. text gốc

2. text sau khi dùng lệnh

3. Text bác mong muốn

em gửi bác ạ.

convert sai.txt

[quocmanh04tt 638]

39 phút trước, loststars đã nói:

em gửi bác ạ.

convert sai.txt

Từ file bạn gửi:

1. Trên cad đặt STYLE hiện hành TCVN3, copy (Ctrl+C) dòng 1 ở file txt, sang  CAD -> Ctrl+V.

2. Trên cad đặt STYLE hiện hành UNICODE, copy (Ctrl+C) dòng 2 và 3 ở file txt, sang  CAD -> Ctrl+V.

So sánh 3 dòng đó??? Nếu có thể chụp màn hình!

[loststars 5]

4 phút trước, quocmanh04tt đã nói:

Từ file bạn gửi:

1. Trên cad đặt STYLE hiện hành TCVN3, copy (Ctrl+C) dòng 1 ở file txt, sang  CAD -> Ctrl+V.

2. Trên cad đặt STYLE hiện hành UNICODE, copy (Ctrl+C) dòng 2 và 3 ở file txt, sang  CAD -> Ctrl+V.

So sánh 3 dòng đó??? Nếu có thể chụp màn hình!

e gửi bác ạ:

 

[ngokiet 170]

58 phút trước, loststars đã nói:

em gửi bác ạ.

convert sai.txt

bác dùng cái lệnh txt2lsp trên đó.

chọn lần lượt 3 cái text trong cad

Rồi đưa lên dạng

text 1 (183 32 208 32 204 32 ....)

text 2(183 32 208 32 204 32 ....)

text 3 (183 32 208 32 204 32 ....)

- chứ mình thấy do font bạn là shx nên ko chăc. chứ font .vnarial nó có hiện đúng ko vậy

[quocmanh04tt 638]

32 phút trước, loststars đã nói:

e gửi bác ạ:

 

 

t2u_4.LSP