[Yêu Cầu] Lisp Thay Text Theo Từ Điển Có Sẵn

[nhatminhrd 3]

Chào cả nhà. Em nhờ các bác giúp viết lisp thực hiện việc sau:

(Em dùng CAD 2014 và Office 2013)

 

+ Bản vẽ CAD có nhiều text tiếng Anh.

+ File excel có 2 cột ENG và VIE

+ Gọi Lisp load từ điển (LTD)

+ Gọi Lisp thực hiện (TTD)

+ Chọn text muốn thay --> thay hết từ text ENGn thành VIEn tương ứng.

 

Minh hoạ:

 

 

[nhatminhrd 3]

Bác nào có kinh nghiệm và thời gian giúp em với. Em cám ơn nhiều ạ. CF nhé :)

[phamthanhbinh 3.146]

Bác nào có kinh nghiệm và thời gian giúp em với. Em cám ơn nhiều ạ. CF nhé :)

Hề hề hề,

File excel của bạn là file csv hay xls hay xlsx ......

Có thể gửi cái file đó lên không hay là thuộc bí mật " cuốc ra "

Yêu cầu không quá khó nhưng vốn lười nên chả muốn lập từ điển làm chi.

Hề hề hề,.....

[nhatminhrd 3]

Vâng thank bác quan tâm nhé.

 

+ File Excel thông thường thôi, *.xlsx (gửi kèm ví dụ, để em copy thêm vào nữa là ok thôi, chắc tầm 100 dòng là cùng). Gồm 2 cột, cột A là ENG, cột B là VIE - không áp  dụng file dạng từ điển đâu ạ, làm cái này cho mọi người cùng tham gia được, copy & paste là được - thông minh như học sinh lớp vỡ lòng cũng làm được :)

+ File CAD mẫu gửi kèm

 

Thank bác nhiều nhé.

[nhatminhrd 3]

File gửi kèm đây bác nhé.

 

Up file lên CADVIET chạy một tẹo lại dừng hình, em up tạm lên Google Drive nhé.

 

https://drive.google.com/file/d/0BynyU6Yz8YzXME9VVEV2anBtRW8/view?usp=sharing

 

[phamthanhbinh 3.146]

File gửi kèm đây bác nhé.

 

Up file lên CADVIET chạy một tẹo lại dừng hình, em up tạm lên Google Drive nhé.

 

https://drive.google.com/file/d/0BynyU6Yz8YzXME9VVEV2anBtRW8/view?usp=sharing

Hề hề hề,

Có một vấn đề là trên file bản vẽ bạn sử dụng font của text là fonts Arial. 

Khi chuyển text tiếng Việt từ file excel sang bản vẽ thì bị hiển thị sai. Do đó trong file từ điển của bạn phải nhập sẵn các text tiếng Việt theo mà Unicode thì khi chuyển sang CAD mới đúng được bạn ạ.

Đây là lisp mình viết, bạn hãy dùng thử nó với file data.csv mà mình chuyển một phần của file data.xlsx của bạn sang các mả unicode mà mình biết nhé.

 

(defun c:trale ()
(setq  fn (getfiled "Select Data File" "" "csv" 0)
            f (open fn "r")
            txl nil
)
(while  (/= (setq str (read-line f)) nil) 
(setq tls (separate str ","))
(setq txl (append txl (list tls)))
)
(setq sst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(foreach txt sst
   (foreach tl txl
       (if (= (cdr (assoc 1 (entget txt))) (car tl))
           (entmod (subst (cons 1 (cadr tl)) (assoc 1 (entget txt)) (entget txt)))
       )
   )
)
)
 
;;;;;;;;;;;;;;;;;;;;;
(defun Separate (S sym / i L ch)
(setq i 0 L nil)
(while (< i (strlen S))
      (setq i (1+ i) ch (substr S i 1))
      (if (= ch sym) (progn
(setq
     L (append L (list (substr S 1 (- i 1))))
     S (substr S (1+ i) (- (strlen S) i))
     i 0
)
      )) 
)
(append L (list S))
)
 

[nhatminhrd 3]

 

Hề hề hề,

Có một vấn đề là trên file bản vẽ bạn sử dụng font của text là fonts Arial. 

Khi chuyển text tiếng Việt từ file excel sang bản vẽ thì bị hiển thị sai. Do đó trong file từ điển của bạn phải nhập sẵn các text tiếng Việt theo mà Unicode thì khi chuyển sang CAD mới đúng được bạn ạ.

Đây là lisp mình viết, bạn hãy dùng thử nó với file data.csv mà mình chuyển một phần của file data.xlsx của bạn sang các mả unicode mà mình biết nhé.

(defun c:trale ()
(setq  fn (getfiled "Select Data File" "" "csv" 0)
            f (open fn "r")
            txl nil
)
(while  (/= (setq str (read-line f)) nil) 
(setq tls (separate str ","))
(setq txl (append txl (list tls)))
)
(setq sst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(foreach txt sst
   (foreach tl txl
       (if (= (cdr (assoc 1 (entget txt))) (car tl))
           (entmod (subst (cons 1 (cadr tl)) (assoc 1 (entget txt)) (entget txt)))
       )
   )
)
)
 
;;;;;;;;;;;;;;;;;;;;;
(defun Separate (S sym / i L ch)
(setq i 0 L nil)
(while (< i (strlen S))
      (setq i (1+ i) ch (substr S i 1))
      (if (= ch sym) (progn
(setq
     L (append L (list (substr S 1 (- i 1))))
     S (substr S (1+ i) (- (strlen S) i))
     i 0
)
      )) 
)
(append L (list S))
)
 

 

 

Mình load AP cái lisp lên bình thường. Khi gọi lệnh thì báo lỗi này là sao bạn?

Command: ; error: syntax error

 

Thank bạn.

[Doan Van Ha 3.191]

Lỗi do diễn đàn. Sửa giúp bạn đây.

http://www.cadviet.com/upfiles/5/67029_trale.zip

[nhatminhrd 3]

Lỗi do diễn đàn. Sửa giúp bạn đây.

http://www.cadviet.com/upfiles/5/67029_trale.zip

He

Để mình thử xem. Vừa repply xong mà đã có trả lời này.

Test luôn

[nhatminhrd 3]

Thank các bác, Lisp đã chạy được rồi. Mỗi tội chưa hiển thị đúng font tiếng việt do sai mã.

 

Bây giờ phải làm sao tạo được cái file CSV mà chứa được mã unicode dùng cho font Arial ??? Để ngâm cứu tiếp. Bác nào biết hướng dẫn giúp cho nhanh với.

[nhatminhrd 3]

Hic hic

 

:( Đã mần lên xuống Google, dùng Not++ để edit nhưng vẫn chưa tạo được file CSV một cách hoàn chỉnh. Khi LISP hoạt động vẫn còn một số ký tự không hiển thị đúng tiếng Việt như là: ả ế ự ... bị chuyển thành dấu ""?""

 

Lẽ nào phải bỏ qua mấy ký tự này???  :unsure:

 

Có cách nào khắc phục không? Các cao thủ chỉ giáo với.

[phamthanhbinh 3.146]

http://www.cadviet.com/upfiles/5/5194_data.rar

 

 

Hic hic

 

:( Đã mần lên xuống Google, dùng Not++ để edit nhưng vẫn chưa tạo được file CSV một cách hoàn chỉnh. Khi LISP hoạt động vẫn còn một số ký tự không hiển thị đúng tiếng Việt như là: ả ế ự ... bị chuyển thành dấu ""?""

 

Lẽ nào phải bỏ qua mấy ký tự này???  :unsure:

 

Có cách nào khắc phục không? Các cao thủ chỉ giáo với.

 

Hề hề hề,

 

ả = \U+1EA3

ế = 

ự = \U+1EF1

 

Các ký tự khác mình vẫn chưa biết hết nên không giúp bạn được. Bạn chịu khó sưu tầm thêm nhé.

[ketxu 2.984]

Ớ, có công cụ của cháu và bác Hạ viết r mà nhỉ ^^

[phamthanhbinh 3.146]

 

Hic hic

 

:( Đã mần lên xuống Google, dùng Not++ để edit nhưng vẫn chưa tạo được file CSV một cách hoàn chỉnh. Khi LISP hoạt động vẫn còn một số ký tự không hiển thị đúng tiếng Việt như là: ả ế ự ... bị chuyển thành dấu ""?""

 

Lẽ nào phải bỏ qua mấy ký tự này???  :unsure:

 

Có cách nào khắc phục không? Các cao thủ chỉ giáo với.

 

Hề hề hề,

Bạn có thể vào địa chỉ sau để tra cứu các ký tự Unicode tương ứng với những ký tự bạn cần, mình cũng vừa mò thấy.

 

http://chars.suikawiki.org/string?s=E%CC%81

[phamthanhbinh 3.146]

Ớ, có công cụ của cháu và bác Hạ viết r mà nhỉ ^^

Hề hề hề,

Đúng là có cái file vlx của bác ĐoanVanHa đã viết nhưng hơi khó xài. Nếu bác ketxu có cái nào giản tiện hơn, dễ tra cứu hơn có thể share cho mọi người xài thử....

[Doan Van Ha 3.191]

Có gì mà khó xài trời? Xài lại thử mê mẩn người!  :D

http://www.cadviet.com/upfiles/5/67029_convert_ha.zip

[quocmanh04tt 634]

Gõ bằng bộ Gõ Tiếng việt của tác giả Kỳ Nam nhỉ, bật lên là gõ thoải mái tự nó nhảy sang hexa.

G\U+00F5 b\U+1EB1ng b\U+1ED9 g\U+00F5 ti\U+1EBFng Vi\U+1EC7t c\U+1EE7a t\U+00E1c gi\U+1EA3 K\U+1EF3 Nam nh\U+1EC9, b\U+1EADt l\U+00EAn v\U+00E0 g\U+00F5 tho\U+1EA3i m\U+00E1i t\U+1EF1 n\U+00F3 nh\U+1EA3y sang HeXa

 

[phamthanhbinh 3.146]

Gõ bằng bộ Gõ Tiếng việt của tác giả Kỳ Nam nhỉ, bật lên là gõ thoải mái tự nó nhảy sang hexa.

G\U+00F5 b\U+1EB1ng b\U+1ED9 g\U+00F5 ti\U+1EBFng Vi\U+1EC7t c\U+1EE7a t\U+00E1c gi\U+1EA3 K\U+1EF3 Nam nh\U+1EC9, b\U+1EADt l\U+00EAn v\U+00E0 g\U+00F5 tho\U+1EA3i m\U+00E1i t\U+1EF1 n\U+00F3 nh\U+1EA3y sang HeXa

hề hề hề, 

Bạn có phần mềm này và có thể chia sẻ cho mọi người xài không??? Hay là phải có phí ??? Phí bao nhiêu vậy ???

[phamthanhbinh 3.146]

Có gì mà khó xài trời? Xài lại thử mê mẩn người!  :D

http://www.cadviet.com/upfiles/5/67029_convert_ha.zip

Hề hề hề,

Có nhẽ tại mình vẫn xài Cad2004 nên nó không hiển thị các text theo bảng mã đó ra được. Trên giao diện hộp thoại chỉ có các mã mà không biết mã đó tương ứng với ký tự nào bác ạ.

[ketxu 2.984]

Trong bô lisplib ketxu cũng gắn sẵn nó vào rồi.

Nếu tool nhỏ riêng ketxu cũng post lâu rồi, ở đây, hay đây . Cùng trong topic đó còn nhiều vấn đề đang thảo luận dở 

Dùng bộ GoTiengViet như bác Tháistreet đã chia sẻ cũng hay n có cái dở là lúc nhìn lại để sửa ...

Lisp của bác Hạ thì dùng sẵn trong CAD rồi, bác cũng có thể sử dụng cũng được. Lúc chuyển qua lại giữa màn hình vlide và màn hình lệnh convert hơi vướng tí thôi

Nhưng nói chung thì dùng cách nào cũng coi như thỏa mãn yêu cầu rồi nên k ai thảo luận thêm nữa :)

[DanKhaosat 14]

Có gì mà khó xài trời? Xài lại thử mê mẩn người!  :D

http://www.cadviet.com/upfiles/5/67029_convert_ha.zip

 

MÌNH download VÀ DÙNG CÁI NÀY SAO NÓ BÁO NIL NHỈ?

( ĐÃ ĐƯA EXEL VỀ *.CSV RỒI VÀ NHẬP ĐƯỢC FILE TỪ ĐIỂN)

NHỜ CÁC CAO NHÂN CỈ GIÁO!

TRÂN TRỌNG!

[DanKhaosat 14]

À MÌNH XÀI CÁI TRALE.LSP CỦA ANH HẠ CHỈNH LẠI ẤY!

[Doan Van Ha 3.191]

À MÌNH XÀI CÁI TRALE.LSP CỦA ANH HẠ CHỈNH LẠI ẤY!

1). Tôi đang tâm sự về unicode chuyển qua hexa, không liên quan gì tới file csv hay xls.

2). Nếu tôi nhớ không nhầm thì chưa từng viết lisp nào có tên là "TRALE.LSP". 

[DanKhaosat 14]

Lỗi do diễn đàn. Sửa giúp bạn đây.

http://www.cadviet.com/upfiles/5/67029_trale.zip

CHÍNH LÀ CÁI NÀY MÀ ANH HẠ!

[Doan Van Ha 3.191]

MÌNH download VÀ DÙNG CÁI NÀY SAO NÓ BÁO NIL NHỈ?

( ĐÃ ĐƯA EXEL VỀ *.CSV RỒI VÀ NHẬP ĐƯỢC FILE TỪ ĐIỂN)

NHỜ CÁC CAO NHÂN CỈ GIÁO!

TRÂN TRỌNG!

Bạn đang hỏi cái gì? Lisp này không liên quan tới csv hay xls.

File trale.lsp là tôi sửa do lỗi forum, chứ không phải của tôi.

Cuối cùng là tôi vẫn không hiểu bạn đang nói gì, cần gì, hay tranh luận vấn đề gì.