Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
hhhhgggg

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

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

đâ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)

)

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
đâ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

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
Đầ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 ???

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
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 à

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
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.

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 đã 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:

  • 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
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 !!!

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  

×