diện tích Lisp tính chiều dài, diện tích hàng loạt

[Duong Nhat Duy 444]

18 giờ trước, tien2005 đã nói:

@Duong Nhat Duy

thay dòng lệnh trong DT2: (command "-HATCH" "P" "S") bằng 2 dòng sau:

- (setvar "hpname" "SOLID,N") để cài đặt solid normal

- (command "-HATCH" "A" "I" "Y" "") để chọn island detection

thanks bạn nhé hehe

[lanvientkh 13]

Lisp của bạn hay quá, mình chỉ hay dùng về tính chiều dài không tính diện tích vậy làm sao bỏ bớt đi được không bạn, cảm ơn.

[Duong Nhat Duy 444]

12 giờ trước, lanvientkh đã nói:

Lisp của bạn hay quá, mình chỉ hay dùng về tính chiều dài không tính diện tích vậy làm sao bỏ bớt đi được không bạn, cảm ơn.

Được nhé bạn, bạn ko bấm các lệnh DT1234 là được !

[nhjngj 4]

Quote

Bạn cho mình hỏi khi mình dùng CD1, CD2, CD3 thì text đều không nằm phía trên đường pline mà lại bị như hình nhỉ? Cảm ơn bạn.

[Nguyễn Hà Huy 45]

9 giờ trước, nhjngj đã nói:

Bạn cho mình hỏi khi mình dùng CD1, CD2, CD3 thì text đều không nằm phía trên đường pline mà lại bị như hình nhỉ? Cảm ơn bạn.

kaka, lisp này lúc đầu viết để làm quy hoạch hạ tầng, b muốn làm theo ý bạn để áp dụng vào công việc thì trong cái lệnh TL ấy có số phone của tác giả, b liên hệ để sửa theo ý muốn. với dùng thêm 1 lisp xoay text theo hướng pline thì có làm sao

[thewind0910 11]

Tuyệt

[nhjngj 4]

29 phút trước, Nguyễn Hà Huy đã nói:

kaka, lisp này lúc đầu viết để làm quy hoạch hạ tầng, b muốn làm theo ý bạn để áp dụng vào công việc thì trong cái lệnh TL ấy có số phone của tác giả, b liên hệ để sửa theo ý muốn. với dùng thêm 1 lisp xoay text theo hướng pline thì có làm sao

Mình cũng đang dùng thêm 1 lisp xoay text theo pline, tuy nhiên khối lượng xoay nhiều quá. Nên muốn hỏi xem có cách nào đỡ phải xoay k. :D

[Duong Nhat Duy 444]

11 giờ trước, nhjngj đã nói:

Bạn cho mình hỏi khi mình dùng CD1, CD2, CD3 thì text đều không nằm phía trên đường pline mà lại bị như hình nhỉ? Cảm ơn bạn.

Mình đã sửa lại rồi, bạn down lại ở đầu topic nhé !

[Trinh Tuan 0]

Các bác ơi link down không còn khả dụng, bác cho e xin lại lisp với ạ. E cảm ơn bác nhiều.

[Duong Nhat Duy 444]

45 phút trước, Trinh Tuan đã nói:

Các bác ơi link down không còn khả dụng, bác cho e xin lại lisp với ạ. E cảm ơn bác nhiều.

mình đã up lên gg drive rồi nhé, bạn lên đầu topic mà lấy link

[kninja 1]

Cảm ơn bạn nhé, cho mình hỏi giờ mình muốn lấy diện tích bằng lệnh (DT1) sau dấu phẩy 3 chữ số thì điều chỉnh như thế nào ạ! 

[faker1907 9]

11 phút trước, kninja đã nói:

Cảm ơn bạn nhé, cho mình hỏi giờ mình muốn lấy diện tích bằng lệnh (DT1) sau dấu phẩy 3 chữ số thì điều chỉnh như thế nào ạ! 

bạn đọc kỹ ở trang 1 ấy. có cái dòng chỉnh số thập phân. sửa số 2 thành số 3 là được

[Duong Nhat Duy 444]

14 phút trước, kninja đã nói:

Cảm ơn bạn nhé, cho mình hỏi giờ mình muốn lấy diện tích bằng lệnh (DT1) sau dấu phẩy 3 chữ số thì điều chỉnh như thế nào ạ! 

1 là bạn khai báo phần thập phân trong lệnh TL, 2 là bạn sửa trực tiếp code như hướng dẫn (sửa trực tiếp thì load lên nó mặc định là 3 số theo ý bạn)

[Duong Nhat Duy 444]

Big update ngày 10/06/24: Thêm tính năng tạo Field (text tự động cập nhật khi đối tượng thay đổi).

Chi tiết xem trên đầu topic.

[enix 3]

Vào lúc 10/6/2024 tại 14:57, Duong Nhat Duy đã nói:

Big update ngày 10/06/24: Thêm tính năng tạo Field (text tự động cập nhật khi đối tượng thay đổi).

Chi tiết xem trên đầu topic.

 

Thêm tùy chọn hiển thị thêm đơn vị phía sau text kết quả đi bác. Thiết lập lâu rồi khi xuất ra không nhớ mình xuất ra đơn vị m hay mm phải vào tl coi lại.

[Duong Nhat Duy 444]

23 phút trước, enix đã nói:

Thêm tùy chọn hiển thị thêm đơn vị phía sau text kết quả đi bác. Thiết lập lâu rồi khi xuất ra không nhớ mình xuất ra đơn vị m hay mm phải vào tl coi lại.

Bạn có thể điền hậu tố là (mm) trong phần thiết lập mà !

[quanghuy0812 0]

Lisp này mình bổ sung thêm cái tính trung bình chiều dài được không bác?

[Duong Nhat Duy 444]

20 phút trước, quanghuy0812 đã nói:

Lisp này mình bổ sung thêm cái tính trung bình chiều dài được không bác?

Bạn dùng lệnh CD1 xuất chiều dài từng đối tượng ra rồi thêm 1 lệnh tính TBC từ text nhé, lisp về + - * /, tính tbc thì trên forum rất nhiều b tham khảo nhé !

[knownhok 0]

Mấy bác cho e hỏi với ạ. E dùng lệnh DT3 thì báo lỗi 0.00 thì xử lí ntn ạ. Em cám ơn

[Duong Nhat Duy 444]

2 giờ trước, knownhok đã nói:

Mấy bác cho e hỏi với ạ. E dùng lệnh DT3 thì báo lỗi 0.00 thì xử lí ntn ạ. Em cám ơn

Thì bạn gửi bản cad lên đây !

[knownhok 0]

1 giờ} trướ}c, Duong Nhat Duy đã nói:

Thì bạn gửi bản cad lên đây !

e gửi bác ạ. E đang dùng cad 2022 lúc trước e chưa cài lại máy thì e xài DT3 vẫn bt ạ giờ ms cài lại thì k còn pick ra diện tích hàng loạt như trước nữa ạ. Nhờ bác xem giúp e với ạ

BD HOAN CONG.dwg

[Duong Nhat Duy 444]

9 giờ trước, knownhok đã nói:

e gửi bác ạ. E đang dùng cad 2022 lúc trước e chưa cài lại máy thì e xài DT3 vẫn bt ạ giờ ms cài lại thì k còn pick ra diện tích hàng loạt như trước nữa ạ. Nhờ bác xem giúp e với ạ

BD HOAN CONG.dwg

Pick cái gì, đối tượng gì ?

[conghiep16 0]

Vào lúc 20/12/2022 tại 16:30, Duong Nhat Duy đã nói:

Gửi đến các bạn 1 lisp tính chiều dài, diện tích all-in-one, đơn giản, dễ dùng, và có thể tính được theo nhiều yêu cầu đề bài.

 

Công dụng:
- Tính chiều dài, diện tích nhiều đối tượng (Line, Pline, Spline, Arc, Circle, Hatch, Region, ...), có thể tính riêng lẻ hoặc cộng gộp.
- Kết quả có thể xuất ra text mới, block att, hoặc cập nhật vào text cũ, block att cũ.

- Kết quả có thể ghi dưới dạng Field, tự động cập nhật khi đối tượng thay đổi.

Cách dùng:
- Load lisp, nhập lệnh TL để thiếp lập các thông số như đơn vị, cao chữ,… Chỉ cần khai báo 1 lần (có thể bỏ qua lệnh này).
- Các lệnh tính chiều dài, diện tích bao gồm các lệnh riêng biệt như sau:

 

 

CD1: Tính chiều dài các đối tượng riêng lẻ

 

CD2: Tính TỔNG chiều dài các đối tượng

 

CD3: Tính chiều dài 1 đoạn bất kỳ nằm trên đối tượng

DT1: Tính diện tích 1 vùng (pick điểm, bấm đâu tính đó)

DT2: Tính TỔNG diện tích các vùng chọn bằng các pick điểm (text kết quả có thể tạo mới bằng cách bấm vào khoảng trắng hoặc sửa text, att bằng cách bấm chọn 1 text, att đã có sẵn trên bản vẽ)

DT3: Tính diện tích các đối tượng riêng lẻ, có thể chọn được nhiều đối tượng cùng lúc, nhiều kiểu đối tượng ví dụ: Pline, Spline, Hatch, Region,…

DT4: Tính TỔNG diện tích nhiều đối tượng (text kết quả có thể tạo mới bằng cách bấm vào khoảng trắng hoặc sửa text, att bằng cách bấm chọn 1 text, att đã có sẵn trên bản vẽ)

 

- Bonus: kết quả xuất ra có thể là Block do người dùng định nghĩa (ví dụ Block tem đất), khai báo trong lệnh TL

 

- Bonus: kết quả xuất ra có thể là Field (giá trị tự động cập nhật khi đối tượng thay đổi), khai báo trong lệnh TL

 

Một số tính năng khác:

- Có thể thay đổi cài đặt mặc định mỗi khi dùng lisp bằng cách sửa trực tiếp file lisp (bằng Notepad hoặc các phần mềm tương tự), chỉ áp dụng với bản "Tinh chieu dai, dien tich v1.01" trở lên

Cập nhật:

- v1.00 (01/11/2023): Phiên bản đầu tiên

- v1.01 (01/02/2024): Người dùng có thể sửa file lisp theo cài đặt mặc định mong muốn + Sửa lỗi lệnh DT2 trên CAD2007

- v1.02 (13/06/2024): Thêm tính năng tạo Field (chiều dài, diện tích tự cập nhật khi đối tượng thay đổi)

 

Link download:

https://drive.google.com/drive/folders/1i9s1v8KgnD4weWO6ZpPOB1IOqqgxbEPd

Chúc các bạn thành công :)))

Mình tha thiết mong bạn có thể edit lại lệnh sử dụng cho macOS.

Mình có thể khẳng định líp của bạn là lísp tính diện tích, chiều dài tốt nhất mình từng thử.

Mình rất mong bạn có thể hỗ trợ mình phần này. Please.

[Duong Nhat Duy 444]

10 giờ trước, conghiep16 đã nói:

Mình tha thiết mong bạn có thể edit lại lệnh sử dụng cho macOS.

Mình có thể khẳng định líp của bạn là lísp tính diện tích, chiều dài tốt nhất mình từng thử.

Mình rất mong bạn có thể hỗ trợ mình phần này. Please.

Rất cám ơn bạn vì lời bình luận :))), nhưng mình còn chưa bao giờ test thử lisp trên macOS nên chịu bạn nhé.

Lisp mã nguồn mở, bạn có thể nhờ các cao nhân trên forum chuyển nhé.

[NTHAHT 112]

Theo mình biết thì Autocad for MAC, các hàm VL* (ActiveX) không được hỗ trợ và hạn chế 1 số hàm DCL. Do đó từ 1 lisp tốt sau khi chỉnh sửa để chạy được cho CAD-MAC có thể thành 1 lisp không tốt. Vì vậy ít người làm điều này. KKK...