Đến nội dung


Hình ảnh

Sửa Font Hiện Hành Trong Lisp Cad


  • Please log in to reply
8 replies to this topic

#1 Piter Pan

Piter Pan

    biết zoom

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

Đã gửi 15 July 2016 - 03:13 PM

Mình có đoạn lisp cad http://www.cadviet.c...146281_lisp.lsp,

(defun c:TBV()      (setvar "cmdecho" 0)
   (command "UNITS" 2 3 1 0 0 "N")
   
   (command "STYLE" "TIEU DE" ".VnArial NarrowH" 0 "1" "0" "N" "N")
   (command "STYLE" "Chuthuong" "uv-abc" 0 "1" "0" "N" "N" "N")
   (command "STYLE" "SB-KT" "uv-abc" 0 "1" "0" "N" "N" "N")
 

Giờ mình muốn đổi font .VnArial NarrowH và font uv-abc thành font Arial. Mình đã thay bằng font Arial nhưng trong cad phần font name lại chọn font Arial.shx chứ không phải là font Arial. Mọi người có cách nào sửa thành font Arial không, giúp mình với! Thanks All!

 


Đây là đoạn mã lisp của mình  http://www.cadviet.c...146281_lisp.lsp,


  • 0

#2 Hoàng Mạnh Chiến

Hoàng Mạnh Chiến

    Chưa sử dụng CAD

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

Đã gửi 15 July 2016 - 03:23 PM

ai vào giúp a zai tôi với nào..helpppppppppppppppppppppp!!! pro đâu??????????


  • 0

#3 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 15 July 2016 - 03:56 PM

Nếu muốn dùng truetype font phải ghi đầy đủ thế này:

(command "STYLE" "Chuthuong" "Arial.ttf" 0 "1" "0" "N" "N" "N")


  • 1

#4 Piter Pan

Piter Pan

    biết zoom

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

Đã gửi 15 July 2016 - 04:31 PM

Nếu muốn dùng truetype font phải ghi đầy đủ thế này:

(command "STYLE" "Chuthuong" "Arial.ttf" 0 "1" "0" "N" "N" "N")

Mình đã thử đổi lại như vậy mà không được, cad báo lỗi ; error: Function cancelled

*Invalid*

Bạn xem lại giùm mình với!


  • 0

#5 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 15 July 2016 - 04:32 PM

Tôi đã test OK, bạn phải purge các style trước thì mới dùng được


  • 0

#6 Piter Pan

Piter Pan

    biết zoom

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

Đã gửi 15 July 2016 - 08:38 PM

Tôi đã test OK, bạn phải purge các style trước thì mới dùng được

Vẫn không được bạn ah, mình thử lại nhưng cad vẫn báo lỗi


  • 0

#7 Piter Pan

Piter Pan

    biết zoom

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

Đã gửi 15 July 2016 - 09:33 PM

Bác nào pro chỉ em phát!


  • 0

#8 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 15 July 2016 - 10:33 PM

Thử cái này xem có được không:

(command "STYLE" "Chuthuong" (strcat (getenv "systemroot") "\\Fonts\\" "Arial.ttf") 0 "1" "0" "N" "N")


  • 0

#9 Piter Pan

Piter Pan

    biết zoom

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

Đã gửi 15 July 2016 - 11:05 PM

Thử cái này xem có được không:

(command "STYLE" "Chuthuong" (strcat (getenv "systemroot") "\\Fonts\\" "Arial.ttf") 0 "1" "0" "N" "

Cảm ơn bạn, mình thử rồi nhưng không được;

Mình đã xóa font Arial.shx trong file cài đặt của cad và đã ok. Dù sao cũng cảm ơn bạn rất nhiều vì đã góp ý  :)


  • 0