[Hỏi] Lấy Font Name trong Text Style

[Danh Cong 422]

+ Em chào các bác. 

Em đang gặp khó ở vấn đề xác định Text Style như sau, mong các bác cho ý kiến:

Trong bảng Text Style em có 2 font name :

 1.  Font Name : "Arial CE"   ---> Đặt Name Text Style là "Arial_CE"

 2. Font Name : "Arial CYR "  ---> Đặt Name Text Style  là "Arial_CYR"

---->  Sau đó em kiểm tra DXF của 2 Text Style này bằng hàm TBLSEARCH  thì kết quả thu được mã 3 DXF đều là (3 . "arial.ttf").

Vậy câu hỏi của em là:

+ Nếu mã 3 DXF trùng nhau, thì Cad phân biệt 2 font này kiểu gì?

+ Giả sử có 1 bản vẽ mà có Font Name = "Arial CE"  , nhưng bị đặt Name Text Style = abc..xyz   ----> Em muốn lấy tên "Arial CE" thì em phải làm thế nào ạ.

Mong các bác giúp đỡ :)))))

 

[NTHAHT 83]

Tìm: vla-GetFont

 

25 phút trước, Danh Cong đã nói:

+ Em chào các bác. 

Em đang gặp khó ở vấn đề xác định Text Style như sau, mong các bác cho ý kiến:

Trong bảng Text Style em có 2 font name :

 1.  Font Name : "Arial CE"   ---> Đặt Name Text Style là "Arial_CE"

 2. Font Name : "Arial CYR "  ---> Đặt Name Text Style  là "Arial_CYR"

---->  Sau đó em kiểm tra DXF của 2 Text Style này bằng hàm TBLSEARCH  thì kết quả thu được mã 3 DXF đều là (3 . "arial.ttf").

Vậy câu hỏi của em là:

+ Nếu mã 3 DXF trùng nhau, thì Cad phân biệt 2 font này kiểu gì?

+ Giả sử có 1 bản vẽ mà có Font Name = "Arial CE"  , nhưng bị đặt Name Text Style = abc..xyz   ----> Em muốn lấy tên "Arial CE" thì em phải làm thế nào ạ.

Mong các bác giúp đỡ :)))))

 

 

[Danh Cong 422]

17 phút trước, NTHAHT đã nói:

Tìm: vla-GetFont

^^ Cám ơn bác. Câu số 2 đã tìm được lời giải đáp.

Còn câu số 1 nữa.

[NTHAHT 83]

14 phút trước, Danh Cong đã nói:

^^ Cám ơn bác. Câu số 2 đã tìm được lời giải đáp.

Còn câu số 1 nữa.

(entget (tblobjname "style" "Mystyle")'("*"))

[Doan Van Ha 3.196]

26 phút trước, Danh Cong đã nói:

^^ Cám ơn bác. Câu số 2 đã tìm được lời giải đáp.

Còn câu số 1 nữa.

Hoặc:

(defun C:HA()
 (vla-GetFont (vlax-ename->vla-object (tblobjname "style" "MyStyle")) 'n 'b 'i 'c 'p)
 (alert n))

[Danh Cong 422]

7 phút trước, Doan Van Ha đã nói:

Hoặc:

• ha.lsp
  
• [✎]
   

(defun C:HA()
 (vla-GetFont (vlax-ename->vla-object (tblobjname "style" "MyStyle")) 'n 'b 'i 'c 'p)
 (alert n))

 Bác Hạ cho cháu hỏi :::

Tự dưng có biến "n" nhảy xổ vào (alert n)    ---> Biến này chui từ đâu lên vậy bác @@

[Doan Van Ha 3.196]

1 phút trước, Danh Cong đã nói:

 Bác Hạ cho cháu hỏi :::

Tự dưng có biến "n" nhảy xổ vào (alert n)    ---> Biến này chui từ đâu lên vậy bác @@

Đám 5 chữ đó là viết tắt của các thuộc tính: 'name 'bold 'italic 'charset 'pitchandfamily

[Danh Cong 422]

Help Cad: ThisDrawing.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily

Tại cháu đọc chẳng thấy Name nó ở đâu. :))) 

 

[Doan Van Ha 3.196]

1 phút trước, Danh Cong đã nói:

Help Cad: ThisDrawing.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily

Tại cháu đọc chẳng thấy Name nó ở đâu. :))) 

 

Name chính là TypeFace đó