Đến nội dung


Hình ảnh

Hiệu chỉnh Dt Text??????


  • Please log in to reply
35 replies to this topic

#1 Canhdome

Canhdome

    biết vẽ ellipse

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

Đã gửi 12 January 2009 - 02:44 PM

-Anh em chỉ dùm mình hiệu chỉnh dt text như sau????
+ Chữ đậm , chữ nghiêng , chữ gạch dưới ......vv....
-Tôi cám ơn nhiều . Chúc anh em có 1 ngày thật hạnh phúc & vui vẽ
  • 0

#2 tbhv

tbhv

    biết vẽ circle

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

Đã gửi 12 January 2009 - 03:52 PM

-Anh em chỉ dùm mình hiệu chỉnh dt text như sau????
+ Chữ đậm , chữ nghiêng , chữ gạch dưới ......vv....
-Tôi cám ơn nhiều . Chúc anh em có 1 ngày thật hạnh phúc & vui vẽ

Chỉnh trong Dtext thì e chịu, e chỉ chuyển Dtext sang Mtext sau đó mới chỉnh được. Sau đó lại chỉnh về Dtext nhưng bó tay
  • 0

#3 phamthanhhungks

phamthanhhungks

    biết vẽ polygon

  • Members
  • PipPip
  • 74 Bài viết
Điểm đánh giá: 19 (tàm tạm)

Đã gửi 12 January 2009 - 04:07 PM

Vụ này cũng thấy mới àh nghen ^_^ phải tìm hiêu thêm mới được tại Dtext chỉ có thể chỉnh Chứ có gạch dưới thôi chứ chữ đậm hay nghiêng thì ........ pó tay roài
  • 0

#4 tbhv

tbhv

    biết vẽ circle

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

Đã gửi 12 January 2009 - 04:16 PM

Vụ này cũng thấy mới àh nghen ^_^ phải tìm hiêu thêm mới được tại Dtext chỉ có thể chỉnh Chứ có gạch dưới thôi chứ chữ đậm hay nghiêng thì ........ pó tay roài

Vâng, cái này khá mới mẻ thì phải ( đối với e ấy )
Thử rùi nhưng chịu luôn
  • 0

#5 QUYLAOTIENSINH

QUYLAOTIENSINH

    biết vẽ arc

  • Members
  • PipPip
  • 45 Bài viết
Điểm đánh giá: 16 (tàm tạm)

Đã gửi 12 January 2009 - 05:16 PM

Bạn chỉ có thể chỉnh dtext chử nghiêng,chử đậm bằng text style thôi.Muốn gạch dưới thì thêm %%u;gạch trên %%o.Mình chỉ biết thế^_^
  • 0

#6 kienne

kienne

    biết vẽ line

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

Đã gửi 12 January 2009 - 10:08 PM

Bạn chỉ có thể chỉnh dtext chử nghiêng,chử đậm bằng text style thôi.Muốn gạch dưới thì thêm %%u;gạch trên %%o.Mình chỉ biết thế^_^

Bác Thần Rùa nói đúng đó, muốn chữ đậm, nghiêng thì trong ST ta chọn bên font style>chọn bold, italic gì đó (đối với font VNI). và nó tác dụng lên toàn bộ text style đó, còn điều chỉnh riêng lẻ đối với Dtext thì em cũng chưa biết là có làm được hay ko luôn.
  • 0

#7 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 13 January 2009 - 07:27 AM

-Anh em chỉ dùm mình hiệu chỉnh dt text như sau????
+ Chữ đậm , chữ nghiêng , chữ gạch dưới ......vv....
-Tôi cám ơn nhiều . Chúc anh em có 1 ngày thật hạnh phúc & vui vẽ

-Chử đậm = mình không biết.
-Chử gạch dưới = thêm %%u phía trước dòng text.
-Chử nghiêng = Chình thông số Obliquing của text. (dùng lệnh DDMODYFILE)
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#8 Canhdome

Canhdome

    biết vẽ ellipse

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

Đã gửi 13 January 2009 - 12:41 PM

-Chử đậm = mình không biết.
-Chử gạch dưới = thêm %%u phía trước dòng text.
-Chử nghiêng = Chình thông số Obliquing của text. (dùng lệnh DDMODYFILE)

-Anh em nói vào text style thì là chuyện cũ rùi , mình chỉ muốn chỉnh font riêng lẻ thôi. Có cao thủ nào ra tay nghĩa hiệp ko vậy? Thanks...
  • 0

#9 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 13 January 2009 - 01:40 PM

-Anh em nói vào text style thì là chuyện cũ rùi , mình chỉ muốn chỉnh font riêng lẻ thôi. Có cao thủ nào ra tay nghĩa hiệp ko vậy? Thanks...

Bạn đã làm như mình nói chưa? Đừng la toáng lên khi chưa làm thử cách mà người ta chỉ cho mình.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#10 Canhdome

Canhdome

    biết vẽ ellipse

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

Đã gửi 13 January 2009 - 02:55 PM

Bạn đã làm như mình nói chưa? Đừng la toáng lên khi chưa làm thử cách mà người ta chỉ cho mình.

-Bạn duy nói rất đúng nhưng mà còn tô chữ đậm thì đành bó tay. Help........... ^_^ ............
  • 0

#11 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 20 January 2009 - 11:29 AM

-Bạn duy nói rất đúng nhưng mà còn tô chữ đậm thì đành bó tay.

Chưa bó Tay đâu bạn ạ. Vẫn có thể dùng Lisp để tô chữ đậm cho font chữ. Nhưng trước hết bạn phải nói cụ thể bạn phải nói font chữ bạn định tô đậm của bạn là font gì chứ?
  • 0

#12 Canhdome

Canhdome

    biết vẽ ellipse

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

Đã gửi 20 January 2009 - 12:14 PM

Chưa bó Tay đâu bạn ạ. Vẫn có thể dùng Lisp để tô chữ đậm cho font chữ. Nhưng trước hết bạn phải nói cụ thể bạn phải nói font chữ bạn định tô đậm của bạn là font gì chứ?

Nếu bạn biết thì chỉ giáo dùm đi vô cùng biết ơn . mình là dân kỷ thuật thì xài font gì thì bạn biết rùi . All font .
Còn bạn có lips thì tô đậm được font gì ??????? ^_^ :D
  • 0

#13 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 January 2009 - 01:55 PM

Chưa bó Tay đâu bạn ạ. Vẫn có thể dùng Lisp để tô chữ đậm cho font chữ. Nhưng trước hết bạn phải nói cụ thể bạn phải nói font chữ bạn định tô đậm của bạn là font gì chứ?

Vụ này mới à nha! Tue_NV có thể hé lộ 1 chút về cách giải quyết của lisp không?
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#14 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 20 January 2009 - 02:33 PM

Cám ơn anh Duy. Em dựa vào chính đoạn Code mà anh Duy đã viết cho bạn hhhhgggg để đổi font cho text sang font .VnHelvetlnsH.
Như các bạn đã biết khi ta đánh lệnh Style và thiết lập cho font chữ style đó là font chữ đậm thì nó tác dụng lên toàn bộ Text của Style đó. Còn muốn tô chữ đậm cho text riêng lẻ thì sử dụng đoạn Code của anh Duy và thay cái chuỗi ".VnHelvetInsH Medium" bằng textstyle tô đậm thích hợp là được.

(defun c:df ()
(command "undo" "be")
(command "-style" "doifont" ".VnHelvetInsH Medium" "0" "1" "0" "n" "n")
(prompt "\nChon chu muon chinh.")
(setq ss (ssget))
(setq c 0)
(if ss (setq e (ssname ss c)))
(while e
(setq e (entget e))
(if (= (cdr (assoc 0 e)) "TEXT")
(progn
(setq txt "doifont")
(setq e (subst (cons 7 txt) (assoc 7 e) e))
(entmod e)
)
)
(setq c (1+ c))
(setq e (ssname ss c))
)
(command "undo" "end")
(Princ)
)

Ví dụ :
Để đổi sang font chữ :
.VnArial (Regular) : Thì thay cái chuỗi ".VnHelvetInsH Medium" bằng chuỗi : "VNARIAL.TTF"
.VnArial (Bold) (Chữ đậm) : Thì thay cái chuỗi ".VnHelvetInsH Medium" bằng chuỗi : "VNARIALB.TTF"
.VnArial (Italic) (Chữ nghiêng) : Thì thay cái chuỗi ".VnHelvetInsH Medium" bằng chuỗi : "VNARIALI.TTF"
.VnArial (Bold Italic) (Chữ đậm nghiêng) : Thì thay cái chuỗi ".VnHelvetInsH Medium" bằng chuỗi : "VNARIABI.TTF"

Như vậy, bạn phải xác định truớc font chữ của Style đó rồi mới tô thành cái chữ đậm được.
Anh Duy cho thêm ý kiến nhé. Cảm ơn.
  • 0

#15 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 January 2009 - 02:59 PM

Cám ơn anh Duy. Em dựa vào chính đoạn Code mà anh Duy đã viết cho bạn hhhhgggg để đổi font cho text sang font .VnHelvetlnsH.
Như các bạn đã biết khi ta đánh lệnh Style và thiết lập cho font chữ style đó là font chữ đậm thì nó tác dụng lên toàn bộ Text của Style đó. Còn muốn tô chữ đậm cho text riêng lẻ thì sử dụng đoạn Code của anh Duy và thay cái chuỗi ".VnHelvetInsH Medium" bằng textstyle tô đậm thích hợp là được.


(defun c:df ()
(command "undo" "be")
(command "-style" "doifont" ".VnHelvetInsH Medium" "0" "1" "0" "n" "n")
(prompt "\nChon chu muon chinh.")
(setq ss (ssget))
(setq c 0)
(if ss (setq e (ssname ss c)))
(while e
(setq e (entget e))
(if (= (cdr (assoc 0 e)) "TEXT")
(progn
(setq txt "doifont")
(setq e (subst (cons 7 txt) (assoc 7 e) e))
(entmod e)
)
)
(setq c (1+ c))
(setq e (ssname ss c))
)
(command "undo" "end")
(Princ)
)

Ví dụ :
Để đổi sang font chữ :
.VnArial (Regular) : Thì thay cái chuỗi ".VnHelvetInsH Medium" bằng chuỗi : "VNARIAL.TTF"
.VnArial (Bold) (Chữ đậm) : Thì thay cái chuỗi ".VnHelvetInsH Medium" bằng chuỗi : "VNARIALB.TTF"
.VnArial (Italic) (Chữ nghiêng) : Thì thay cái chuỗi ".VnHelvetInsH Medium" bằng chuỗi : "VNARIALI.TTF"
.VnArial (Bold Italic) (Chữ đậm nghiêng) : Thì thay cái chuỗi ".VnHelvetInsH Medium" bằng chuỗi : "VNARIABI.TTF"

Như vậy, bạn phải xác định truớc font chữ của Style đó rồi mới tô thành cái chữ đậm được.
Anh Duy cho thêm ý kiến nhé. Cảm ơn.

Theo mình nên nghiên cứu theo cách.
-Đọc tên kiểu chử được chọn.
-Đọc fon chử của kiểu chử.
-Tạo kiểu chử mới là kiểu được chọn + "dam"
Các bước khác như của bạn.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#16 Canhdome

Canhdome

    biết vẽ ellipse

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

Đã gửi 20 January 2009 - 03:12 PM

Theo mình nên nghiên cứu theo cách.
-Đọc tên kiểu chử được chọn.
-Đọc fon chử của kiểu chử.
-Tạo kiểu chử mới là kiểu được chọn + "dam"
Các bước khác như của bạn.

Duy thân mến. Đoạn lisp sau mình thử rùi ko được. bạn chỉ căn kẻ tí xem . Thanks ^_^
  • 0

#17 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 20 January 2009 - 03:34 PM

Theo mình nên nghiên cứu theo cách.
-Đọc tên kiểu chử được chọn.
-Đọc fon chử của kiểu chử.
-Tạo kiểu chử mới là kiểu được chọn + "dam"

- Hai dòng đầu đã hiểu.
Dòng thứ ba -> Anh Duy giải thích dùm tí nhé.

To Canhdome : File Lisp đã chạy thử lại rồi không có lỗi. Bạn chạy lại xem và kiểm tra lại thử xem font chữ khai báo trong cái chuỗi ấy đã cài trong máy bạn chưa?
Chúc thành công. ^_^
  • 0

#18 Canhdome

Canhdome

    biết vẽ ellipse

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

Đã gửi 20 January 2009 - 04:31 PM

- Hai dòng đầu đã hiểu.
Dòng thứ ba -> Anh Duy giải thích dùm tí nhé.

To Canhdome : File Lisp đã chạy thử lại rồi không có lỗi. Bạn chạy lại xem và kiểm tra lại thử xem font chữ khai báo trong cái chuỗi ấy đã cài trong máy bạn chưa?
Chúc thành công. ^_^

Bạn xem dùm minh nhe.
Command: -style Enter name of text style or [?] <AVO-BOLD>: doifont
New style.
Specify full font name or font filename (TTF or SHX) <txt>: .VnHelvetInsH Medium
Font not available.
Command: 0 Unknown command "0". Press F1 for help.

Command: 1 Unknown command "1". Press F1 for help.

Command: 0 Unknown command "0". Press F1 for help.

Command: n Unknown command "N". Press F1 for help.

Command: n Unknown command "N". Press F1 for help.

Command:
Chon chu muon chinh.
Select objects: 1 found

Select objects:
undo Current settings: Auto = On, Control = All, Combine = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back]
<1>: end
  • 0

#19 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 January 2009 - 04:33 PM

- Hai dòng đầu đã hiểu.
Dòng thứ ba -> Anh Duy giải thích dùm tí nhé.

To Canhdome : File Lisp đã chạy thử lại rồi không có lỗi. Bạn chạy lại xem và kiểm tra lại thử xem font chữ khai báo trong cái chuỗi ấy đã cài trong máy bạn chưa?
Chúc thành công. ^_^

Ví dụ text Được chọn thuộc textstyle: chukythuat thì mình tạo thêm style tên là chukythuatdam mục đích là khi các text nguồn có style trung nhau thì nó không tạo ra quá nhiều style mới.
Dùng hàm strcat cú pháp như sau:
(setq noidungmoi (strcat noidungcu "themsau"))
Trong đó:
noidungcu là tên style bạn đọc được.
themsau là dòng thêm vào cụ thể mình gợi ý là "dam"
noidungmoi là kết quả thu được
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#20 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 20 January 2009 - 04:43 PM

Cám ơn anh Duy.

Bạn xem dùm minh nhe.
Command: -style Enter name of text style or [?] <AVO-BOLD>: doifont
New style.
Specify full font name or font filename (TTF or SHX) <txt>: .VnHelvetInsH Medium
Font not available.
Command: 0 Unknown command "0". Press F1 for help.

Command: 1 Unknown command "1". Press F1 for help.

Command: 0 Unknown command "0". Press F1 for help.

Command: n Unknown command "N". Press F1 for help.

Command: n Unknown command "N". Press F1 for help.

Command:
Chon chu muon chinh.
Select objects: 1 found

Select objects:
undo Current settings: Auto = On, Control = All, Combine = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back]
<1>: end

Rõ ràng trong máy của bạn không có font chữ .VnHelvetInsH

(defun c:df ()
(command "undo" "be")
(command "-style" "doifont" ".VnHelvetInsH Medium" "0" "1" "0" "n" "n")
(prompt "\nChon chu muon chinh.")
(setq ss (ssget))
(setq c 0)
(if ss (setq e (ssname ss c)))
(while e
(setq e (entget e))
(if (= (cdr (assoc 0 e)) "TEXT")
(progn
(setq txt "doifont")
(setq e (subst (cons 7 txt) (assoc 7 e) e))
(entmod e)
)
)
(setq c (1+ c))
(setq e (ssname ss c))
)
(command "undo" "end")
(Princ)
)

Bạn hãy thử thay chuỗi ".VnHelvetInsH Medium" trong đoạn Code trên bằng font chữ có trong máy bạn thử xem.
  • 0