{Nhờ chỉnh sửa} Lisp tính diện tích

[{Nhờ chỉnh sửa} Lisp tính diện tích]

Cảm ơn các bác, em vừa thử cái lisp mà bác Ketxu đã chỉnh sửa, quá trình như sau: ss- chọn các obj - chọn text ghi kết quả - kết quả chỉ hiển thị với các obj hoặc pline khép kín còn với các line không được.

 

Thực ra với công việc của em thì chủ yếu sử dụng pick điểm để đo diện tích thôi. Các lisp "do dien tich và ghi ra so" em đã gửi đã thực hiện khá chính xác việc đó (ss- pick vùng cần tính diện tích (vùng bao kín bởi các line, pline hoặc object khác - trừ hatch) - lisp gạch chéo (hatch) các vùng đó để đánh dấu - chèn vào text sẵn có). Nhưng có những bất cập ở 3 điều 1,2,3 mà em nêu ở bài đầu tiên. Bác Doan Van Ha, bác Ketxu và các cao nhân khác xem lại giúp em với (tạm bỏ yêu cầu số 4 đi ạ).

 

Hi vọng qua lần này (hoặc vài lần nhờ vả trên tư thế học hỏi khác ^^) em sẽ khá hơn về lisp và có những đóng góp giúp ích cho forum chứ không chỉ góp bài xin xỏ.

[{Nhờ chỉnh sửa} Lisp tính diện tích]

Dạ cảm ơn bác Doan Van Ha đã đi ngang và cho một đường like (hay plike không biết). Bác chỉnh quá chuẩn, em đã bổ sung 1 file TN. Mong các bác giúp đỡ.

[{Nhờ chỉnh sửa} Lisp tính diện tích]

Em chào các bác, hiện em mới đi làm bên thiết kế giao thông. Em có cái lisp tính diện tích trắc ngang để thay vào số trên bản vẽ thiết kế đường mà công ty vẫn dùng, đáng tiếc là nó còn nhiều cái bất cập. Em đã search khá nhiều nhưng chưa thấy lisp nào được như mong muốn và cũng chưa thể tự sửa cho chính xác được. Vì thế rất mong bác nào cao tay đi ngang sửa giúp em một tý (/vài tý ^^). Cụ thể như sau:

 

1. Đặt cố định tỷ lệ 1000 và số lẻ kích thước là 2, để không phải ấn quá nhiều lần khi đặt lệnh.

 

2. Thêm giúp em cái khôi phục chế độ bắt điểm ban đầu khi gặp lỗi (hàm bẫy lỗi - cụ thể là lỗi ấn esc sau khi chọn vùng cần tính) giống như topic sau (hic, em thêm mãi không được)

http://www.cadviet.c...?showtopic=4049

 

3 Thiết lập việc chọn diện tích sao cho nếu chọn trùng sẽ báo lỗi hoặc không báo nhưng sẽ không nhận vùng diện tích trùng nhau (cái này khá quan trọng vì nếu không cẩn thận sẽ đo nhầm diện tích)

 

4. Cũng cái lisp ấy các bác có thể sửa thành 1 lisp khác, cải tiến 1 tý. Đó là chuyển việc chọn diện tích từ pick vào vùng chọn thành pick vào đường bao không ạ, giống như hatch và bo đều có select object ấy. Hoặc kết hợp song song được pick đường bao và pick điểm được thì quá xuất sắc, sẽ tối ưu được việc chọn vùng cần tính lên gấp bội

 

Giải quyết được hết 4 điều trên thì cái lisp này quá ổn. Mong các bác cao tay nhiệt tình giúp đỡ. Nếu có bị trùng với topic nào nhờ các mod cho em cái link rồi hãy xóa nhé.

 

Em xin chân thành cảm ơn và chúc diễn đàn ngày các phát triển!

 

Lisp cần chỉnh sửa:

http://www.cadviet.c...h_va_ghi_so.lsp

 

 

File trắc ngang ví dụ:

http://www.mediafire...pik2b4aeebez0g5 (không hiểu sao không up được file này lên cadviet)