Nhờ sửa lisp tạo Font chữ chạy trên Window 11

[kieutrang 1]

Em xin được lisp tạo Font chữ nhưng chỉ dùng được trên Window 7, em chạy cad trên Window 11 (kể cả chạy Administrator) mà vẫn không được. Em nhờ các bác sửa giúp em với ạ. Em cảm ơn.

(defun c:CDF()
(command "style" "Chuso_TK" ".Vnarial" "" "" "" "" "" "" "")
(command "style" "Hoa" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "TENCOC" ".VnarialH" "" "" "" "" "" "" "")
(command "style" "TIEUDE" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "Text1" ".VnHelvetlnsH" "" "" "" "" "" "" "")
(command "style" "TextBia" ".VnArialH" "" "" "" "" "" "" "")
(command "style" "SIMPLI" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "Textcaodomia" ".Vnarial" "" "" "" "" "" "" "")
(command "style" "CDTIM" ".Vnarial" "" "" "" "" "" "" "")
(command "-style" "Cotthep" "Vnsimli.shx" "" "" "" "" "" "" "")
(command "style" "KT" "Arial" "" "" "" "" "" "" "")
(command "style" "Chuso" ".Vnarial" "" "" "" "" "" "" "")
  (princ)
) 

 

CDF.lsp

[Nguyen Hoanh 4670]

12 giờ trước, kieutrang đã nói:

Em xin được lisp tạo Font chữ nhưng chỉ dùng được trên Window 7, em chạy cad trên Window 11 (kể cả chạy Administrator) mà vẫn không được. Em nhờ các bác sửa giúp em với ạ. Em cảm ơn.

(defun c:CDF()
(command "style" "Chuso_TK" ".Vnarial" "" "" "" "" "" "" "")
(command "style" "Hoa" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "TENCOC" ".VnarialH" "" "" "" "" "" "" "")
(command "style" "TIEUDE" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "Text1" ".VnHelvetlnsH" "" "" "" "" "" "" "")
(command "style" "TextBia" ".VnArialH" "" "" "" "" "" "" "")
(command "style" "SIMPLI" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "Textcaodomia" ".Vnarial" "" "" "" "" "" "" "")
(command "style" "CDTIM" ".Vnarial" "" "" "" "" "" "" "")
(command "-style" "Cotthep" "Vnsimli.shx" "" "" "" "" "" "" "")
(command "style" "KT" "Arial" "" "" "" "" "" "" "")
(command "style" "Chuso" ".Vnarial" "" "" "" "" "" "" "")
  (princ)
) 

 

CDF.lsp

Windows 11 của bạn chưa được cài font tcvn3.

 

Bạn hãy cài font tcvn3 cho windows của bạn là được. Search google nếu bạn chưa biết cách cài.

[kieutrang 1]

Dạ, em đã Copy bộ font bên máy cài Window 7 sang rồi mà vẫn không được ạ.

[lehoang_86 6]

Mình có chạy dưới commandline thì thấy ở từng dòng với hàm command tạo font style đấy không nhiều  (" ") như vậy. Nên cần làm như sau:

(command "_.STYLE" "myfont1" "Arial" "3.5" "1.0" "0" "No" "No")

;;trong đó

;;  3.5 --- chiều cao chữ

;;  1.0 --- width factor

;;  0    ---- obliquing angle

;; No ----  Display text backwards?

;; No ---- Display text upside-down?

Còn các tên font theo mình nghĩ phải đúng tên file cần truy cập, kiểu như ".VnArial",  ".VnArialH"....

Kết lại, bạn cần hiểu 1 chút về autolisp thì sẽ hiểu rõ hơn vấn đề.!

[kieutrang 1]

Thử với Window 11 vẫn không được bác ạ. Không hiểu sao trước em dùng win 7 thì được, họ cài máy cho em sang Win 11 thì ko được nữa.

[vietduc147258 92]

Bạn copy một dòng trong lisp dán vào cửa sổ command xem có tạo được Text Style không?

ví dụ:

(command "style" "Chuso_TK" ".Vnarial" "" "" "" "" "" "" "")

 

nhấn Ctrl + F2 chụp lại hoặc copy nội dung thông báo của Autocad lên có lẽ sẽ có người tìm được nguyên nhân giúp bạn.

[kieutrang 1]

 

Đây bác ạ

[kieutrang 1]

Nó lại lặp lại lệnh trước đấy ạ.

Vào lúc 1/8/2024 tại 13:22, vietduc147258 đã nói:

Bạn copy một dòng trong lisp dán vào cửa sổ command xem có tạo được Text Style không?

ví dụ:

(command "style" "Chuso_TK" ".Vnarial" "" "" "" "" "" "" "")

 

nhấn Ctrl + F2 chụp lại hoặc copy nội dung thông báo của Autocad lên có lẽ sẽ có người tìm được nguyên nhân giúp bạn.

 

[vietduc147258 92]

Win11 mà lại dùng cad 2007 thôi à bạn. Bản Cad này bạn tải đâu ra vậy? Con virus này giống như dành riêng cho Cad vậy.

Các lệnh khác có bị lỗi không?

Các phần mềm khác, hay trình duyệt web có bị lỗi gì không?

[vietduc147258 92]

Bạn tìm trong Star menu hay tìm đâu đó vì mình không dùng Win 11 nên không biết. Tìm cái mục Autocad.....-> Reset Seting to Default.

Xong rồi bạn thử lại 

(command "style" "Style01" ".Vnarial" "" "" "" "" "" "" "")

và

(command "style" "Chuso_TK2" "VNARIAL.TTF" "0" "1" "0" "No" "No" )

Xem có tạo được Style nào không? Báo lỗi gì?