Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
6 replies to this topic

#1 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 28 May 2009 - 10:43 AM

đâ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.c.../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)
)
  • 0
Hoàng Giang

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 28 May 2009 - 11:04 AM

đâ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.c.../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 <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 post lên đây thì Tue_NV sẽ sửa cho
  • 0

#3 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 28 May 2009 - 11:09 AM

Đầ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 ???
  • 0
Hoàng Giang

#4 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 28 May 2009 - 11:14 AM

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

#5 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 28 May 2009 - 01:17 PM

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.

  • 0
Hoàng Giang

#6 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 28 May 2009 - 02:05 PM

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) < tvsimple.shx,vns.shx >: (3)
Specify height of text <0.0000>: (4)
Specify width factor <1.0000>: (5)
Specify obliquing angle <0>: (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:
  • 1

#7 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 28 May 2009 - 02:55 PM

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 !!!
  • 0
Hoàng Giang