Đến nội dung


Hình ảnh
- - - - -

Chuyển Mã Để Gõ Tiếng Việt Trong Lisp Nhiều Quá Bị Lỗi


  • Please log in to reply
12 replies to this topic

#1 Superlong

Superlong

    biết vẽ arc

  • Members
  • PipPip
  • 49 Bài viết
Điểm đánh giá: -9 (bình thường)

Đã gửi 05 April 2016 - 09:56 PM

em dùng các phần mềm để chuyển mã unicode đưa vào lisp lúc đầu trên thanh command vẫn hiện tiếng việt bình thường nhưng khi dùng cho nhìu lệnh quá thì nó lâu lâu hiện ra nguyên cái mã code luôn không ra tiếng việt nửa nếu copy riêng đoạn copy trong lisp past vào vlide thì lại ok
có ai bị giống vậy có cách khắc phục không


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 05 April 2016 - 10:35 PM

Bị hoài. Nhất là khi dòng chữ dài. Cách khắc phục chưa thấy.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 06 April 2016 - 08:40 AM

Hiện vẫn chưa tìm ra quy luật để Việt hóa chuẩn chỉ. Thậm chí ở máy ng này bình thường, máy người khác lại lỗi :))

Cách khắc phục là viết tiếng Anh, viết tiếng việt không dấu, chuyển đổi ngôn ngữ lập trình.


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#4 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 22 June 2016 - 09:19 AM

Mới tìm ra cách này, không biết có ổn hay không??? Nhờ các bác test thử, tôi test mãi chưa thấy lỗi...

Cụ thể như sau:

1. Sau khi có chuỗi Unicode - Hex: dùng hàm Vl-string->list để chuyển chuỗi này thành list ascii và đưa vào Lisp (ở trong .lsp chỉ chứa list này).

2. Khi nào cần dùng đến chuỗi thì dùng hàm chr chuyển ngược lại. Tôi có viết sẵn hàm như sau:

(defun qm:ascii_char (lst) (apply 'strcat (mapcar '(lambda (x) (chr x)) lst)))

3. Dưới đây là lisp để test với hàm alert (các hàm princ, prompt... cũng tương tự):

;;;(vl-string->list "")
(defun qm:ascii_char (lst) (apply 'strcat (mapcar '(lambda (x) (chr x)) lst)))
;;============================================================================
(defun c:tt  ()
 (alert (qm:ascii_char '(75 72 92 85 43 49 69 65 69 67 32 80 72 92 85 43 49 69 69 52 67 32 76 92 85 43 49 69 68 54 73 32 84 73 92 85 43 49 69 66 69 78 71 32 86 73 92 85 43 49 69 67
                         54 84 32 85 78 73 67 79 68 69 32 84 82 79 78 71 32 76 73 83 80 58 10 10 84 72 69 79 32 67 72 92 85 43 49 69 69 54 32 92 85 43 48 49 49 48 92 85 43 49 69 67
                         48 58 32 67 104 117 121 92 85 43 49 69 67 51 110 32 77 92 85 43 48 48 69 51 32 92 85 43 48 49 49 48 92 85 43 49 69 67 51 32 71 92 85 43 48 48 70 53 32 84
                         105 92 85 43 49 69 66 70 110 103 32 86 105 92 85 43 49 69 67 55 116 32 84 114 111 110 103 32 76 105 115 112 32 78 104 105 92 85 43 49 69 67 49 117 32 81
                         117 92 85 43 48 48 69 49 32 66 92 85 43 49 69 67 66 32 76 92 85 43 49 69 68 55 105 10 10 43 32 83 117 112 101 114 108 111 110 103 58 32 101 109 32 100 92
                         85 43 48 48 70 57 110 103 32 99 92 85 43 48 48 69 49 99 32 112 104 92 85 43 49 69 65 55 110 32 109 92 85 43 49 69 67 49 109 32 92 85 43 48 49 49 49 92 85
                         43 49 69 67 51 32 99 104 117 121 92 85 43 49 69 67 51 110 32 109 92 85 43 48 48 69 51 32 117 110 105 99 111 100 101 32 92 85 43 48 49 49 49 92 85 43 48 49
                         66 48 97 32 118 92 85 43 48 48 69 48 111 32 108 105 115 112 32 108 92 85 43 48 48 70 65 99 32 92 85 43 48 49 49 49 92 85 43 49 69 65 55 117 32 116 114 92
                         85 43 48 48 69 65 110 32 116 104 97 110 104 32 99 111 109 109 97 110 100 32 118 92 85 43 49 69 65 66 110 32 104 105 92 85 43 49 69 67 55 110 32 116 105 92
                         85 43 49 69 66 70 110 103 32 118 105 92 85 43 49 69 67 55 116 32 98 92 85 43 48 48 69 67 110 104 32 116 104 92 85 43 48 49 66 48 92 85 43 49 69 68 68 110
                         103 32 110 104 92 85 43 48 49 66 48 110 103 32 107 104 105 32 100 92 85 43 48 48 70 57 110 103 32 99 104 111 32 110 104 92 85 43 48 48 69 67 117 32 108 92
                         85 43 49 69 67 55 110 104 32 113 117 92 85 43 48 48 69 49 32 116 104 92 85 43 48 48 69 67 32 110 92 85 43 48 48 70 51 32 108 92 85 43 48 48 69 50 117 32
                         108 92 85 43 48 48 69 50 117 32 104 105 92 85 43 49 69 67 55 110 32 114 97 32 110 103 117 121 92 85 43 48 48 69 65 110 32 99 92 85 43 48 48 69 49 105 32
                         109 92 85 43 48 48 69 51 32 99 111 100 101 32 108 117 92 85 43 48 48 70 52 110 32 107 104 92 85 43 48 48 70 52 110 103 32 114 97 32 116 105 92 85 43 49 69
                         66 70 110 103 32 118 105 92 85 43 49 69 67 55 116 32 110 92 85 43 49 69 69 68 97 32 110 92 85 43 49 69 66 70 117 32 99 111 112 121 32 114 105 92 85 43 48
                         48 69 65 110 103 32 92 85 43 48 49 49 49 111 92 85 43 49 69 65 49 110 32 99 111 112 121 32 116 114 111 110 103 32 108 105 115 112 32 112 97 115 116 32 118
                         92 85 43 48 48 69 48 111 32 118 108 105 100 101 32 116 104 92 85 43 48 48 69 67 32 108 92 85 43 49 69 65 49 105 32 111 107 10 32 99 92 85 43 48 48 70 51 32
                         97 105 32 98 92 85 43 49 69 67 66 32 103 105 92 85 43 49 69 68 49 110 103 32 118 92 85 43 49 69 65 68 121 32 99 92 85 43 48 48 70 51 32 99 92 85 43 48 48
                         69 49 99 104 32 107 104 92 85 43 49 69 65 70 99 32 112 104 92 85 43 49 69 69 53 99 32 107 104 92 85 43 48 48 70 52 110 103 10 10 43 32 68 111 97 110 32 86
                         97 110 32 72 97 58 32 66 92 85 43 49 69 67 66 32 104 111 92 85 43 48 48 69 48 105 46 32 78 104 92 85 43 49 69 65 53 116 32 108 92 85 43 48 48 69 48 32 107
                         104 105 32 100 92 85 43 48 48 70 50 110 103 32 99 104 92 85 43 49 69 69 70 32 100 92 85 43 48 48 69 48 105 46 32 67 92 85 43 48 48 69 49 99 104 32 107 104
                         92 85 43 49 69 65 70 99 32 112 104 92 85 43 49 69 69 53 99 32 99 104 92 85 43 48 49 66 48 97 32 116 104 92 85 43 49 69 65 53 121 46 10 10 43 32 75 101 116
                         120 117 58 32 72 105 92 85 43 49 69 67 55 110 32 118 92 85 43 49 69 65 66 110 32 99 104 92 85 43 48 49 66 48 97 32 116 92 85 43 48 48 69 67 109 32 114 97
                         32 113 117 121 32 108 117 92 85 43 49 69 65 68 116 32 92 85 43 48 49 49 49 92 85 43 49 69 67 51 32 86 105 92 85 43 49 69 67 55 116 32 104 92 85 43 48 48 70
                         51 97 32 99 104 117 92 85 43 49 69 65 57 110 32 99 104 92 85 43 49 69 67 57 46 32 84 104 92 85 43 49 69 65 68 109 32 99 104 92 85 43 48 48 69 68 32 92 85
                         43 49 69 68 70 32 109 92 85 43 48 48 69 49 121 32 110 103 32 110 92 85 43 48 48 69 48 121 32 98 92 85 43 48 48 69 67 110 104 32 116 104 92 85 43 48 49 66
                         48 92 85 43 49 69 68 68 110 103 44 32 109 92 85 43 48 48 69 49 121 32 110 103 92 85 43 48 49 66 48 92 85 43 49 69 68 68 105 32 107 104 92 85 43 48 48 69 49
                         99 32 108 92 85 43 49 69 65 49 105 32 108 92 85 43 49 69 68 55 105 32 58 41 41 10 67 92 85 43 48 48 69 49 99 104 32 107 104 92 85 43 49 69 65 70 99 32 112
                         104 92 85 43 49 69 69 53 99 32 108 92 85 43 48 48 69 48 32 118 105 92 85 43 49 69 66 70 116 32 116 105 92 85 43 49 69 66 70 110 103 32 65 110 104 44 32 118
                         105 92 85 43 49 69 66 70 116 32 116 105 92 85 43 49 69 66 70 110 103 32 118 105 92 85 43 49 69 67 55 116 32 107 104 92 85 43 48 48 70 52 110 103 32 100 92
                         85 43 49 69 65 53 117 44 32 99 104 117 121 92 85 43 49 69 67 51 110 32 92 85 43 48 49 49 49 92 85 43 49 69 68 53 105 32 110 103 92 85 43 48 48 70 52 110 32
                         110 103 92 85 43 49 69 69 70 32 108 92 85 43 49 69 65 68 112 32 116 114 92 85 43 48 48 69 67 110 104 46 10 10 43 32 81 117 111 99 77 97 110 104 48 52 116
                         116 58 32 75 72 92 85 43 48 48 68 52 78 71 32 66 73 92 85 43 49 69 66 69 84 32 92 85 43 48 49 49 48 92 85 43 48 48 67 51 32 92 85 43 49 69 68 52 78 32 72
                         65 89 32 67 72 92 85 43 48 49 65 70 65 63 63 63)))
 (princ))

  • 1

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 22 June 2016 - 10:21 AM

Tin buồn vẫn cứ là tin buồn!

(defun C:HA1() 
 (setq lst  "\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+0103 \U+0111 \U+1EE3 \U+01AF \U+00C2 \U+0110 \U+00D4 \U+01A0 \U+0102 \U+00CA \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")
 (princ (qm:ascii_char (vl-string->list lst)))
 (princ))
(defun C:HA2() 
 (setq lst  "\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+0103 \U+0111 \U+1EE3 \U+01AF \U+00C2 \U+0110 \U+00D4 \U+01A0 \U+0102 \U+00CA \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")
 (alert (qm:ascii_char (vl-string->list lst)))
 (princ))

  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#6 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 22 June 2016 - 10:56 AM

Duy kèm cái chuyễn chuỗi từ tcvn3 sang unicode trong lisp luôn nghĩa là trong lisp chỉ toàn gỏ tcvn3 khi chạy lisp nó dịch xong ném thẳng ra màn hình mà vẫn lỗi thôi (thỉnh thoảng Cùng là chuỗi đó có lúc được có lúc lỗi) nên sống chung với lỗi thôi.


  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#7 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 22 June 2016 - 10:58 AM

... (ở trong .lsp chỉ chứa list này)

​Ý của tôi nói ở trên list đó chỉ toàn số thôi, trong lisp không chứa Hex

(defun c:tt  ()
 (defun qm:ascii_char (lst) (apply 'strcat (mapcar '(lambda (x) (chr x)) lst)))
 (alert (qm:ascii_char '(92 85 43 48 48 69 48 32 92 85 43 48 48 69 56 32 92 85 43 48 48 70 50 32 92 85 43 48 48 70 57 32 92 85 43 48 48 69 49 32 92 85 43 48 48 69 57 32 92 85 43 48
                         48 70 51 32 92 85 43 48 48 70 65 32 92 85 43 49 69 65 51 32 92 85 43 49 69 66 66 32 92 85 43 49 69 67 70 32 92 85 43 49 69 69 55 32 92 85 43 48 48 69 51 32
                         92 85 43 49 69 66 68 32 92 85 43 48 48 70 53 32 92 85 43 48 49 54 57 32 92 85 43 49 69 65 49 32 92 85 43 49 69 66 57 32 92 85 43 49 69 67 68 32 92 85 43 49
                         69 69 53 32 92 85 43 48 48 69 50 32 92 85 43 48 48 69 65 32 92 85 43 48 48 70 52 32 92 85 43 48 49 66 48 32 92 85 43 49 69 65 55 32 92 85 43 49 69 67 49 32
                         92 85 43 49 69 68 51 32 92 85 43 49 69 69 66 32 92 85 43 49 69 65 53 32 92 85 43 49 69 66 70 32 92 85 43 49 69 68 49 32 92 85 43 49 69 69 57 32 92 85 43 49
                         69 65 57 32 92 85 43 49 69 67 51 32 92 85 43 49 69 68 53 32 92 85 43 49 69 69 68 32 92 85 43 49 69 65 66 32 92 85 43 49 69 67 53 32 92 85 43 49 69 68 55 32
                         92 85 43 49 69 69 70 32 92 85 43 49 69 65 68 32 92 85 43 49 69 67 55 32 92 85 43 49 69 68 57 32 92 85 43 49 69 70 49 32 92 85 43 48 49 48 51 32 92 85 43 48
                         48 69 67 32 92 85 43 48 49 65 49 32 92 85 43 49 69 70 51 32 92 85 43 49 69 66 49 32 92 85 43 48 48 69 68 32 92 85 43 49 69 68 68 32 92 85 43 48 48 70 68 32
                         92 85 43 49 69 65 70 32 92 85 43 49 69 67 57 32 92 85 43 49 69 68 66 32 92 85 43 49 69 70 55 32 92 85 43 49 69 66 51 32 92 85 43 48 49 50 57 32 92 85 43 49
                         69 68 70 32 92 85 43 49 69 70 57 32 92 85 43 49 69 66 53 32 92 85 43 49 69 67 66 32 92 85 43 49 69 69 49 32 92 85 43 49 69 70 53 32 92 85 43 48 49 48 51 32
                         92 85 43 48 49 49 49 32 92 85 43 49 69 69 51 32 92 85 43 48 49 65 70 32 92 85 43 48 48 67 50 32 92 85 43 48 49 49 48 32 92 85 43 48 48 68 52 32 92 85 43 48
                         49 65 48 32 92 85 43 48 49 48 50 32 92 85 43 48 48 67 65 32 92 85 43 48 48 69 48 32 92 85 43 48 48 69 56 32 92 85 43 48 48 70 50 32 92 85 43 48 48 70 57 32
                         92 85 43 48 48 69 49 32 92 85 43 48 48 69 57 32 92 85 43 48 48 70 51 32 92 85 43 48 48 70 65 32 92 85 43 49 69 65 51 32 92 85 43 49 69 66 66 32 92 85 43 49
                         69 67 70 32 92 85 43 49 69 69 55 32 92 85 43 48 48 69 51 32 92 85 43 49 69 66 68 32 92 85 43 48 48 70 53 32 92 85 43 48 49 54 57 32 92 85 43 49 69 65 49 32
                         92 85 43 49 69 66 57 32 92 85 43 49 69 67 68 32 92 85 43 49 69 69 53 32 92 85 43 48 48 69 50 32 92 85 43 48 48 69 65 32 92 85 43 48 48 70 52 32 92 85 43 48
                         49 66 48 32 92 85 43 49 69 65 55 32 92 85 43 49 69 67 49 32 92 85 43 49 69 68 51 32 92 85 43 49 69 69 66 32 92 85 43 49 69 65 53 32 92 85 43 49 69 66 70 32
                         92 85 43 49 69 68 49 32 92 85 43 49 69 69 57 32 92 85 43 49 69 65 57 32 92 85 43 49 69 67 51 32 92 85 43 49 69 68 53 32 92 85 43 49 69 69 68 32 92 85 43 49
                         69 65 66 32 92 85 43 49 69 67 53 32 92 85 43 49 69 68 55 32 92 85 43 49 69 69 70 32 92 85 43 49 69 65 68 32 92 85 43 49 69 67 55 32 92 85 43 49 69 68 57 32
                         92 85 43 49 69 70 49 32 92 85 43 48 49 48 51 32 92 85 43 48 48 69 67 32 92 85 43 48 49 65 49 32 92 85 43 49 69 70 51 32 92 85 43 49 69 66 49 32 92 85 43 48
                         48 69 68 32 92 85 43 49 69 68 68 32 92 85 43 48 48 70 68)))
 (princ))

  • 0

#8 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 22 June 2016 - 11:19 AM

#5 kìa bạn. Đưa riêng hay đưa chung cũng lỗi cả.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#9 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 22 June 2016 - 11:35 AM

#5 kìa bạn. Đưa riêng hay đưa chung cũng lỗi cả.

 

Bác thử chạy lisp ở #7 rồi chụp hình đưa lên phát, đây là máy của tôi: https://drive.google...iew?usp=sharing

(4R mãi không up trực tiếp được hình)

Ps: ở #5 của bác là bác đã đưa mã HEX vào trong lisp, trong lsp chỉ tồn tại mã ascii thôi, kể cả bộ nhớ không được tồn tại biến lst (gán mã HEX) của bác nếu bác làm tắt.


  • 0

#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 22 June 2016 - 01:52 PM

Đây!

67029_ha3.png

67029_ha4.png

(defun qm:ascii_char (lst) (apply 'strcat (mapcar '(lambda (x) (chr x)) lst)))
(defun C:HA3() ;error
 (alert (qm:ascii_char
'(92 85 43 48 48 69 48 32 92 85 43 48 48 69 56 32 92 85 43 48 48 70 50 32 92 85 
43 48 48 70 57 32 92 85 43 48 48 69 49 32 92 85 43 48 48 69 57 32 92 85 43 48 
48 70 51 32 92 85 43 48 48 70 65 32 92 85 43 49 69 65 51 32 92 85 43 49 69 66 
66 32 92 85 43 49 69 67 70 32 92 85 43 49 69 69 55 32 92 85 43 48 48 69 51 32 
92 85 43 49 69 66 68 32 92 70 53 32 92 85 43 48 49 54 57 32 92 85 43 49 69 65 
49 32 92 85 43 49 69 66 57 32 92 85 43 49 69 67 68 32 92 85 43 49 69 69 53 32 
92 85 43 48 48 69 50 32 92 85 43 48 48 69 65 32 92 85 43 48 48 70 52 32 92 85 
43 48 49 66 48 32 92 85 43 49 69 65 55 32 92 85 43 49 69 67 49 32 92 85 43 49 
69 68 51 32 92 85 43 49 69 69 66 32 92 85 43 49 69 65 53 32 92 85 43 49 69 66 
70 32 92 85 43 49 69 68 49 32 92 85 43 49 69 69 57 32 92 85 43 49 69 65 57 32 
92 85 43 49 69 67 51 32 92 85 43 49 69 68 53 32 92 85 43 49 69 69 68 32 92 85 
43 49 69 65 66 32 92 85 43 49 69 67 53 32 92 85 43 49 69 68 55 32 92 85 43 49 
69 69 70 32 92 85 43 49 69 65 68 32 92 85 43 49 69 67 55 32 92 85 43 49 69 68 
57 32 92 85 43 49 69 70 49 32 92 85 43 48 49 48 51 32 92 85 43 48 48 69 67 32 
92 85 43 48 49 65 49 32 92 85 43 49 69 70 51 32 92 85 43 49 69 66 49 32 92 85 
43 48 48 69 68 32 92 85 43 49 69 68 68 32 92 85 43 48 48 70 68 32 92 85 43 49 
69 65 70 32 92 85 43 49 69 67 57 32 92 85 43 49 69 68 66 32 92 85 43 49 69 70 
55 32 92 85 43 49 69 66 51 32 92 85 43 48 49 50 57 32 92 85 43 49 69 68 70 32 
92 85 43 49 69 70 57 32 92 85 43 49 69 66 53 32 92 85 43 49 69 67 66 32 92 85 
43 49 69 69 49 32 92 85 43 49 69 70 53 32 92 85 43 48 49 48 51 32 92 85 43 48 
49 49 49 32 92 85 43 49 69 69 51 32 92 85 43 48 49 65 70 32 92 85 43 48 48 67 
50 32 92 85 43 48 49 49 48 32 92 85 43 48 48 68 52 32 92 85 43 48 49 65 48 32 
92 85 43 48 49 48 50 32 92 85 43 48 48 67 65 32 92 85 43 48 48 69 48 32 92 85 
43 48 48 69 56 32 92 85 43 48 48 70 50 32 92 85 43 48 48 70 57 32 92 85 43 48 
48 69 49 32 92 85 43 48 48 69 57 32 92 85 43 48 48 70 51 32 92 85 43 48 48 70 
65 32 92 85 43 49 69 65 51 32 92 85 43 49 69 66 66 32 92 85 43 49 69 67 70 32 
92 85 43 49 69 69 55 32 92 85 43 48 48 69 51 32 92 85 43 49 69 66 68 32 92 85 
43 48 48 70 53 32 92 85 43 48 49 54 57 32 92 85 43 49 69 65 49 32 92 85 43 49 
69 66 57 32 92 85 43 49 69 67 68 32 92 85 43 49 69 69 53 32 92 85 43 48 48 69 
50 32 92 85 43 48 48 69 65 32 92 85 43 48 48 70 52 32 92 85 43 48 49 66 48 32 
92 85 43 49 69 65 55 32 92 85 43 49 69 67 49 32 92 85 43 49 69 68 51 32 92 85 
43 49 69 69 66 32 92 85 43 49 69 65 53 32 92 85 43 49 69 66 70 32 92 85 43 49 
69 68 49 32 92 85 43 49 69 69 57 32 92 85 43 49 69 65 57 32 92 85 43 49 69 67 
51 32 92 85 43 49 69 68 53 32 92 85 43 49 69 69 68 32 92 85 43 49 69 65 66 32 
92 85 43 49 69 67 53 32 92 85 43 49 69 68 55 32 92 85 43 49 69 69 70 32 92 85 
43 49 69 65 68 32 92 85 43 49 69 67 55 32 92 85 43 49 69 68 57 32 92 85 43 49 
69 70 49 32 92 85 43 48 49 48 51 32 92 85 43 48 48 69 67 32 92 85 43 48 49 65 
49 32 92 85 43 49 69 70 51 32 92 85 43 49 69 66 49 32 92 85 43 48 48 69 68 32 
92 85 43 49 69 68 68 32 92 85 43 48 48 70 68))))
(defun C:HA4() ;error
 (princ (qm:ascii_char
'(92 85 43 48 48 69 48 32 92 85 43 48 48 69 56 32 92 85 43 48 48 70 50 32 92 85 
43 48 48 70 57 32 92 85 43 48 48 69 49 32 92 85 43 48 48 69 57 32 92 85 43 48 
48 70 51 32 92 85 43 48 48 70 65 32 92 85 43 49 69 65 51 32 92 85 43 49 69 66 
66 32 92 85 43 49 69 67 70 32 92 85 43 49 69 69 55 32 92 85 43 48 48 69 51 32 
92 85 43 49 69 66 68 32 92 70 53 32 92 85 43 48 49 54 57 32 92 85 43 49 69 65 
49 32 92 85 43 49 69 66 57 32 92 85 43 49 69 67 68 32 92 85 43 49 69 69 53 32 
92 85 43 48 48 69 50 32 92 85 43 48 48 69 65 32 92 85 43 48 48 70 52 32 92 85 
43 48 49 66 48 32 92 85 43 49 69 65 55 32 92 85 43 49 69 67 49 32 92 85 43 49 
69 68 51 32 92 85 43 49 69 69 66 32 92 85 43 49 69 65 53 32 92 85 43 49 69 66 
70 32 92 85 43 49 69 68 49 32 92 85 43 49 69 69 57 32 92 85 43 49 69 65 57 32 
92 85 43 49 69 67 51 32 92 85 43 49 69 68 53 32 92 85 43 49 69 69 68 32 92 85 
43 49 69 65 66 32 92 85 43 49 69 67 53 32 92 85 43 49 69 68 55 32 92 85 43 49 
69 69 70 32 92 85 43 49 69 65 68 32 92 85 43 49 69 67 55 32 92 85 43 49 69 68 
57 32 92 85 43 49 69 70 49 32 92 85 43 48 49 48 51 32 92 85 43 48 48 69 67 32 
92 85 43 48 49 65 49 32 92 85 43 49 69 70 51 32 92 85 43 49 69 66 49 32 92 85 
43 48 48 69 68 32 92 85 43 49 69 68 68 32 92 85 43 48 48 70 68 32 92 85 43 49 
69 65 70 32 92 85 43 49 69 67 57 32 92 85 43 49 69 68 66 32 92 85 43 49 69 70 
55 32 92 85 43 49 69 66 51 32 92 85 43 48 49 50 57 32 92 85 43 49 69 68 70 32 
92 85 43 49 69 70 57 32 92 85 43 49 69 66 53 32 92 85 43 49 69 67 66 32 92 85 
43 49 69 69 49 32 92 85 43 49 69 70 53 32 92 85 43 48 49 48 51 32 92 85 43 48 
49 49 49 32 92 85 43 49 69 69 51 32 92 85 43 48 49 65 70 32 92 85 43 48 48 67 
50 32 92 85 43 48 49 49 48 32 92 85 43 48 48 68 52 32 92 85 43 48 49 65 48 32 
92 85 43 48 49 48 50 32 92 85 43 48 48 67 65 32 92 85 43 48 48 69 48 32 92 85 
43 48 48 69 56 32 92 85 43 48 48 70 50 32 92 85 43 48 48 70 57 32 92 85 43 48 
48 69 49 32 92 85 43 48 48 69 57 32 92 85 43 48 48 70 51 32 92 85 43 48 48 70 
65 32 92 85 43 49 69 65 51 32 92 85 43 49 69 66 66 32 92 85 43 49 69 67 70 32 
92 85 43 49 69 69 55 32 92 85 43 48 48 69 51 32 92 85 43 49 69 66 68 32 92 85 
43 48 48 70 53 32 92 85 43 48 49 54 57 32 92 85 43 49 69 65 49 32 92 85 43 49 
69 66 57 32 92 85 43 49 69 67 68 32 92 85 43 49 69 69 53 32 92 85 43 48 48 69 
50 32 92 85 43 48 48 69 65 32 92 85 43 48 48 70 52 32 92 85 43 48 49 66 48 32 
92 85 43 49 69 65 55 32 92 85 43 49 69 67 49 32 92 85 43 49 69 68 51 32 92 85 
43 49 69 69 66 32 92 85 43 49 69 65 53 32 92 85 43 49 69 66 70 32 92 85 43 49 
69 68 49 32 92 85 43 49 69 69 57 32 92 85 43 49 69 65 57 32 92 85 43 49 69 67 
51 32 92 85 43 49 69 68 53 32 92 85 43 49 69 69 68 32 92 85 43 49 69 65 66 32 
92 85 43 49 69 67 53 32 92 85 43 49 69 68 55 32 92 85 43 49 69 69 70 32 92 85 
43 49 69 65 68 32 92 85 43 49 69 67 55 32 92 85 43 49 69 68 57 32 92 85 43 49 
69 70 49 32 92 85 43 48 49 48 51 32 92 85 43 48 48 69 67 32 92 85 43 48 49 65 
49 32 92 85 43 49 69 70 51 32 92 85 43 49 69 66 49 32 92 85 43 48 48 69 68 32 
92 85 43 49 69 68 68 32 92 85 43 48 48 70 68))))

  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#11 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 22 June 2016 - 03:42 PM

- Uh, có thể tùy từng máy chạy cái của bác thì không lỗi như bác ở trên.

- Cái HA3 có cái lỗi \F5 giống của bác kiểm tra thì thiếu ASCII

- Cái HA4 chỉ có 2 cái \F5 còn lại Ok, không giống của bác

 

*** Tôi copy 1 bài dài trên diễn đàn sau đó chuyển thì thấy vẫn OK.

Bác thử xem: http://www.cadviet.c...vietunicode.lsp


  • 0

#12 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 22 June 2016 - 04:09 PM

Vừa Test cái dài ngoằng của bạn.

Alert: very good.

Princ: very bad (hơn 10 lỗi).

Nói chung, qua hàm của bạn thì khả quan hơn nhưng vẫn không thể triệt để.

Trước đây tôi đã test rất nhiều và kết quả thế này:

- Càng dài càng dễ sai.

- Máy này đúng nhưng máy khác có thể sai.

- Cùng một máy nhưng khi nó "minh mẫn" thì OK, khi nó mụ muội thì NO.

- Vài lý do khác nữa như: có chữ dễ sai có chữ khó sai...

Mệt!


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#13 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 22 June 2016 - 04:25 PM

Uh, thôi đành chấp nhận thua vậy...! :D


  • 0