Quay text theo góc tùy ý nhé

[tchinh371 9]

Đây, em mới tập tành tìm tòi viết thêm cái líp phục vụ công tác nữa đây. Cái này dùng để quay text theo 1 hướng bất kỳ được tạo bởi 2 điểm (giống như align đối tượng theo 1 đường thằng vậy, mà align không áp dụng đựoc cho text). Hy vọng nó giúp ích cho mọi người!!!!

 

(defun c:tro(/ chon goc ts dem ten ) ;--------------Text rotate -----------------------

(prompt "\nChon doi tuong can quay: ")

(setq chon (ssget))

(if (= t (null chon)) (prompt "Ban chua chon doi tuong nao. Lenh ket thuc.")

(progn

(if (null goc) (setq goc 0))

(prompt "Nhap goc quay doi tuong [Nhap hai diem de xac dinh goc] ")

(princ "<")(princ (angtos goc)) (princ ">: ")

(setq goc (getangle))

(setq ts (sslength chon))

(setq dem 0)

(while (< dem ts)

(progn

(setq ten (entget (ssname chon dem)))

(setq ten (subst (cons 50 goc) (assoc 50 ten) ten ))

(entmod ten)

(setq dem (+ 1 dem))

)

)

)

)

(princ)

)

[amaziing 2]

Thanks!!! Lisp của bạn ứng dụng rất tốt. ^_^

[nataca 554]

Thanks!!! Lisp của bạn ứng dụng rất tốt. ^_^

Lệnh torient trong cad có thể đáp ứng được yêu cầu quay text và nhóm text ( theo toạ độ điểm chèn của text) theo 1 hướng bất kỳ.

[GA MAP 0]

Thank chủ thớt nhiều.