Em hay phải chỉnh sửa bản vẽ cho chuẩn ISO, hay phải chỉnh font của text style. Em đang cần 1 lisp làm nhiệm vụ như sau. Khi e đánh lệnh và tích vào 1 text thuộc 1 style nào đó. Thì font của style đó được chuyển sang font .VNAVANTH (chế độ regular). Mong các bác biết về lisp giúp đỡ em ạ ! Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Nếu các textstyle kia của ban không đánh theo font TCVN thì khi bạn chuyển Font bạn sẽ bị lỗi.Đã có tool chuyển font chữ.Bạn search là có đó
Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Vâng. Nhưng đây là trường hợp các text được đánh theo font TCVN. Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Gửi bạn,hy vọng đúng ý bạn ;free lisp by cadviet,cd2k44 ;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830 (defun c:FTEXT (/ ent tstyle ) (command "undo" "be") (setq ent (entsel "\n Pick text :")) (setq TSTYLE (cdr (assoc 7 (entget (car ent))))) (command "STYLE" TSTYLE ".vnavanth" "0" "1" "0" "N" "N") (setvar "TEXTSTYLE" Tstyle) (command "undo" "end") ) Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Cảm ơn bác CD2K44 nhé. Lisp chuẩn theo yêu cầu rồi ạ. Nhưng khi e muốn tự tạo sang 1 code khác để đổi sang loại font .vntimeh.shx thì ko được nhỉ ? hì. bác xem giúp em xem lỗi ở chỗ nào nhé : (defun c:FH (/ ent tstyle ) (command "undo" "be") (setq ent (entsel "\n Pick text :")) (setq TSTYLE (cdr (assoc 7 (entget (car ent))))) (command "STYLE" TSTYLE ".vntimeh.shx" "0" "1" "0" "N" "N") (setvar "TEXTSTYLE" Tstyle) (command "undo" "end") ) Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
(defun c:FH (/ ent tstyle ) (command "undo" "be") (setq ent (entsel "\n Pick text :")) (setq TSTYLE (cdr (assoc 7 (entget (car ent))))) (command "STYLE" TSTYLE ".vntimeh.shx" "0" "1" "0" "N" "N") (setvar "TEXTSTYLE" Tstyle) (command "undo" "end") )Bạn sửa (command "STYLE" TSTYLE ".vntimeh.shx" "0" "1" "0" "N" "N") thành (command "STYLE" TSTYLE ".vntimeh" "0" "1" "0" "N" "N") Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
hic. Bác Hà hiểu nhầm rồi. Font .vntimeH.SHX cơ ạ ! Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Thì sửa (command "STYLE" TSTYLE ".vntimeh.shx" "0" "1" "0" "N" "N") thành (command "STYLE" TSTYLE ".vntimeh.shx" "0" "1" "0" "N" "N" "N") Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
hic. Nó mà đơn giản thế thì e đã làm được ạ ? E đổi ngay từ đầu thành như thế nhưng nó ko chạy đc ạ ? hic. Nhưng e đã làm đc rùi. Phải sửa thành (command "STYLE" TSTYLE ""vntimeh.shx,vns.shx"" "0" "1" "0" "N" "N" "N") Thanks bác nhé ! Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
(command "STYLE" TSTYLE ""vntimeh.shx,vns.shx"" "0" "1" "0" "N" "N" "N") Thanks bác nhé !Cả 2 cách trên đều không đúng thì phải, mình đã thử cách này thì ok . ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=53830&pid=167735&st=0entry167735 ;free lisp by cadviet,cd2k44 ;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830 (defun c:FT (/ ent tstyle ) (command "undo" "be") (setq ent (entsel "\n Pick text :")) (setq TSTYLE (cdr (assoc 7 (entget (car ent))))) (command "STYLE" TSTYLE "vntimeh.shx,vns.shx" "0" "1" "0" "N" "N" "N") (setvar "TEXTSTYLE" Tstyle) (command "undo" "end") ) bác nào biết thêm tùy chọn tìm và thay thế toàn bộ font trong 1 file cad thành font .vntimeh.shx thì tốt quá Cảm ơn nhiều ! Chỉnh sửa Tháng 9 10, 2011 theo NvThanh Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=53830&pid=167735&st=0entry167735 ;free lisp by cadviet,cd2k44 ;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830 (defun c:FT (/ ent tstyle ) (command "undo" "be") (setq ent (entsel "\n Pick text :")) (setq TSTYLE (cdr (assoc 7 (entget (car ent))))) (command "STYLE" TSTYLE "vntimeh.shx,vns.shx" "0" "1" "0" "N" "N" "N") (setvar "TEXTSTYLE" Tstyle) (command "undo" "end") ) bác nào biết thêm tùy chọn tìm và thay thế toàn bộ font trong 1 file cad thành font .vntimeh.shx thì tốt quá Cảm ơn nhiều !Hề hề hề, Bạn thử làm thế này xem sao nhé: 1/- Vô hiệu hóa dòng code (setq ent (entsel "\n Pick text :")) bằng cách thêm một vài dấu ; phía trước nó. 2/- Thêm vào dưới dòng code này đoạn code như sau: (setq sst (acet-ss-to-list (ssget "x" (cons 0 "TEXT,MTEXT")))) (foreach ent sst 3/- Thêm một dấu ngoặc đóng hàm foreach vào dưới dòng code: (setvar "TEXTSTYLE" Tstyle) Sau đó load lại lisp và chạy thử xem có được như ý bạn muốn không nhé. Hề hề hề,..... Chúc bạn vui.
Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Nếu bạn còn cần, thì thử cái này xem (defun c:TENLENH (/ text style ename asslst) ;; sua lai ten lenh (setq text (entsel "\nPick a text or Mtext")) (setq style (cdr (assoc 7 (entget (car text))))) (setq ename (tblobjname "style" style)) (setq asslst (entget ename)) (entmod (subst (cons 3 "FONT-MOI") (assoc 3 asslst) asslst)) ;; sua lai font (command ".regen") (princ) ) ; end defun Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
@hanam1210 : nếu lần tới bạn lập topic mới trong box Autolisp về 1 vấn đề ĐÃ CÓ và KHÔNG TUÂN THEO NỘI QUY thì bài viết sẽ được chuyển vào thùng rác, mong bạn thông cảm và rút kinh nghiệm nhé. Have fun Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Chào các bác! Theo em thử thì các lisp trên dùng để thay đổi Textsyle của tất cả các Text có cùng Textstyle với Text mình chọn phải không ạ? Các bác viết dùm em 1 lisp chỉ thay đổi Textstyle của Text mình chọn với ạ! Thank các bác nhiều! Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Theo em thử thì các lisp trên dùng để thay đổi Textsyle của tất cả các Text có cùng Textstyle với Text mình chọn phải không ạ? Các bác viết dùm em 1 lisp chỉ thay đổi Textstyle của Text mình chọn với ạ! Thank các bác nhiều!Chọn text => Ctrl + 1 => Đổi style trong bảng Properties. Ngoài ra cũng phải nói thêm là lisp bạn hỏi chắc chắc đã có Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Nhờ các cao thủ giúp cho lisp chuyển style text sang kiểu Arial. Xin cảm ơn các bác! Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
các bác giúp ké, e cần thay đổi toàn bộ font của dim về cùng một font . thanks các b Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Bạn có thể chỉ giúp mình thay style text thành bold trong lisp được không? hình như là đangở chế độ regular. Thanks Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Nếu bạn còn cần, thì thử cái này xem
Có bác nào mách e sửa chỗ nào cho nhận dang font vni-helve- condense ko ạ, loay hoay mãi chỉnh tùm lum chỗ hỏng được tenlenh.lsp
Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
Có bác nào mách e sửa chỗ nào cho nhận dang font vni-helve- condense ko ạ, loay hoay mãi chỉnh tùm lum chỗ hỏng được tenlenh.lspSửa chỗ "FONT-MOI" thành "VHELVCN.TTF" nhé. Chia sẻ bài đăng nàyLiên kết tới bài đăngChia sẻ trên các trang web khác
MÌnh đang nhận bản vẽ từ địa chính trong đó có rất nhiều style có tên bắt đầu bằng dng và có font shx và máy mình ko đủ file shx nên có nhu cầu đổi font của các style này thành .vni. MÌnh làm cái lisp lọc các style có tên bắt đầu bằng dng và đổi font. Đoạn lọc danh sách style thì được rồi riêng đoạn đổi font không chạy được. các bác khám giúp! |