Đến nội dung


Hình ảnh

đổi font cad


  • Please log in to reply
6 replies to this topic

#1 gakho007

gakho007

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 23 February 2012 - 06:39 AM

sau khi down đủ các font, mình lại gặp rắc rối.
Các bạn cho mình hỏi" làm sao đổi font cho text hàng loạt ( hay chỉ đổi dc từng text bằng double-click vào text đó)ảm ơnxin cam
  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 23 February 2012 - 06:50 AM

sau khi down đủ các font, mình lại gặp rắc rối.
Các bạn cho mình hỏi" làm sao đổi font cho text hàng loạt ( hay chỉ đổi dc từng text bằng double-click vào text đó)ảm ơnxin cam

Dùng lisp thì đổi hàng loạt rất đơn giản
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 gakho007

gakho007

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 26 February 2012 - 08:26 PM

bạn có thể hướng dẫn rõ hơn được ko ạ, cám ơn bạn.
  • 0

#4 Chiron

Chiron

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 90 (tàm tạm)

Đã gửi 27 February 2012 - 09:30 AM

bạn có thể hướng dẫn rõ hơn được ko ạ, cám ơn bạn.

Lisp thì không thể nói vài câu là có thể thực hiện được. Trước mắt, bạn xem text style của text muốn thay đổi có font là gì rồi đổi font theo ý muốn. Nếu là dtext chuẩn thì có thể chỉ cần dùng lệnh rea là xong. Bạn có thể dùng lệnh ma để copy định dạng của 1 text ưng ý cho tất cả text khác.
  • 0

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 27 February 2012 - 11:31 AM

bạn có thể hướng dẫn rõ hơn được ko ạ, cám ơn bạn.

Bạn dùng cái này xem có được không?

;Doan Van Ha - CADViet.com - Ngay 27-02-2012
;Muc dich: Thay Font cua cac Text duoc chon bang Font cua Text chuan.
(defun C:HA (/ sty i cd lst)
(command "undo" "begin")
(setq sty (cdr (assoc 7 (entget (car (entsel "\nChon Text de lay Font mau: "))))))
(princ "\nChon cac Text de thay doi Font: ")
(if (setq ss (ssget '((0 . "TEXT"))))
(progn
(setq i 0)
(setq cd (sslength ss))
(repeat cd
(setq lst (entget (ssname ss i)))
(command "_erase" (ssname ss i) "")
(entmake (list '(0 . "TEXT")
(cons 8 (cdr (assoc 8 lst)))
(cons 10 (cdr (assoc 10 lst)))
(cons 40 (cdr (assoc 40 lst)))
(cons 1 (cdr (assoc 1 lst)))
(cons 50 (cdr (assoc 50 lst)))
(cons 41 (cdr (assoc 41 lst)))
(cons 51 (cdr (assoc 51 lst)))
(cons 71 (cdr (assoc 71 lst)))
(cons 72 (cdr (assoc 72 lst)))
(cons 73 (cdr (assoc 73 lst)))
(cons 7 sty)))
(setq i (1+ i)))))
(command "undo" "end")
(princ))

  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#6 gakho007

gakho007

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 07 March 2012 - 06:33 AM

híc phức tạp thế. Nhưng mình đã tìm ra rùi, máy mình thiếu font VNI-helve-condense down về là xong kakakak.
cám ơn các bạn đã giúp đỡ.
  • 0

#7 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 07 March 2012 - 09:03 AM

Câu hỏi của bạn và cái mà bạn tìm ra phương án giải quyết thực chẳng ăn nhập với nhau. Lần sau nếu bạn có gì cần hỏi xin suy nghĩ thêm 1 chút, đừng làm nản lòng những người nhiệt tình giúp bạn
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC