Trong Acad có lệnh AA để đo diện tích các hình (Area). Tuy nhiên kết quả là mm2 và chỉ hiện lên thanh lệnh. Nếu đo nhiều diện tích và ghi lên bản vẽ thì rất mất thời gian. Nếu co giãn đối tượng phải đo lại.
Sau nhiều lần thử nghiệm, mình thấy lisp Areas2FieldV1-3.lsp là hợp lý để đo và gán vào bên cạnh hoặc bên trong hình như một trường của hình. Lisp này có ưu điểm:
- Có thể cập nhật lại diện tích khi hình thay đổi bằng lệnh REGEN
- Đo một lúc được một hoặc nhiều hình, số đo là diện tích tổng các hình
- Có thể định dạng lại để tính theo đơn vị là m2, ha, km2, ... hoặc thêm tiền tố (vd: "S="), hậu tố (vd: "m2") vào số đo diện tích.
- Ghi vào bản vẽ luôn, với kiểu text là text hiện hành của bản vẽ, vị trí dòng text tùy ý chỉ định.
Lisp mình đã chỉnh sửa cho dòng text có dạng S=12.345,67m2 tải ở đây:
Lệnh đo: AAA (không phân biệt chữ thường, chữ hoa - tất nhiên)
Cách chỉnh sửa dòng text số đo diện tích theo ý bạn: Tạo một đoạn code chứa thông tin định dạng của số đo diện tích thay vào nội dung file Areas2FieldV1-3.lsp theo trình tự sau:
- Trong giao diện acad vào Insert -> Field... xuất hiện hộp thoại Field
- Trong phần Field Category chọn Object
- Trong mục: Field Names cũng chọn Object
- Trong Object Type bấm vào nút Select object, chọn tùy ý một đường biên cần gán text (MText Field)
- Trong danh sách Property chọn Area
- Phần Format bạn định dạng số đo tùy ý
- Dưới Field expression ta có được mã code (trong dấu ngoặc kép), copy code này thay vào vị trí tương ứng trong file Areas2FieldV1-3.lsp, lưu lại file lsp này. Load vào Acad để sử dụng.
