Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
11 replies to this topic

#1 ntduy1988

ntduy1988

    biết vẽ arc

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

Đã gửi 07 April 2011 - 03:49 PM

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.m...hg0b1ja/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.
  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 07 April 2011 - 04:29 PM

Link download: http://download283.m...d68mqb7/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
  • 0

#3 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 07 April 2011 - 04:32 PM

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.fileforma...char/search.htm
  • 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


#4 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 07 April 2011 - 05:05 PM

.....
@bác Tuệ :
Gửi bác link này :
http://www.fileforma...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
  • 0

#5 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 07 April 2011 - 06:02 PM

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"
  • 1

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


#6 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 07 April 2011 - 06:14 PM

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ế ^^
  • 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


#7 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 07 April 2011 - 09:10 PM

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.
  • 0

#8 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 07 April 2011 - 11:35 PM

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ứ
  • 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 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 07 April 2011 - 11:43 PM

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.
  • 0

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


#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 07 April 2011 - 11:47 PM

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:
  • 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 ntduy1988

ntduy1988

    biết vẽ arc

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

Đã gửi 17 April 2011 - 10:59 PM

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...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)
  • 0

#12 leo9693

leo9693

    biết zoom

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

Đã gửi 07 December 2014 - 09:16 PM

ai còn lisp này hoặc  tương tư,tính được diện tích hình có lỗ thì cho em xin với. :(


  • 0