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

lisp thay đổi cỡ chữ hàng loạt trong bản vẽ

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

Sao bạn không dùng quick select hoặc filter rồi ấn Ctrl + 1 để thay đổi nhỉ :s_big:

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
Sao bạn không dùng quick select hoặc filter rồi ấn Ctrl + 1 để thay đổi nhỉ :s_big:

 

Mình chưa sử dụng cách này bao giờ quick select ấn lệnh gì, mình gõ filter sao không hiểu nhỉ???

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
Chào cả nhà Cadviet!

trong cad co lệnh nào mà thay đổi các cỡ chữ một lúc ko? nếu ko có lisp nào như vạy ko ?

Bạn sử dụng lệnh Scaletext để làm chuyện này

Bạn tham khảo ở đây :http://www.cadviet.com/forum/index.php?sho...amp;#entry51051

 

quick select ấn lệnh gì?

Reply: Lệnh Quick Select gõ phím là qselect

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

Lệnh là Qselect bạn ạ.Yêu cầu của chi_pheo k biết là đổi tất cả, đổi theo style, hay đổi theo text chọn :s_big:.

Nếu chọn text trên màn hình thì có thể dùng cách bác Tuệ nói, hoặc :

;free lisp from cadviet.com @ ketxu
(defun c:cht()	
(setq newhyt (getreal "Nhap chieu cao : "))
(if (= newhyt nil) (setq newhyt (getvar "TEXTSIZE")))
(setq sset1 (ssget (list (cons 0 "TEXT"))))
(setq counter 0)
(repeat (sslength sset1)
	(setq txt (ssname sset1 counter))
	(setq txtdata (entget txt))		
	(setq hyt (assoc 40 txtdata))		
	(setq txtdata (subst (cons 40 newhyt) hyt txtdata))		
	(entmod txtdata)
	(entupd txt)		
	(setq counter (1+ counter))
)
)

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
Em khó hiểu quá. Dung thế nào ạ! Làm cho chung to đều lên thế :s_big:

Bạn dùng cách nào? Dùng lisp trên mình gửi hay dùng cách Ctrl+1 ^^ Tất cả đều làm cho text height thành 1 giá trị bạn nhập

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

Các pro à! Có lệnh viết tắt ko? Chứ viết dài thế thì nhập lệnh lâu lắm. mà có lúc còn viết sai nữa chứ. Mà ko có lệnh tắt thì muốn thay đổi để có lệnh tắt thì phải thay đổi ở đâu ạh!

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
Các pro à! Có lệnh viết tắt ko? Chứ viết dài thế thì nhập lệnh lâu lắm. mà có lúc còn viết sai nữa chứ. Mà ko có lệnh tắt thì muốn thay đổi để có lệnh tắt thì phải thay đổi ở đâu ạh!

Bạn trả lời câu trên mình hỏi đã.Bạn đang nói đến lệnh nào trong các phương án trên ?? Topic mới chỉ có mấy bài thôi, nên bạn chịu khó đọc lại trước khi post ha :s_big:

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
Lệnh là Qselect bạn ạ.Yêu cầu của chi_pheo k biết là đổi tất cả, đổi theo style, hay đổi theo text chọn :s_big:.

Nếu chọn text trên màn hình thì có thể dùng cách bác Tuệ nói, hoặc :

;free lisp from cadviet.com @ ketxu
(defun c:cht()	
(setq newhyt (getreal "Nhap chieu cao : "))
(if (= newhyt nil) (setq newhyt (getvar "TEXTSIZE")))
(setq sset1 (ssget (list (cons 0 "TEXT"))))
(setq counter 0)
(repeat (sslength sset1)
	(setq txt (ssname sset1 counter))
	(setq txtdata (entget txt))		
	(setq hyt (assoc 40 txtdata))		
	(setq txtdata (subst (cons 40 newhyt) hyt txtdata))		
	(entmod txtdata)
	(entupd txt)		
	(setq counter (1+ counter))
)
)

Yêu cầu của chi_pheo k biết là đổi tất cả, đổi theo style, hay đổi theo text chọn :).

Reply: Cái này đâu cần phải sử dụng Lisp nhỉ?

Đổi theo kiểu gì chăng nữa thì chỉ 1 lệnh Scaletext là xong

 

Các pro à! Có lệnh viết tắt ko? Chứ viết dài thế thì nhập lệnh lâu lắm. mà có lúc còn viết sai nữa chứ. Mà ko có lệnh tắt thì muốn thay đổi để có lệnh tắt thì phải thay đổi ở đâu ạh!

Bạn vào Tool->Customize -> vào Edit Program Parameter (acad.pgp) để tạo lệnh tắt

Cách làm : 1 số bài viết đã trình bày trên Diễn đàn. Bạn chịu khó tìm kiếm nhé

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

Hề hề,Tiết kiệm đc 1 bước trong trường hợp cụ thể mà bác ^^

Scaletext dùng trong t/h tổng quát

Nếu dùng Scaletext thì rút lệnh lại như vầy, mí lị bỏ qua basepoint cho tiện

(defun c:sct()(command ".scaletext" (ssget (list (cons 0 "TEXT"))) "" ""))

P/S : bạn Chí nên tìm hiểu cách đặt lệnh tắt trên diễn đàn :s_big:

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
Hề hề,Tiết kiệm đc 1 bước trong trường hợp cụ thể mà bác ^^

Scaletext dùng trong t/h tổng quát

Nếu dùng Scaletext thì rút lệnh lại như vầy, mí lị bỏ qua basepoint cho tiện

(defun c:sct()(command ".scaletext" (ssget (list (cons 0 "TEXT"))) "" ""))

P/S : bạn Chí nên tìm hiểu cách đặt lệnh tắt trên diễn đàn :s_big:

Cái bạn này lạm dụng Lisp quá. Lisp trên cũng chưa sử dụng cho mọi trường hợp được

Bạn thử cái này nhé :

 

Command: scaletext

 

Select objects: 'fi

.....

 

Nó áp dụng cho mọi trường hợp cụ thể. Trường hợp này Nên sử dụng lệnh scaletext

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
Cái bạn này lạm dụng Lisp quá. Lisp trên cũng chưa sử dụng cho mọi trường hợp được

Bạn thử cái này nhé :

 

Command: scaletext

 

Select objects: 'fi

.....

 

Nó áp dụng cho mọi trường hợp cụ thể. Trường hợp này Nên sử dụng lệnh scaletext

Khái niệm áp dụng cho mọi trường hợp cụ thể chẳng phải chính là tổng quát sao bác ?:s_big: E đã reply là dùng scaletext kết hợp fi,qselect cho trường hợp tổng quát.E viết cái dòng bên trên chủ là để giải quyết cái khâu đặt lệnh cho bạn chủ topic là chính,bỏ thao tác chọn Exist Basepoint, vì bạn ấy đã biết dùng lisp n chưa có tjan đọc cách đổi lệnh, có kèm theo lời PS đó th, chứ ngay từ dưới bài đầu tiên e cũng đã nói là dùng cách của bác r.Chứ k phải làm cái code để dùng cho mọi trường hợp, e đã nói từ lúc post r mà ^^.Mong bác k mắng là e lạm dụng, tội e :)

  • Vote tăng 1

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  

×