Chuyển đến nội dung
Diễn đàn CADViet
SoftvnBin

[Yêu cầu] Nhờ các bạn viết giúp lisp xếp Text theo góc

Các bài được khuyến nghị

Mình đang có cần các bạn giúp lisp sắp xếp Text theo góc được chọn.

Cụ thể như trong file mình đã ghi rõ như sau:

 

* Thực hiện:

- Gõ lệnh thực hiện Lisp

- Nhập khoảng cách (ở đây = 2) biến số này sẽ nhớ trong 1 phiên làm việc

- Selsect thứ tự lần lượt text, dùng thủ công chọn được lần lượt là 1z, 2z, 3z, 4z (Mục đích lấy Layer để làm tiếp) - Số text <=4 - biến này sẽ nhớ trong 1 phiên làm việc

- Select Text và các đối tượng giao nhau (đối tượng giao nhau là Line hoặc Pline và chỉ giao nhau tại 1 điểm duy nhất)

- Xếp các text vào 4 phía của nút giao với thứ tự lần lượt là:

            1Z: Phía trên bên trái

            2Z: Phía trên bên phải

            3Z: Phía dưới bên trái

            4Z: Phía dưới bên phải

Trường hợp nếu hình bị nghiêng thì xác định phía bên trái như sau:

- Phía trái có chứa điểm đầu của Line (hoặc Pline) và có chiều dài lớn hơn cạnh còn lại

- Phía trên là phía có chứa điểm cuối của lien (hoặc Pline) mà có chiều dài ngắn hơn cạnh còn lại

 

https://www.mediafire.com/file/si98lhsg9rft77g/Lisp_Cad_%28Nho_chinh_sua%29.dwg/file

Trên đây là link file ạ

Cảm ơn nhiều các bạn trước ạ

Chỉnh sửa theo SoftvnBin
Yêu cầu rõ ràng hơn

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×