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

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

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

Vào lúc 11/5/2019 tại 15:48, quocmanh04tt đã nói:

Bạn thử làm theo hướng dẫn này xem có thay đổi gì không nhé!

Tải lisp ở dưới.

1. Hoặc: load lisp convert trước, sau đó load lisp của mình, => rồi dùng lệnh.

2. Hoặc copy nội dung trong lisp của mình, paste vào lisp convert (vào vị trí cuối của lisp convert nhé!).

Sup_Conv.LSP

bác ơi e thử cả máy nhà với máy công ty rồi. đều bị lỗi convert như cũ ạ. vẫn phải pick all hoặc phải paste thêm dòng (defun DetectFont (str) "tcvn") vào thì mới convert đc ạ. convert vẫn bị lỗi ở các chữ Ế Í Ì Ó

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
39 phút trước, loststars đã nói:

bác ơi e thử cả máy nhà với máy công ty rồi. đều bị lỗi convert như cũ ạ. vẫn phải pick all hoặc phải paste thêm dòng (defun DetectFont (str) "tcvn") vào thì mới convert đc ạ. convert vẫn bị lỗi ở các chữ Ế Í Ì Ó

Bạn dùng thử lisp này xem có được không

https://youtu.be/xUe3oAJ0_lM

CF.zip

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
35 phút trước, Biet ve CAD đã nói:

Bạn tải lại nhé

CF.zip

E dùng thử lisp thì bị ntn ạ:
1. Nếu dùng TCVN->Unicode thì convert lỗi như sau: image.thumb.png.c339f75dec71581524c07144c4f9f36b.png

 

2. Nếu dùng AutoDetect->Unicode thì bị lỗi chỉ thay đổi 1 dòng, mà vẫn convert sai: 

image.thumb.png.cc1ee3b8193f95ad5f67f61e50de86b1.png

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

@loststars Mình convert file bạn ko lỗi chữ nào ^^

Bạn làm như này:

tao 1 textstyle là font Unicode, mở lisp chọn From là TCVN, To là Unicode, mục changer chọn textstyle Unicode, xong bấm chọn các text

Untitled.thumb.jpg.792dad347ac2f9f829a3807720d86f3f.jpg

Tí mình gửi bạn bản khác xem

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
17 phút trước, Biet ve CAD đã nói:

@loststars Mình convert file bạn ko lỗi chữ nào ^^

Bạn làm như này:

tao 1 textstyle là font Unicode, mở lisp chọn From là TCVN, To là Unicode, mục changer chọn textstyle Unicode, xong bấm chọn các text

 

Vẫn k đc bác ạ
image.thumb.png.9e7325b58ab04f7d3608ce26ad0e14ae.png

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
1 giờ} trướ}c, Biet ve CAD đã nói:

@loststars bản này chuẩn nhé CF.zip

có vẻ chuẩn r bác ạ. nhưng vẫn bị convert sai ở những chữ như É Ế Ó Í Ị giống như lisp của bác Hoành. 
liệu máy e có vấn đề gì k :|image.thumb.png.468f419b8bc8b1e09d87250b19192f03.png

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
12 phút trước, Biet ve CAD đã nói:

file bạn mình convert ở trên ko bị lỗi, cho nên đề nghị bạn cài lại font unicode cho máy bạn nhé

 

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

Mình test thử lisp bác Hoàng vẫn ok mà nhỉ :)

 


E test thử cho nhiều máy, thì máy đc máy không ạ. font unicode thì hiện tại em khá đủ r. k lẽ Arial là font cơ bản nhất máy cũng thiếu ạ :|
Với lại e gõ trong cad vẫn ra bình thường ạ nên em đang nghĩ có thể là cad đang encode sai ạ.

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
18 giờ trước, loststars đã nói:

 


E test thử cho nhiều máy, thì máy đc máy không ạ. font unicode thì hiện tại em khá đủ r. k lẽ Arial là font cơ bản nhất máy cũng thiếu ạ :|
Với lại e gõ trong cad vẫn ra bình thường ạ nên em đang nghĩ có thể là cad đang encode sai ạ.

Bạn thử lisp dưới đây xem sao! Nếu không được nữa thì có lẽ nên  thay Cad, Win, hoặc máy... hehehe...

P/s: Chỉ dùng cho TCVN3 -> UNICODE.

 

t2u.LSP

  • Like 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
11 phút trước, quocmanh04tt đã nói:

Bạn thử lisp dưới đây xem sao! Nếu không được nữa thì có lẽ nên  thay Cad, Win, hoặc máy... hehehe...

P/s: Chỉ dùng cho TCVN3 -> UNICODE.

 

t2u.LSP

== Thôi e quyết định sống chung với lũ ạ. đành convert xong replace những lỗi sai thôi ạ. Lisp vẫn bị convert sai ở những chữ Ế É Í Ì Ó.

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

Em rất cảm ơn mọi ng đã giúp đỡ e ạ. Chắc là do vấn đề từ máy và hệ điều hành nên lisp convert 1 số chữ sai. đành chấp nhận ngồi replace những chữ convert sót thôi ạ.
Em cám ơn mọi người ạ.

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

K biết lỗi này của máy em có liên quan đến lỗi này không ạ: 

e thử test trên các máy win10 ver 1803 trở về trc thì các lisp đều ngon. nhưng các máy win10 ver mới hơn thì đều lỗi ạ

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 làm theo sau và gửi thông tin mình kiểm tra nhé!

1. Chọn 1 dòng text trên file của bạn (dòng text mà sẽ bị lỗi khi convert) - (đây là text kiểm tra - "TKT").

2. Copy "TKT" ra và convert, được "TCV" (cái này sẽ lỗi 1 số ký tự như bạn nói).

3. Copy "TCV" ra và hiệu chỉnh lại các lỗi ký tự được "THC".

4. Tải lisp này: 

5. Chọn 3 text ở trên, lisp sẽ xuất ra 1 file .txt, chứa ký tự nội dung của 3 text trên.

6. Bạn chụp màn hình nội dung file .txt đó, và gửi file .txt đó kèm theo hình cho mình. Mình sẽ kiểm tra giúp bạn.

  • Like 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
17 phút trước, loststars đã nói:

Hoặc là lisp tự nhận những chữ "Ế Ị Í Ó" trong tcvn3 là những chữ "Õ Þ Ý ã" thuộc bảng unicode rồi nên lips không convert nữa.

Thêm 1 chút nữa: 

1. Bạn gõ 1 text có các ký tự: "Ế Ị Í Ó" bằng TCVN3 (font mà mã) trong cad (không bao gồm các ký tự khác nhé - chỉ các ký tự bị lỗi).

2. Dùng lisp này:

(defun c:tt (/ e)
  (if (setq e (car (entsel "\nPick Text: ")))
    (vl-string->list (cdr (assoc 1 (entget e))))))

Pick vào text, sẽ có kết quả ở command, copy nó và gửi lên đây!

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
36 phút trước, quocmanh04tt đã nói:

Pick vào text, sẽ có kết quả ở command, copy nó và gửi lên đây!

e gửi bác ạ:
Pick Text: (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)

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
7 phút trước, loststars đã nói:

e gửi bác ạ:
Pick Text: (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)

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

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

×