[Yêu Cầu] Nhờ Hoàn Thiện Lisp Đánh Cốt Của Bác Hoành

[hovidu 3]

Hiện nay em đang dùng lisp đánh cốt Cot00_DC của bác Hoành. Em đã tìm trong diễn đàn một số lisp khác nhưng vẫn không được như ý muốn. Giờ em nhờ các bác viết hộ thêm một số lệnh nữa để cho cốt được hoàn thiện hơn.

1. Lisp hiện không hoạt động trên CAD 2016, tức vẫn load được lisp, gõ lệnh Cot00 vẫn được, nhưng khi dùng lệnh DC thì nó hiện lên 1 bảng bắt mình nhập giá trị att vào.
2. Chọn cốt gốc từ một cao độ bất kỳ, không nhất thiết phải là 0.00 nữa
3. Cho phép lựa chọn 2 hay 3 số sau dấu phẩy
4. Cho phép lựa chọn đơn vị bản vẽ, hoặc tỷ lệ vẽ đối với đơn vị m. Ví dụ bản vẽ dùng mm thì tỷ lệ là 1/1000, cm thì là 1/100 (hiện tại lisp đang dùng đơn vị là mm, nhiều bản vẽ dùng cm thì cao độ bị giảm đi 10 lần)
5. Cho phép lựa chọn tỷ lệ bản vẽ. Ví dụ bản vẽ em định in ra có tỷ lệ 1/100 thì cao chữ sẽ là 200 và ký hiệu cốt cũng tự động to ra theo tỷ lệ đã chọn.

Những lựa chọn trên chỉ hiện ra 1 lần khi chọn Cot00, sau này khi dùng lệnh DC sẽ tự động nhận những tham số đã nhập ban đầu

Em xin chân thành cảm ơn.

http://www.cadviet.com/upfiles/5/13214_cot00_dc.rar