Đến nội dung


Hình ảnh
- - - - -

Viết Chữ Tiếng Việt Trong Lisp (Unicode)


  • Please log in to reply
11 replies to this topic

#1 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 25 October 2016 - 09:16 PM

Mình có đoạn lsp dùng để viết chữ (chữ mặc định), nhưng sau khi gõ lệnh và dùng thì nó bị lỗi font 

Mình muốn dùng font arial (bảng mã unicode, kiểu gõ vni)

Mình muốn ghi ra là chữ" MẶT BẰNG TÔN MÁI 

Mong mọi người sửa dùm tí, mình xin cảm ơn ! 


(DEFUN C:MB (/ TILE P)
  (IF (= (TBLOBJNAME "STYLE" "ARIAL") NIL)
  	(command ".STYLE" "ARIAL" "VNI-ARIAL" "" "" "" "" "" "")
    )
  (SETQ
	tile (getint "\nTi le: ")
	p (getpoint "\nChon diem chen text: ")
	)
  (COMMAND "TEXT" "S" "ARIAL" "J" "MC" P (* TILE 2) "0" "%%UMẶT BẰNNG TÔN MÁI"
	            )
)





  • 0

#2 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 25 October 2016 - 10:37 PM

 

Mình có đoạn lsp dùng để viết chữ (chữ mặc định), nhưng sau khi gõ lệnh và dùng thì nó bị lỗi font 

Mình muốn dùng font arial (bảng mã unicode, kiểu gõ vni)

Mình muốn ghi ra là chữ" MẶT BẰNG TÔN MÁI 

Mong mọi người sửa dùm tí, mình xin cảm ơn ! 


(DEFUN C:MB (/ TILE P)
  (IF (= (TBLOBJNAME "STYLE" "ARIAL") NIL)
  	(command ".STYLE" "ARIAL" "VNI-ARIAL" "" "" "" "" "" "")
    )
  (SETQ
	tile (getint "\nTi le: ")
	p (getpoint "\nChon diem chen text: ")
	)
  (COMMAND "TEXT" "S" "ARIAL" "J" "MC" P (* TILE 2) "0" "%%UMẶT BẰNNG TÔN MÁI"
	            )
)




Thử cái này xem nhé ^_^ máy mình ko có vni-arial nên thay bằng helve

(DEFUN C:MB (/ tile p)
  (IF (= (TBLOBJNAME "STYLE" "ARIAL") NIL)
;(command ".STYLE" "ARIAL" "VNI-ARIAL" "" "" "" "" "" "")
    (entmake '((0 . "STYLE")
	       (100 . "AcDbSymbolTableRecord")
	       (100 . "AcDbTextStyleTableRecord")
	       (2 . "ARIAL")	;style name 
	       (3 . "VNI-HELVE.TTF")	;font file 
	       (70 . 0)
	       (40 . 0.0)
	       (41 . 1.0)
	       (50 . 0.0)
	       (71 . 0)
	      )
    )
  )
  (SETQ
    tile (getint "\nTi le: ")
    p	 (getpoint "\nChon diem chen text: ")
  )
;;;  (COMMAND "TEXT" "S" "ARIAL" "J" "MC" P (* TILE 2) "0" "%%UM?T B?NNG TÔN MÁI"
  (entmake (list
	     (cons 0 "TEXT")
	     (cons 1 "MAËT BAÈNG TOÂN MAÙI")
	     (cons 10 p)
	     (cons 40 (* tile 2))
	     (cons 7 "ARIAL")
	   )
  )

)

  • 0

#3 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 26 October 2016 - 04:55 AM

 

 

Mình có đoạn lsp dùng để viết chữ (chữ mặc định), nhưng sau khi gõ lệnh và dùng thì nó bị lỗi font 

Mình muốn dùng font arial (bảng mã unicode, kiểu gõ vni)

Mình muốn ghi ra là chữ" MẶT BẰNG TÔN MÁI 

Mong mọi người sửa dùm tí, mình xin cảm ơn ! 


(DEFUN C:MB (/ TILE P)
  (IF (= (TBLOBJNAME "STYLE" "ARIAL") NIL)
  	(command ".STYLE" "ARIAL" "VNI-ARIAL" "" "" "" "" "" "")
    )
  (SETQ
	tile (getint "\nTi le: ")
	p (getpoint "\nChon diem chen text: ")
	)
  (COMMAND "TEXT" "S" "ARIAL" "J" "MC" P (* TILE 2) "0" "%%UMẶT BẰNNG TÔN MÁI"
	            )
)




Thử cái này xem nhé ^_^ máy mình ko có vni-arial nên thay bằng helve

(DEFUN C:MB (/ tile p)
  (IF (= (TBLOBJNAME "STYLE" "ARIAL") NIL)
;(command ".STYLE" "ARIAL" "VNI-ARIAL" "" "" "" "" "" "")
    (entmake '((0 . "STYLE")
	       (100 . "AcDbSymbolTableRecord")
	       (100 . "AcDbTextStyleTableRecord")
	       (2 . "ARIAL")	;style name 
	       (3 . "VNI-HELVE.TTF")	;font file 
	       (70 . 0)
	       (40 . 0.0)
	       (41 . 1.0)
	       (50 . 0.0)
	       (71 . 0)
	      )
    )
  )
  (SETQ
    tile (getint "\nTi le: ")
    p	 (getpoint "\nChon diem chen text: ")
  )
;;;  (COMMAND "TEXT" "S" "ARIAL" "J" "MC" P (* TILE 2) "0" "%%UM?T B?NNG TÔN MÁI"
  (entmake (list
	     (cons 0 "TEXT")
	     (cons 1 "MAËT BAÈNG TOÂN MAÙI")
	     (cons 10 p)
	     (cons 40 (* tile 2))
	     (cons 7 "ARIAL")
	   )
  )

)

 

Không được bạn ơi, Nếu máy không có font vni-arial thì phải cài hay sao vậy bạn? Và nếu cài thì cài như thế nào vậy bạn?


  • 0

#4 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 26 October 2016 - 07:28 AM

Không được bạn ơi, Nếu máy không có font vni-arial thì phải cài hay sao vậy bạn? Và nếu cài thì cài như thế nào vậy bạn?

Font để cài đây:

http://www.giaiphape...-Font-VNI-Arial

 

Hướng dẫn cài đây:

http://blogcongdong....-vni-times.html

 

Và thay:

(3 . "VNI-HELVE.TTF");font file

 

bằng

(3 . "VNI-ARIAL.TTF")

 

Chịu khó hỏi anh GO là có font và hướng dẫn ^_^


  • 0

#5 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 26 October 2016 - 08:01 AM

Ok, thank Bạn nhiều. Để chiều về mình cai thu
  • 0

#6 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 26 October 2016 - 09:45 PM

Font để cài đây:

http://www.giaiphape...-Font-VNI-Arial

 

Hướng dẫn cài đây:

http://blogcongdong....-vni-times.html

 

Và thay:

(3 . "VNI-HELVE.TTF");font file

 

bằng

(3 . "VNI-ARIAL.TTF")

 

Chịu khó hỏi anh GO là có font và hướng dẫn ^_^

Vẫn không được rồi. Bạn có cao kiến gì giúp với. 

Vẫn không tải được


  • 0

#7 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 26 October 2016 - 09:51 PM

Vẫn không được rồi. Bạn có cao kiến gì giúp với. 

Vẫn không tải được

https://drive.google...iew?usp=sharing

 

 

tạo 1 cái nick log vào rồi download. :(


  • 0

#8 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 27 October 2016 - 04:55 AM

-Trước tiên phải xác định là bạn gỏ text bình thường bằng cad font VNI-ARIAL có được không đã rồi mới tính tới lisp.

+Nếu gỏ bình thường đã không được thì giải quyết cài thêm font tin rằng quanh bạn có nhiều người dùng cad (đồng nghiệp) kiếm anh nào già già hỏi cái là có.

+Nếu gỏ bình thường mà được rồi thì hãy ngó cái lisp nó sao mà hông được.


  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#9 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 27 October 2016 - 05:01 AM

https://drive.google...iew?usp=sharing

 

 

tạo 1 cái nick log vào rồi download. :(

 

https://drive.google...iew?usp=sharing

 

 

tạo 1 cái nick log vào rồi download. :(

1. Down về rồi và past vào font của cad

2. Và thay:

(3 . "VNI-HELVE.TTF");font file

 

bằng

(3 . "VNI-ARIAL.TTF")

Nhưng vẫn không được.

mình dùng bản mã: unicode, kiểu gõ: vni


(DEFUN C:mb (/ tile p)
  (IF (= (TBLOBJNAME "STYLE" "ARIAL") NIL)
;(command ".STYLE" "ARIAL" "VNI-ARIAL" "" "" "" "" "" "")
    (entmake '((0 . "STYLE")
	       (100 . "AcDbSymbolTableRecord")
	       (100 . "AcDbTextStyleTableRecord")
	       (2 . "ARIAL")	;style name 
	       (3 . "VNI-ARIAL.TTF")	;font file 
	       (70 . 0)
	       (40 . 0.0)
	       (41 . 1.0)
	       (50 . 0.0)
	       (71 . 0)
	      )
    )
  )
  (SETQ
    tile (getint "\nTi le: ")
    p	 (getpoint "\nChon diem chen text: ")
  )
;;;  (COMMAND "TEXT" "S" "ARIAL" "J" "MC" P (* TILE 2) "0" "%%UM?T B?NNG TÔN MÁI"
  (entmake (list
	     (cons 0 "TEXT")
	     (cons 1 "MAËT BAÈNG TOÂN MAÙI")
	     (cons 10 p)
	     (cons 40 (* tile 2))
	     (cons 7 "ARIAL")
	   )
  )

)


  • 0

#10 Kieu Tan

Kieu Tan

    biết vẽ rectang

  • Members
  • PipPip
  • 87 Bài viết
Điểm đánh giá: -23 (kém)

Đã gửi 27 October 2016 - 05:42 AM

-Trước tiên phải xác định là bạn gỏ text bình thường bằng cad font VNI-ARIAL có được không đã rồi mới tính tới lisp.

+Nếu gỏ bình thường đã không được thì giải quyết cài thêm font tin rằng quanh bạn có nhiều người dùng cad (đồng nghiệp) kiếm anh nào già già hỏi cái là có.

+Nếu gỏ bình thường mà được rồi thì hãy ngó cái lisp nó sao mà hông được.

Trong cad gõ chữ vẫn bình thường mà bạn, mình dùng font arial (không biết font arial và vni-arial có khác gì không ?)

với bản mã: unicode, kiểu gõ: vni


  • -1

#11 huunhantvxdts

huunhantvxdts

    biết dimbaseline

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

Đã gửi 27 October 2016 - 07:54 AM

Trong cad gõ chữ vẫn bình thường mà bạn, mình dùng font arial (không biết font arial và vni-arial có khác gì không ?)

với bản mã: unicode, kiểu gõ: vni

Font VNI- phải là mã VNI-windows chứ gõ mã unicode sao ra được


  • 0

#12 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 27 October 2016 - 10:48 AM

Trong cad gõ chữ vẫn bình thường mà bạn, mình dùng font arial (không biết font arial và vni-arial có khác gì không ?)

với bản mã: unicode, kiểu gõ: vni

-Khác nhau trước mắt đấy thôi.

-Gỏ trong cad bình thường thì là do lisp chưa đúng đừng quan tân tới việc cài font nửa.

-Lisp và unicode hông biết vì lí do gì mà hông có ưa nhau nên nếu unicode bằng lisp thì phải lẹo tẹo chứ hông như mấy thèn khác.

-Cadviet có nhiều bài về lisp và unicode rồi. tìm xem ra ngay.


  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D