Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
ntduy1988

Lisp tính diện tích hình phức tạp!

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

ntduy1988    9

Lisp này cho phép tính diện tích của hình bị khoét các lỗ ở bên trong( xem hình ví dụ đi kèm).

Link download: http://download407.mediafire.com/21mfmjr6qn7g/tt7dic3zhg0b1ja/TDT.rar

Lệnh: TDT

- Kích chọn một điểm(pickpoint)trong vùng kín cần tính diện tích

- Chờ trong giây lát

- Kết quả Diện tích = ... Đơn vị

- Copy kết quả tại dòng command

Đã sửa lỗi, có thể chạy trên cad2004.

  • Vote tăng 1
  • Vote giảm 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
Tue_NV    3.841

Link download: http://download283.mediafire.com/ddcsuus9npvg/nd354bp3d68mqb7/TDT.rar

Lệnh: TDT

- Chọn một điểm trong vùng kín cần tính diện tích

- Kết quả Diện tích = ... Đơn vị

- Copy kết quả tại dòng command

Cảm ơn bạn đã chia sẻ.

Có thể cho mình hỏi là bạn sử dụng Font chữ gì mà đánh ra được Tiếng Việt hay thế?

Có thể sử dụng Font chữ này cho dialog (hộp thoại) được không?

(alert (strcat "Nguy\U+1EC5n Ti\U+1EBFn Duy 48N1- Ð\U+1EA1i h\U+1ECDc Th\U+1EE7y L\U+1EE3i" "\n\n Ch\U+1ECDn ði\U+1EC3m trong vùng kín( pickpoint)"))

 

Mong sớm hồi âm. Cảm ơn bạn

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
ketxu    2.649

Cám ơn bạn đã chia sẻ.Mình chạy có ra massprop nhưng vẫn báo lỗi unknown command

P/S : bạn nên loại bỏ layer boundary sau khi kết thúc lisp. Hơn nữa nếu ghi ra file rồi lại copy trong F2 là hok cần thiết, bạn nên chọn 1 trong 2 cách đó ^^

@bác Tuệ :

Gửi bác link này :

http://www.fileformat.info/info/unicode/char/search.htm

  • Vote tăng 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
Tue_NV    3.841

.....

@bác Tuệ :

Gửi bác link này :

http://www.fileformat.info/info/unicode/char/search.htm

Click Thanks gấp gấp thôi. Tue_NV đã tìm ra rồi.

Cảm ơn Ketxu nhiều.

Mình sẽ thử áp dụng cái này qua Dialog xem thế nào.

Một lần nữa, cảm ơn bạn

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
Thaistreetz    515

Click Thanks gấp gấp thôi. Tue_NV đã tìm ra rồi.

Cảm ơn Ketxu nhiều.

Mình sẽ thử áp dụng cái này qua Dialog xem thế nào.

Một lần nữa, cảm ơn bạn

Sax. cái này bác Hoành làm từ hồi topic "viết lisp theo yêu cầu" part1. có lần em cũng đã nói trong topic "viết lisp theo yêu cầu" part2

Chả fải đâu xa. cần tra thì có sẵn công cụ offline của Window đó bác: Run -> gõ "Charmap"

  • Vote tăng 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
ketxu    2.649

Công cụ charmap Alt + ...numpad khá tiện lợi, hiện nay 1 số bản ghost winxp chế đã "lược" luôn em này vì ít người dùng. Trên mạng tất nhiên còn rất nhiều cái thay thế ^^

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
Tue_NV    3.841

Sax. cái này bác Hoành làm từ hồi topic "viết lisp theo yêu cầu" part1. có lần em cũng đã nói trong topic "viết lisp theo yêu cầu" part2

Chả fải đâu xa. cần tra thì có sẵn công cụ offline của Window đó bác: Run -> gõ "Charmap"

Cảm ơn bạn. Mình cũng hay sử dụng công cụ Character map mà chưa để ý tới cái này.

Nay cái DCL trở nên có đường nét hơn rồi.

Cảm ơn các bạn.

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
Doan Van Ha    2.676

Cảm ơn bạn đã chia sẻ.

Có thể cho mình hỏi là bạn sử dụng Font chữ gì mà đánh ra được Tiếng Việt hay thế?

Có thể sử dụng Font chữ này cho dialog (hộp thoại) được không?

(alert (strcat "Nguy\U+1EC5n Ti\U+1EBFn Duy 48N1- Ð\U+1EA1i h\U+1ECDc Th\U+1EE7y L\U+1EE3i" "\n\n Ch\U+1ECDn ði\U+1EC3m trong vùng kín( pickpoint)"))

 

Mong sớm hồi âm. Cảm ơn bạn

Sao tôi đụng vô là nó báo lỗi, nó còn ra tiếng... Campuhia nữa mới tứ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
Thaistreetz    515

Sao tôi đụng vô là nó báo lỗi, nó còn ra tiếng... Campuhia nữa mới tức chứ

Vì bạn đang sài cad cũ không hỗ trợ unicode. từ cad2007 (hình như thế, mình dung cad2010 nên không chắc lắm) trở lên autodesk mới hỗ trợ unicode cho giao diện hộp thoạ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
Doan Van Ha    2.676

Vì bạn đang sài cad cũ không hỗ trợ unicode. từ cad2007 (hình như thế, mình dung cad2010 nên không chắc lắm) trở lên autodesk mới hỗ trợ unicode cho giao diện hộp thoại.

Chắc thế. Đang Acad 2004. Thanks Bác. :blush:

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
ntduy1988    9

Cảm ơn bạn đã chia sẻ.

Có thể cho mình hỏi là bạn sử dụng Font chữ gì mà đánh ra được Tiếng Việt hay thế?

Có thể sử dụng Font chữ này cho dialog (hộp thoại) được không?

(alert (strcat "Nguy\U+1EC5n Ti\U+1EBFn Duy 48N1- Ð\U+1EA1i h\U+1ECDc Th\U+1EE7y L\U+1EE3i" "\n\n Ch\U+1ECDn ði\U+1EC3m trong vùng kín( pickpoint)"))

 

Mong sớm hồi âm. Cảm ơn bạn

*) Để viết được tiếng Việt mình làm như sau:

- Mở Cad viết một text với nội dung là dòng chữ bạn muốn chuyển đổi, sử dụng font unicode

- Apload lisp sau: http://www.mediafire.com/?2wmjmiy4e5c

- Gõ lệnh KTD

- Chọn text vừa tạo ở trên

- Chọn nơi lưu kết quả

- Trên màn hình sẽ xuất hiện nội dung file text kết quả

- Ở file kết quả đó bạn tìm ô có nội dung như sau (1.

- Đoạn code sau dấu . và trước dấu ) chính là đoạn code bạn cần.

Đây là file kết quả ví dụ, trong đó có đoạn (1 . Nguy\U+1EC5n Ti\U+1EBFn duy) thì Nguy\U+1EC5n Ti\U+1EBFn duy chính là đoạn code tiếng Việt, khi đưa vào hộp thoại sẽ thành: Nguyễn Tiến duy.

Link file kết quả: http://www.mediafire.com/?gmcsg46nc8ao3ng

 

*) Bạn có thể viết chữ kiểu như trên trong hộp thoại DCL được, với điều kiện là Cad hỗ trợ font Unicode( hình như từ cad 2007 trở lên)

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


×