Các Anh, chị ơi chỉ cho e chuyển từ chữ thường sang chữ hoa trong toàn bộ bản vẽ được không? vi e sử dụng 1 cai lisp nhưng sau khi sử dụng nó đổi toàn bộ về chữ thường e muốn đổi về IN HOA lại. e đang làm đồ án tốt nghiệp rất cần. Cảm ơn Anh chị nhìu nhé!
Chào bạn free1612,
Do cái lisp bạn sử dụng mà sinh ra cái bệnh trên, vậy bạn cũng có thể dùng lisp để chữa cái bệnh đó. Trong lisp hàm dùng để chuyển đổi các chữ cái thành dạng chữ in hoa là (strcase chuỗi ký tự ) còn hàm chuyển đổi các chữ cái thành dạng chữ thường là (strcase chuỗi ký tự T)
Ở đây strcase là tên hàm chuyển đổi, chuỗi ký tự là biến chuỗi mà bạn cần đổi, T là giá trị logic true.
Vì thế có hai cách làm để bạn sửa lại cái lisp của bạn.
1/- Hãy mở lisp bằng notepad và tìm tới các dòng lệnh có chứa hàm (strcase .... ) này để sửa theo ý mình, nếu như bạn tự tin về lisp.
2/- Chép đoạn code sau và bổ sung nó vào trước dấu ) đóng cuối cùng của cái lisp bạn đang dùng.
(setq ss (ssget (list (cons 0 "TEXT")))n (sslength ss)i 0)(while (< i n)(setq li (entget (ssname ss i))txt (strcase (cdr (assoc 1 li)))li (subst (cons 1 txt) (assoc 1 li) li)i (1+ i))(entmod li))
Chú ý: khi chạy lisp đã bổ sung , bạn vẫn thao tác như khi chạy lisp cũ, chỉ có lúc cuối cùng lisp sẽ dừng lại để bạn chọn các đối tượng text cần chuyển về chữ in hoa, bạn có thể sử dụng các phương pháp chọn lựa của CAD như pick chọn hay dùng cửa sổ chọn tùy ý, sau khi chọn xong nhấn enter lisp sẽ hoàn thành nốt phần việc của nó.
Chúc bạn vui.
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.