Hàm Chuyễn Mã TCVN Sang UNICODE Hiển Thị Trong Cad. | Duy.

Trang chủ » Chuyển Font Tcvn3 Sang Unicode Trong Cad » Hàm Chuyễn Mã TCVN Sang UNICODE Hiển Thị Trong Cad. | Duy.

Có thể bạn quan tâm

Hàm chuyễn mã TCVN sang UNICODE hiển thị trong cad.

Đây là hàm dùng chuyển mã từ TCVN3 sang UNICODE hiển thị trong AUTOCAD nghe bảo là UNCODEHEXA gì gì đó. Ko rành mô nhưng mình viết chạy được rồi và nó có mặt hầu khắp trong các hàm con con của mình nên để chem bẻm đây cho tiên bà con lấy.

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

;;;Thay noi dung 1 doan trong chuoi ;;;Cu phap su dung (duy:s_chuoi>thay chuoigoc noidungcanthay thaythanhnoidung) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun duy:s_chuoi>thay (ndnhap ndsua ndthay / ndnhap ndsua ndthay skt sktd ndnhan ktd) (setq skt (strlen ndnhap)) (setq sktd (strlen ndsua)) (setq stt 1) (setq ndnhan “”) (while (< stt (+ skt 1)) (cond ((= (substr ndnhap stt sktd) ndsua) (setq ktd ndthay) (setq stt (+ stt sktd))) ((/= (substr ndnhap stt sktd) ndsua) (setq ktd (substr ndnhap stt 1)) (setq stt (+ stt 1))) ) (setq ndnhan (strcat ndnhan ktd)) ) ndnhan)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Thay noi dung chuoi bang list nguon va list dich ;;;Cu phap su dung (duy:s_chuoi>thay chuoigoc noidungcanthay thaythanhnoidung) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun duy:chuyenma (chuoi lstgoc lstthay / chuoi listgoc listthay goc thay) (mapcar ‘(lambda(goc thay)(setq chuoi (duy:s_chuoi>thay chuoi goc thay))) lstGoc lstThay) chuoi)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun duy:s_tcvn>dl (ndchuoi / ndchuoi ckq) (setq ckq (duy:chuyenma ndchuoi lstvn lstuni)) ckq)

(setq lstvn (list “µ” “Ì” “ß” “ï” “¸” “Д “ã” “ó” “¶” “Δ “á” “ñ” “·” “Ï” “â” “ò” “¹” “Ñ” “ä” “ô” “©” “ª” “«” “*” “Ç” “Ò” “å” “õ” “Ê” “Õ” “è” “ø” “È” “Ó” “æ” “ö” “É” “Ô” “ç” “÷” “Ë” “Ö” “é” “ù” “¨” “×” “¬” “ú” “»” “Ý” “ê” “ý” “¾” “Ø” “í” “û” “¼” “Ü” “ë” “ü” “½” “Þ” “ì” “þ” “Æ” “®” “î” “¦” “­” “¢” “§” “¤” “¥” “¡” “£”)) (setq lstuni (list “\U+00E0” “\U+00E8” “\U+00F2” “\U+00F9″”\U+00E1” “\U+00E9” “\U+00F3” “\U+00FA” “\U+1EA3” “\U+1EBB” “\U+1ECF” “\U+1EE7” “\U+00E3” “\U+1EBD” “\U+00F5” “\U+0169″”\U+1EA1” “\U+1EB9” “\U+1ECD” “\U+1EE5” “\U+00E2” “\U+00EA” “\U+00F4” “\U+01B0” “\U+1EA7” “\U+1EC1” “\U+1ED3” “\U+1EEB””\U+1EA5” “\U+1EBF” “\U+1ED1” “\U+1EE9″”\U+1EA9” “\U+1EC3” “\U+1ED5” “\U+1EED” “\U+1EAB” “\U+1EC5” “\U+1ED7” “\U+1EEF” “\U+1EAD” “\U+1EC7” “\U+1ED9” “\U+1EF1″”\U+0103” “\U+00EC” “\U+01A1” “\U+1EF3” “\U+1EB1” “\U+00ED” “\U+1EDD” “\U+00FD””\U+1EAF” “\U+1EC9” “\U+1EDB” “\U+1EF7″”\U+1EB3” “\U+0129” “\U+1EDF” “\U+1EF9” “\U+1EB5” “\U+1ECB” “\U+1EE1” “\U+1EF5” “\U+1EB7” “\U+0111” “\U+1EE3” “\U+01AF” “\U+01B0” “\U+00C2” “\U+0110” “\U+00D4” “\U+01A0” “\U+0102” “\U+00CA”))

Từ khóa » Chuyển Font Tcvn3 Sang Unicode Trong Cad