Sửa đoạn lisp đổi Font ? chưa hoàn thiện ??? Help me ????

[hhhhgggg 29]

đây là đoạn lisp đppỏ Font sang font .SHX,Nhưng đoạn lisp này chưa Tick vào mục Use big Font ở bên dưới, và ở mục "Big font " em muốn chọn vns.shx. Mong mấy bác Pro sửa giúp em. Lần trước bác Tuệ viết cho em lisp này thì lần này bác sửa lại cho em đi !!! Thanks !

Ảnh minh họa yêu cầu : http://www.cadviet.com/upfiles/doi_font_1.jpg

CODE

(defun c:hh ()

(command "undo" "be")

(command "-style" "Chu_IN" "tvsimple.shx" "0" "1" "0" "n" "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 "Chu_in")

(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)

)

[Tue_NV 3916]

đây là đoạn lisp đppỏ Font sang font .SHX,Nhưng đoạn lisp này chưa Tick vào mục Use big Font ở bên dưới, và ở mục "Big font " em muốn chọn vns.shx. Mong mấy bác Pro sửa giúp em. Lần trước bác Tuệ viết cho em lisp này thì lần này bác sửa lại cho em đi !!! Thanks !

Ảnh minh họa yêu cầu : http://www.cadviet.com/upfiles/doi_font_1.jpg

Đầu tiên, bạn đánh lệnh Style -> thiết lập font chữ, mọi thứ..... theo yêu cầu của bạn

Xong đâu đó hãy đánh lệnh -style (có dấu trừ đằng trước nhé )

Ví dụ :

 

Command: -style

Enter name of text style or [?] : gõ Enter

 

Existing style.

Specify full font name or font filename (TTF or SHX) : gõ Enter

Specify height of text : gõ Enter

Specify width factor : gõ Enter

 

Specify obliquing angle : gõ Enter

Display text backwards? [Yes/No] : gõ Enter

Display text upside-down? [Yes/No] : gõ Enter

Vertical? gõ Enter

 

"Standard" is now the current text style.

 

Bạn chép dòng chữ màu xanh mà bạn vừa thao tác post lên đây thì Tue_NV sẽ sửa cho

[hhhhgggg 29]

Đầu tiên, bạn đánh lệnh Style -> thiết lập font chữ, mọi thứ..... theo yêu cầu của bạn

Xong đâu đó hãy đánh lệnh -style (có dấu trừ đằng trước nhé )

Ví dụ :

 

Command: -style

Enter name of text style or [?] :

 

Existing style.

Specify full font name or font filename (TTF or SHX) : gõ Enter

Specify height of text <0.0000>: gõ Enter

Specify width factor <1.0000>: gõ Enter

 

Specify obliquing angle <0>: gõ Enter

Display text backwards? [Yes/No] : gõ Enter

Display text upside-down? [Yes/No] : gõ Enter

Vertical? gõ Enter

 

"Standard" is now the current text style.

 

Bạn chép dòng chữ màu xanh mà bạn vừa thao tác vứt lên đây thì Tue_NV sẽ sửa cho

Bác Tuệ có hiểu nhầm ko ? Vì đây là Lisp đổi font của Text được chọn. Sao lại lòng vòng thế. Mà sao lại thiết lập ban đầu như thế. Bác sửa cho em đi ???

[Tue_NV 3916]

Bác Tuệ có hiểu nhầm ko ? Vì đây là Lisp đổi font của Text được chọn. Sao lại lòng vòng thế. Mà sao lại thiết lập ban đầu như thế. Bác sửa cho em đi ???

Lisp này có liên quan đến những cái đó. Bạn hãy thao tác trên như mình nói rồi sẽ sửa

Vì có những thông tin như thế mới sửa được hhhhgggg à

[hhhhgggg 29]

Lisp này có liên quan đến những cái đó. Bạn hãy thao tác trên như mình nói rồi sẽ sửa

Vì có những thông tin như thế mới sửa được hhhhgggg à

Em đã làm như vậy rùi nhưng mà em ko hiểu thấy chúng có j liên quan với nhau ? Bởi vì Style ở đây là cái Style mới tạo ra chứ ko phải cái Style có sẵn từ trước mà ??? hjx !!!

 

Command: -style

Enter name of text style or [?] :

Existing style.

Specify full font name or font filename (TTF or SHX) :

Specify height of text <0.0000>:

Specify width factor <1.0000>:

Specify obliquing angle <0>:

Display text backwards? [Yes/No] :

Display text upside-down? [Yes/No] :

Vertical?

"Chu_IN" is now the current text style.

[Tue_NV 3916]

Em đã làm như vậy rùi nhưng mà em ko hiểu thấy chúng có j liên quan với nhau ? Bởi vì Style ở đây là cái Style mới tạo ra chứ ko phải cái Style có sẵn từ trước mà ??? hjx !!!

 

Command: -style (1)

Enter name of text style or [?] : (2)

Existing style.

Specify full font name or font filename (TTF or SHX) : (3)

Specify height of text : (4)

Specify width factor : (5)

Specify obliquing angle : (6)

Display text backwards? [Yes/No] : (7)

Display text upside-down? [Yes/No] : (8)

Vertical? (9)

"Chu_IN" is now the current text style.

Sao lại không liên quan?

Tue_NV muốn sửa lại cho bạn 1 lần để lần sau gặp các trường hợp như bạn muốn chữ đậm, chữ nghiêng còn xử lý được.

Không lý bạn lại cầu cứu nữa. Bạn nên nhớ giữa CAD và Lisp có 1 mối quan hệ với nhau

Bạn hãy sửa lại dòng code của bạn :

thay dòng : (command "-style" "Chu_IN" "tvsimple.shx" "0" "1" "0" "n" "n" "n")

bằng dòng : (command "-style" "Chu_IN" "tvsimple.shx,vns.shx" "0" "1" "0" "n" "n" "n")

 

Bạn thấy đó :

dòng (1) trong CAD tương ứng với "-style" trong Lisp

dòng (2) trong CAD tương ứng với "Chu_IN" trong Lisp

dòng (3) trong CAD tương ứng với "tvsimple.shx,vns.shx" trong Lisp

dòng (4) trong CAD tương ứng với "0" trong Lisp

dòng (5) trong CAD tương ứng với "1" trong Lisp

dòng (6) trong CAD tương ứng với "0" trong Lisp

dòng (7) trong CAD tương ứng với "n" trong Lisp

dòng (8) trong CAD tương ứng với "n" trong Lisp

dòng (9) trong CAD tương ứng với "n" trong Lisp

 

Cho nên dĩ bất biến, ứng vạn biến. Hãy thay đổi cho phù hợp.

:s_big:

[hhhhgggg 29]

Sao lại không liên quan?

Tue_NV muốn sửa lại cho bạn 1 lần để lần sau gặp các trường hợp như bạn muốn chữ đậm, chữ nghiêng còn xử lý được.

Không lý bạn lại cầu cứu nữa. Bạn nên nhớ giữa CAD và Lisp có 1 mối quan hệ với nhau

Bạn hãy sửa lại dòng code của bạn :

thay dòng : (command "-style" "Chu_IN" "tvsimple.shx" "0" "1" "0" "n" "n" "n")

bằng dòng : (command "-style" "Chu_IN" "tvsimple.shx,vns.shx" "0" "1" "0" "n" "n" "n")

 

Bạn thấy đó :

dòng (1) trong CAD tương ứng với "-style" trong Lisp

dòng (2) trong CAD tương ứng với "Chu_IN" trong Lisp

dòng (3) trong CAD tương ứng với "tvsimple.shx,vns.shx" trong Lisp

dòng (4) trong CAD tương ứng với "0" trong Lisp

dòng (5) trong CAD tương ứng với "1" trong Lisp

dòng (6) trong CAD tương ứng với "0" trong Lisp

dòng (7) trong CAD tương ứng với "n" trong Lisp

dòng (8) trong CAD tương ứng với "n" trong Lisp

dòng (9) trong CAD tương ứng với "n" trong Lisp

 

Cho nên dĩ bất biến, ứng vạn biến. Hãy thay đổi cho phù hợp.

:s_big:

Em hiểu rồi ! Cảm ơn bác đã chỉ giáo. Em đã hiểu được vấn đề rùi !!!