Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
hugo007

[Cần giúp chỉnh sửa] giùm e đoạn lisp đổi font hàng loạt

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

Đây là đoạn lisp do bác ketxu viết,có thể đổi tên font tất cả các kiểu trong text style,có thể đổi luôn chiều cao,bề rộng,góc xoay nếu không nhập enter luôn thì những cái này giữ nguyên.Nhưng có 1 bất tiện là nó tự đổi kiểu trong FONT STYLE thí dụ như có kiểu style name trong đó có FONT STYLE là BOLD thì nó đổi thành REGULAR,nhờ các bác sửa sao cho FONT STYLE vẫn giữ nguyên như mặc định ban đầu.Chân thành cảm ơn trước.

(defun C:FC (/ FontName tH tW tO)
(defun nhap (x) (if (= x nil)(setq x "")) x)
(command "undo" "be")
(setq oCmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
 (setq tbl (tblnext "STYLE" T)
    FontName (getstring "\nT\U+00EAn Font :")
    tH  (getreal "\nChi\U+1EC1u cao Text :")
	tW (getreal "\nWidth Factor :")
	tO (getangle "\nG\U+00F3c :")
)
 (while tbl
(command "-style"
	 (cdr (assoc 2 tbl))
	 (nhap FontName)
	 (nhap tH)
	 (nhap tW)
	 (nhap tO)
	 "N"
	 "N"
	 "N"
)
(setq tbl (tblnext "STYLE"))
 )
 (setvar "cmdecho" oCmd)
 (command "undo" "en")
 (princ)
 )

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

Ồ, mình đi mấy ngày, giờ về mới biết bạn có yêu cầu kia. Vấn đề của bạn cũng thuộc kiểu "tế nhị", vì không chắc là font bạn chuyển tới nó có setting Bold không :) Nhất là mấy font shx ^^

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

Không bạn ah,thí dụ mình có 5 loại TEXT STYLE thì trong 5 loại đó có 1 loại có FONT NAME là ARIAL và FONT STYLE là BOLD nên khi dùng lisp chuyển tất cả về FONT NAME là VNI-helve-condense thì nó chuyển về REGULAR,mình cần khi chuyển tất cả về VNI-helve-condense thì nó giữ nguyên là Bold như ban đầu.Mình không dùng font SHX.Mong bác giúp giùm.Chân thành cảm ơn trước.

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

Oh, mình không sử dụng được method setfont vì mặc dù sau khi set cho 1 Style thuộc tính Bold, giá trị đã chuyển về True nhưng CAD lại không cập nhật, nên, có lẽ đành tìm ý tưởng khác thôi ^^

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

Oh, mình không sử dụng được method setfont vì mặc dù sau khi set cho 1 Style thuộc tính Bold, giá trị đã chuyển về True nhưng CAD lại không cập nhật, nên, có lẽ đành tìm ý tưởng khác thôi ^^

Em sẽ đợi bác.

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

Đăng nhập để thực hiện theo  

×