Đến nội dung


Hình ảnh
- - - - -

[Nhờ chỉnh sửa] lisp thống kê thanh dàn.


  • Please log in to reply
4 replies to this topic

#1 TID

TID

    biết pan

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

Đã gửi 12 June 2012 - 01:58 PM

Mình có sử dụng lisp thống kê thanh dàn của 1 bro trên 4rum, nhưng lisp có vấn đề khi thống kê các các thanh có chiều dài chênh lệch nhau nhỏ hơn 1mm, cụ thể đối với file cad của mình, thanh dai 2059.367 được thống kê lặp lại nhiều lần mà số lượng không chính xác. Mọi người giúp sửa lisp dùm, mình cần thống kê chính xác độ dài từng thanh.
thanks.
http://www.cadviet.c..._thanh_xien.dwg
http://www.cadviet.c...33_465_tktd.lsp
  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 June 2012 - 02:03 PM

Mình có sử dụng lisp thống kê thanh dàn của 1 bro trên 4rum, nhưng lisp có vấn đề khi thống kê các các thanh có chiều dài chênh lệch nhau nhỏ hơn 1mm, cụ thể đối với file cad của mình, thanh dai 2059.367 được thống kê lặp lại nhiều lần mà số lượng không chính xác. Mọi người giúp sửa lisp dùm, mình cần thống kê chính xác độ dài từng thanh.
thanks.
http://www.cadviet.c..._thanh_xien.dwg
http://www.cadviet.c...33_465_tktd.lsp

Bạn tìm dòng code dưới đây:
(if (equal L (car dt) 1.0)
Và sửa lại thành:
(if (equal L (car dt) 1E-8)
  • 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 TID

TID

    biết pan

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

Đã gửi 12 June 2012 - 02:15 PM

sau khi sửa như bạn thì thống kê ra như sau:

Thanh dai 2020.402: 4
Thanh dai 2059.367: 76
Thanh dai 2056.613: 72
Thanh dai 2057.987: 72
Thanh dai 2056.613: 72
Thanh dai 2058.907: 72
Thanh dai 2057.987: 72
Thanh dai 2059.367: 140
Thanh dai 2058.907: 72
Thanh dai 2049.846: 68
Thanh dai 2052.533: 68
Thanh dai 2052.533: 64
Thanh dai 2049.846: 68
Thanh dai 2052.533: 64
Thanh dai 2054.792: 68
Thanh dai 2052.533: 68
Thanh dai 2056.613: 64
Thanh dai 2054.792: 68
Thanh dai 2056.613: 64
Thanh dai 2057.987: 64
Thanh dai 2057.987: 64
Thanh dai 2058.907: 64
Thanh dai 2058.907: 64
Thanh dai 2046.744: 64
Thanh dai 2046.744: 60
Thanh dai 2043.244: 64
Thanh dai 2046.744: 60
Thanh dai 2049.846: 60
Thanh dai 2046.744: 64
Thanh dai 2049.846: 60
Thanh dai 2054.792: 60
Thanh dai 2054.792: 60
Thanh dai 2039.361: 60
Thanh dai 2043.244: 60
Thanh dai 2043.244: 56
Thanh dai 2039.361: 60
Thanh dai 2043.244: 56
Thanh dai 2035.114: 56
Thanh dai 2039.361: 104
Thanh dai 2035.114: 56
Thanh dai 2030.524: 52
Thanh dai 2035.114: 96
Thanh dai 2030.524: 52
Thanh dai 2030.524: 88
Thanh dai 2025.612: 40
Thanh dai 2025.612: 40
Thanh dai 2025.612: 32
Thanh dai 2025.612: 32
Thanh dai 2020.402: 28
Thanh dai 2020.402: 24
Thanh dai 2020.402: 40
Thanh dai 2059.367: 72
Những đoạn thanh có chiều dài giống nhau lại không được thống kê chung., vi dụ:
Thanh dai 2020.402: 28
Thanh dai 2020.402: 24
Thanh dai 2020.402: 40
  • 0

#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 June 2012 - 02:28 PM

Thực ra những số lẻ có 3 chữ số thập phân đó là đã làm trong, chứ bản chất nó có > 8 chữ số thập phân, mà chúng khác nhau.
Bạn muốn đến con số 3 thì sửa 1E-8 thành 1E-3
  • 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.


#5 TID

TID

    biết pan

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

Đã gửi 12 June 2012 - 02:29 PM

Mình sửa được rồi, như bạn nói thay dòng
(if (equal L (car dt) 1.0)
thành:
(if (equal L (car dt) 0.001)
Thanks bạn nhiều.
  • 0