Lisp dãn cách các text đè lên nhau trên trắc ngang

Tác giả: bác phamthanhbinh – Moderator của diễn đàn cadviet
Download: http://www.mediafire...nu6z69jhb0jfudy
Ưu điểm:
Khi thiết kế trắc ngang có border (bó vỉa), do khoảng cách ngắn nên các text cao độ do nova xuất ra trên trắc ngang sẽ đè lên nhau như thế này:

Và để người thi công có thể đọc được bản vẽ thì bạn phải move từng text dãn ra, từng cái một cho hàng trăm trắc ngang. Và tôi là người đã nếm trải cực hình này.
Nhưng do bản tính lười biếng ngấm trong máu, tôi đã nhờ bác phamthanhbinh viết cho cái lisp này. Thật là như cá gặp nước, như hổ về rừng.
Cách dùng:
- Gõ “dk”
- Lisp sẽ hỏi: “Nhap khoang cach giua cac text:” là khoảng cách giữa các text
- Lisp sẽ hỏi tiếp: “Text co dinh nam ben trai hay phai <T or P>:” T tức là text nằm phía bên trái nhất (có tọa độ X nhỏ nhất) đứng yên, text còn lại sẽ dãn sang phải, P thì ngược lại.
- Chọn nhóm text cần sắp xếp -> Enter
- Chọn nhóm text cần sắp xếp tiếp theo -> Enter
…. Muốn kết thúc thì nhấn enter

Các bác download về dùng sẽ thấy, không còn gì đơn giản mà tuyệt vời hơn thế.
Đơn giản là hoàn hảo.
Khuyết điểm:
- Chỉ dùng cho single text, không dùng cho M text
- Chỉ dùng cho text xuất ra từ phần mềm Nova và VNroad, các loại text khác thì không biết thế nào.