Nhờ các Anh sửa dùng Lisp cắt đường thẳng tại điểm giao nhau (AutoCAD 2020)

[Nhờ các Anh sửa dùng Lisp cắt đường thẳng tại điểm giao nhau (AutoCAD 2020)]

Trước giờ mình vẫn dùng lisp cắt đường thẳng tại điểm giao nhau với phiên bản CAD cũ, giờ với CAD 2020 thì lisp không chạy được, mong các anh xem và sửa giúp. Cảm ơn các Anh nhiều ! (xem lisp đính kèm)

Cat_Line_Tai_Diem_Giao_Nhau (BBJ).lsp

[Mtext Bị Lỗi, Mong Các Anh Giúp Đỡ]

 

và đây là hình ảnh, bị nhiều lắm, chỉnh tay thì rất lâu.

[Mtext Bị Lỗi, Mong Các Anh Giúp Đỡ]

Em đang gặp vấn đề là 1 file bản vẽ xây dựng người ta mail cho em, em mở lên gặp trường hợp là hầu như toàn bộ mtext trên bản vẽ bị rớt xuống nhiều dòng, mình kéo giãn nó ra thì nó trở lên bình thường 1 dòng. Em mong được các anh trong diễn đàn giúp đỡ, bằng cách nhanh nhất để đưa toàn bộ mtext về trạng thái bình thường chứ mà kéo từng mtext thì rất lâu ạ. Có thể tạo lisp để sửa lỗi này được không ạ?