Đến nội dung


Hình ảnh
- - - - -

[Hỏi] Lisp không tìm được font


  • Please log in to reply
4 replies to this topic

#1 soluuhuong2903

soluuhuong2903

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: 22 (tàm tạm)

Đã gửi 24 May 2014 - 08:12 AM

Mình dùng 1 dòng lệnh đơn giản thế này thôi để tạo 1 textstyle mới.

(command "STYLE" "2" "TCVN 7284 " "2" "1" "0" "N" "N" "N")

Nhưng cad liền báo là font not available và báo lỗi ngay, mặc dù font này mình đang sử dụng ầm ầm. Sau đó dùng entmake tạo textstyle thì kết quả có khả quan hơn nhưng lúc kiểm tra lại thì style font đã chuyển qua shx trong khi font này của mình dạng ttf.

Các bác có biết tại sao không ạ. E để bản vẽ, lisp, font trong link bên dưới, bác nào xem giúp hộ e nhé.thank các bác

http://www.cadviet.c...8_desktop_1.rar

21140Capture.jpg


  • 0

#2 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 24 May 2014 - 08:43 AM

Bạn phải ghi đúng tên file có cả đuôi ttf:

(command "-STYLE" "2" "TCVN7284 Regular.ttf" "2" "1" "0" "N" "N" "N")


  • 0

#3 soluuhuong2903

soluuhuong2903

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: 22 (tàm tạm)

Đã gửi 24 May 2014 - 09:29 AM

Bạn phải ghi đúng tên file có cả đuôi ttf:

(command "-STYLE" "2" "TCVN7284 Regular.ttf" "2" "1" "0" "N" "N" "N")

không được bạn à, mình gõ arial, hay times new roman không cần ttf vẫn được.mỗi cái font này thì không được.chả hiểu tại sao. dù sao cũng thank bạn đã quan tâm.


  • 0

#4 soluuhuong2903

soluuhuong2903

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: 22 (tàm tạm)

Đã gửi 24 May 2014 - 11:15 AM

thank các bác đã quan tâm.e chỉnh được rồi.


  • 0

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 24 May 2014 - 11:31 AM

1 ví dụ về entmake cho bạn tham khảo:

(defun Font (FontName FontFile)
 (if (not (tblsearch "style" FontName))
  (entmake
   (list
   '(0 . "STYLE")
   '(100 . "AcDbSymbolTableRecord")
   '(100 . "AcDbTextStyleTableRecord")
    (cons 2 FontName)
   '(70 . 0)
   '(40 . 0.0)
   '(41 . 1.0)
   '(50 . 0.0)
   '(71 . 0)
   '(42 . 0)
    (cons 3 FontFile)
   '(4 . "")))))
;EX: (Font "HA1" "TCVN 7284.ttf")   


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.