Đến nội dung


Hình ảnh
- - - - -

Tiếng Việt trong hộp thoại Acad - Phần II


  • Please log in to reply
87 replies to this topic

#61 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 28 April 2011 - 09:14 AM

Nhân tiện nói về DCL, e thấy công cụ DCL & Lisp Generator ( và 1 số công cụ tương tự ) khá hay, tuy nhiên cái này tác giả (VN) mới cung cấp bản Lite, hok biết đã bác nào thử xài chưa ?
http://www.softpedia...ator-Lite.shtml
Ở nhà e cũng đang dùng 1 cái tạo DCL bằng VLX, n k mót được, cũng k ưng lắm
  • 1

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


#62 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 30 April 2011 - 03:03 PM

Xin cám ơn các bác: Ketxu, Thaistreet, Tue_NV đã góp ý. Thực ra, chưa có cái nào hoàn hảo nên mới bỏ công viết chứ không phải vì để chứng tỏ chứng minh gì cả, các bác ạ. Tuy vẫn chưa ưng ý lắm, nhưng cái này có “tiến bộ 1 chút” so với cái trước.
@Ket: cái của bác rất hay nhưng hình như nó chỉ in ra trên 1 dòng (mất công enter) và không thể chuyển ngược (nguồn là hexa). Bác sửa được 2 chỗ này thì hay biết mấy.
@Tue: hình như bác để edit_box mặc định nên cái dòng convert của bác hơi bị ngắn thì phải. Còn chuyện sao chỉ post mỗi VLX lên thì bác Ket đã nói thay. Tôi còn tệ hơn bác ấy rất nhiều nên hơi mắc cỡ khi post LSP. Tuy nhiên, lần này sẽ post đủ. Bác cứ xem code của tôi sẽ thấy: rắc rối, rườm rà, lê thê... lắm.
@Thai: cám ơn nhiều từ cái “\” của bác góp ý.
@Chung chung:
Sở dĩ có convert file và convert một số dòng trong file là nhằm giải quyết hậu quả: trước đây có nhiều người (có tôi) đã dùng tiếng Việt trong dialoge bằng nhiều cách, nay cần chuyển nó thì có thể dùng được, chứ viết code mới thì chẳng cần lắm.
Cái của tôi vẫn còn vài vấn đề chưa giải quyết được, như:
1. Với convert string: vì dùng edit_box nên không convert nhiều dòng được (hình như thế?).
2. Với convert file: vì autodesk chỉ mở các file ANSI nên không thể convert file viết bằng Unicode được (hình như thế?).
3. Và không biết có bị lỗi chỗ nào nữa không, hiện giờ chưa phát hiện...
Chúc các bác và mọi người những ngày lễ thật vui.
http://www.cadviet.c...onvert_ha_1.zip
  • 1

* 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.


#63 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 01 May 2011 - 11:26 AM

Chào bác DVH và các bác, rất tiếc k hiểu sao từ tối qua đến giờ e k thể down từ trên host CV về được, nên cũng chưa có dịp test thành quả của bác. Còn 2 vấn đề bác nêu về cái mình viết, e thử fix bên dưới nhé.Thay vì dùng các hàm chuyển mã Vb cung cấp, e đã chuyển về việc thay thế chuỗi thông thường -> Tốc độ chậm đi đáng kể, tuy nhiên dễ dàng hơn trong việc convert ngược ^^
1. Chuyện ghi liền vào 1 dòng :e đã giải thích ở các reply trước, đó là do cách Notepad thể hiện. Bác có thể bật file Lisp bằng Vlide hoặc N++ là thấy. Ctrl + S 1 phát là hoàn toàn bình thường. Nhất là với bản update này,do chỉ hoán đổi từ nên k còn convert ký hiệu xuống dòng nữa
2. Convert ngược : e đã thêm vào, nhưng để rõ ràng giữa 2 mục đích, e cho sang tab mới. Lễ nạp chưa có thời gian test kỹ, có gì các bác phản hồi lại giúp e ha

Update : Link bài reply #68


P/S @DVH: cuối cùng e đã test được. Có đôi điều nhận xét như sau :
- Về CVS : Khá linh động trong chuyển đổi qua lại 3 kiểu.Kết quả đẹp :) Tuy nhiên đúng là giờ e mới nhận thấy cái Text Box này DCL hok cho Enter xuống dòng ^^
- Về CVF : cái này thì hơi chuối 1 tí về vấn đề Unicode như bác đã nói, ngoài ra, chỉ có 1 chế độ ghi đè, bất kể là user có ghi tên file khác ^^
Nói chung đây là 1 kết quả khả quan :) Hơn nữa rất cảm động trước tấm lòng share code của bác ^^
  • 1

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


#64 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 02 May 2011 - 11:06 PM

Về vấn đề viết nhiều dòng với Edit_box thì có vẻ như chúng ta bó tay thật rồi.
Tuy nhiên với nhu cầu như của các bác thì có thể dùng hàm ACET-UI-TXTED để thay thế cho DCL
VD:
(defun C:CV nil
(acet-ui-txted (acet-ui-txted "" "Convert TCVN3 to Unicode" "Nhap chuoi, bam OK de chuyen") "Convert TCVN3 to Unicode" "Da chuyen xong"))

  • 1

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#65 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 04 May 2011 - 11:32 PM

Update : Bổ sung thêm tính năng test Lisp. Tks bác Tú vì ý tưởng này.Nhà mình ai quan tâm thì dùng thử xem sao ^^

UnicodeLisp
  • 4

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


#66 duyhung

duyhung

    biết vẽ rectang

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

Đã gửi 05 May 2011 - 08:58 AM

Tool của bạn ketxu rất hay, mình thích cái autocopy; nhưng ko biết chức năng Lib và test lisp của bạn sử dụng ntn?
  • 0
Song va chien dau!

#67 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 May 2011 - 09:06 AM

^^ Lib là thư viện hàm mình lập, tuy nhiên chưa có thời gian nên chưa đưa vào kịp.
Test là sau khi load 1 file lisp hoặc đánh 1 đoạn lisp (mã lệnh chứ k phải string không nhé), bạn có thể ấn Test để chuyển sang môi trường CAD và load lisp temp thử luôn
  • 1

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


#68 duyhung

duyhung

    biết vẽ rectang

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

Đã gửi 05 May 2011 - 09:56 AM

Ah, hóa ra mình có thể sử dụng nó luôn giống như trong notepad+++ và đưa ra môi trường Cad để test ah.
Hj oki thank.
  • 0
Song va chien dau!

#69 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 05 May 2011 - 11:34 AM

Nhìn cái hộp thoại mà thèm quá Ketxu ạ. Mình chán DCL lắm rồi.
Bạn cho mình hỏi, hộp thoai hay ngôn ngữ mà bạn dùng để viết hộp thoại trên có liên kết đuợc với code của Lisp không? code điều khiển của nó có linh động và đỡ fức tạp như Lisp không? Mình vẫn dùng DCL cho các chuơng trinh của mình, viết code điều khiển thực sự rất mệt mỏi mà giao diện lại bị hạn chế quá nhiều khả năng tuơng tác với nguời dùng :(
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#70 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 05 May 2011 - 11:40 AM

Nhìn cái hộp thoại mà thèm quá Ketxu ạ. Mình chán DCL lắm rồi.
Bạn cho mình hỏi, hộp thoai hay ngôn ngữ mà bạn dùng để viết hộp thoại trên có liên kết đuợc với code của Lisp không? code điều khiển của nó có linh động và đỡ fức tạp như Lisp không? Mình vẫn dùng DCL cho các chuơng trinh của mình, viết code điều khiển thực sự rất mệt mỏi mà giao diện lại bị hạn chế quá nhiều khả năng tuơng tác với nguời dùng :(

Đây là chương trình độc lập Ketxu viết trên VB.net bạn à.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#71 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 May 2011 - 11:56 AM

Nhìn cái hộp thoại mà thèm quá Ketxu ạ. Mình chán DCL lắm rồi.
Bạn cho mình hỏi, hộp thoai hay ngôn ngữ mà bạn dùng để viết hộp thoại trên có liên kết đuợc với code của Lisp không? code điều khiển của nó có linh động và đỡ fức tạp như Lisp không? Mình vẫn dùng DCL cho các chuơng trinh của mình, viết code điều khiển thực sự rất mệt mỏi mà giao diện lại bị hạn chế quá nhiều khả năng tuơng tác với nguời dùng :(

Vâng, chính xác là e dùng VB.net. CHỉ là 1 hỗ trợ độc lập từ bên ngoài thôi, nên không có liên kết nào với Lisp. E đang dự định làm 1 cái hỗ trợ người viết DCL. Còn chuyện kiểm tra bug Lisp thì chắc mãi chỉ là ước mơ ^^
  • 1

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


#72 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 05 May 2011 - 05:32 PM

Mình từng viết 1 cái hộp thoại có đến 64key có liên kết và tương tác với nhau. code điều khiển của nó mình mất hơn 1 tuần mới xong, giờ còn mấy cái nữa mà thấy nản quá.
Ý tuởng của mình là như này:
- Sử dụng 1 loại ngôn ngữ nào đó hỗ trợ hộp thoại đầy đủ hơn, linh hoạt hơn và có thể tạo ra ứng dụng trong môi trường cad để tạo ra 1 lệnh cho cad, (không nhất thiết fải có liên kết với lisp, chỉ cần tạo ra được ứng dụng cho Cad)
- lệnh này thực hiện 2 nhiệm vụ: tạo ra hộp thoại cùng với các thao tác điều khiển cho nó. Gán kết quả cho 1 biến nào đó dưới dạng 1 list sau khi đóng hộp thoại. VD: biến ABC = '(integer real string list....) chẳng hạn. và ngay sau khi đóng hộp thoại thì lệnh này tiếp tục thực hiện thao tác gọi 1 lệnh cad khác viết bằng Lisp.
- Lệnh được viết bằng Lisp đó sẽ lấy toàn bộ các thông số đầu vào từ giá trị của biến ABC được cung cấp ở trên để sử lý.
Bằng cách này ta có thể có 1 chương trình hoàn thiện được kết hợp bởi 2 lệnh viết bằng 2 loại ngôn ngữ khác nhau.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#73 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 05 May 2011 - 06:28 PM

Mình từng viết 1 cái hộp thoại có đến 64key có liên kết và tương tác với nhau. code điều khiển của nó mình mất hơn 1 tuần mới xong, giờ còn mấy cái nữa mà thấy nản quá.
Ý tuởng của mình là như này:
- Sử dụng 1 loại ngôn ngữ nào đó hỗ trợ hộp thoại đầy đủ hơn, linh hoạt hơn và có thể tạo ra ứng dụng trong môi trường cad để tạo ra 1 lệnh cho cad, (không nhất thiết fải có liên kết với lisp, chỉ cần tạo ra được ứng dụng cho Cad)
- lệnh này thực hiện 2 nhiệm vụ: tạo ra hộp thoại cùng với các thao tác điều khiển cho nó. Gán kết quả cho 1 biến nào đó dưới dạng 1 list sau khi đóng hộp thoại. VD: biến ABC = '(integer real string list....) chẳng hạn. và ngay sau khi đóng hộp thoại thì lệnh này tiếp tục thực hiện thao tác gọi 1 lệnh cad khác viết bằng Lisp.
- Lệnh được viết bằng Lisp đó sẽ lấy toàn bộ các thông số đầu vào từ giá trị của biến ABC được cung cấp ở trên để sử lý.
Bằng cách này ta có thể có 1 chương trình hoàn thiện được kết hợp bởi 2 lệnh viết bằng 2 loại ngôn ngữ khác nhau.

Bạn có thể up list lệnh và biến mà bạn dùng lên mình sẽ giúp bạn viết 1 form tương tác.
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#74 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 05 May 2011 - 09:32 PM

Như vậy là ý tuởng của mình là có thể thực hiện đuợc phải không Tu? Cái mình cần chính là điều đó, để mình có thể định hướng được mình cần phải học cái gì để giải quyết công việc của mình. Còn nhờ người khác viết giúp đôi khi gặp nhiều bất tiện như không thể chủ động hoặc mình không thể truyền tải được hết ý tưởng của mình cho người ta hiểu, hoặc đến lúc cần fải chỉnh sửa, nâng cấp cũng khó.
Đây là 1 hộp thoại và toàn bộ code điều khiển mình vừa hoàn thành xong. thằng này có tất cả 68key. kết quả trả về không cố định về định dạng mà tùy thuộc vào ứng xử của người dùng với chương trình. và tất nhiên là mình không thể nhờ ai đó viết hộ những chương trình fức tạp kiểu như này được fải không nào.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#75 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 05 May 2011 - 10:33 PM

Như vậy là ý tuởng của mình là có thể thực hiện đuợc phải không Tu? Cái mình cần chính là điều đó, để mình có thể định hướng được mình cần phải học cái gì để giải quyết công việc của mình. Còn nhờ người khác viết giúp đôi khi gặp nhiều bất tiện như không thể chủ động hoặc mình không thể truyền tải được hết ý tưởng của mình cho người ta hiểu, hoặc đến lúc cần fải chỉnh sửa, nâng cấp cũng khó.
Đây là 1 hộp thoại và toàn bộ code điều khiển mình vừa hoàn thành xong. thằng này có tất cả 68key. kết quả trả về không cố định về định dạng mà tùy thuộc vào ứng xử của người dùng với chương trình. và tất nhiên là mình không thể nhờ ai đó viết hộ những chương trình fức tạp kiểu như này được fải không nào.

Vậy thì bạn download chương trình Visual Studio về đi mình sẽ hướng dẫn bạn cách làm.
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#76 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 May 2011 - 10:51 PM

Nếu em không hiểu nhầm ý bác thì em nghĩ ý tưởng của bác hoàn toàn thực hiện được. Nếu đã có những chương trình thao tác với CAD, load lisp tự động thì không có cớ gì không thể tạo ra 1 biến lưu trữ và gọi lisp nên từ những chương trình đó. Ví dụ như ghi biến kết quả ra Registry, hoặc append luôn dòng setq vào file lisp...Thậm chí trong code chương trình ngoài đó có thể kèm code lisp luôn. . Em cũng thấy có kha khá ví dụ về liên kết giữa VBA với LISP (lấy kết quả từ lisp vào form VBA và ngược lại), mà VBA với Lisp làm được thì..^^
  • 1

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


#77 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 05 May 2011 - 10:52 PM

Cảm ơn PhamNgocTu và Ketxu truớc nhé. mình sẽ dành thời gian nghiên cứu thằng Visual Studio. Có gì khúc mắc rất mong 2 bạn trợ giúp ^_^
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#78 xuandao0708

xuandao0708

    biết lệnh scale

  • Members
  • PipPipPip
  • 140 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 08 May 2011 - 04:13 PM

Mình đã dow trương trình của bạn ketxu về chạy và thấy rất hay, nhưng bên cạnh đó bạn có thể thêm phần chuyển từng đoạn code được không vì đôi khi mình chỉ muốn chuyển 1 số đoạn code thôi. Nếu được bạn có thể thêm chức năng tìm kiếm do những lisp mình sưu tập được mình đều đưa vào 1 lisp tổng hợp nên đôi khi khó khăn trong việc tìm kiếm dòng cần thay đổi code. Trên đây là ý kiến riêng của mình, mong nhận được sự hồi âm của bạn sớm. Thank bạn và mọi người nhiều!
  • 0

#79 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 08 May 2011 - 04:33 PM

Mình đã dow trương trình của bạn ketxu về chạy và thấy rất hay, nhưng bên cạnh đó bạn có thể thêm phần chuyển từng đoạn code được không vì đôi khi mình chỉ muốn chuyển 1 số đoạn code thôi. Nếu được bạn có thể thêm chức năng tìm kiếm do những lisp mình sưu tập được mình đều đưa vào 1 lisp tổng hợp nên đôi khi khó khăn trong việc tìm kiếm dòng cần thay đổi code. Trên đây là ý kiến riêng của mình, mong nhận được sự hồi âm của bạn sớm. Thank bạn và mọi người nhiều!

Cái của Ketu chuyển từng đoạn được mà! Tuy nhiên, đoạn code này do người dùng đánh vào hoặc dán vào, chỉ không thể chuyển từng dòng trong file thôi. Bạn thử dùng cái ở trang #63 xem sao. Nó cho phép chuyển từng dòng trong file.
Chúc bạn thành công!
  • 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.


#80 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 May 2011 - 04:43 PM

Mình đã dow trương trình của bạn ketxu về chạy và thấy rất hay, nhưng bên cạnh đó bạn có thể thêm phần chuyển từng đoạn code được không vì đôi khi mình chỉ muốn chuyển 1 số đoạn code thôi. Nếu được bạn có thể thêm chức năng tìm kiếm do những lisp mình sưu tập được mình đều đưa vào 1 lisp tổng hợp nên đôi khi khó khăn trong việc tìm kiếm dòng cần thay đổi code. Trên đây là ý kiến riêng của mình, mong nhận được sự hồi âm của bạn sớm. Thank bạn và mọi người nhiều!

Ý bạn muốn nói thêm công cụ tìm các dòng nằm giữa " " ? Mình đang phân vân không biết mình có làm được không ^^ Tuy nhiên, sẽ hẹn bạn trong thời gian..k gần, vì hiện tại, mình đang vội làm 1 dự án mini khác :)
  • 1

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