[Hỏi] cách tạo style text bằng vba

[huunhantvxdts 193]

Mình viết ứng dụng bằng vba nhưng vướng mắc cách thiết lập textstyle nhờ mọi người giúp với

đây là đoạn code 

Sub TaoTextStyle()
Dim TextStyleObj As AcadTextStyle
Set TextStyleObj = ThisDrawing.TextStyles.Add("chuhoa")
TextStyleObj.SetFont ".VnArial NarrowH", True, False, 0, 34
Set TextStyleObj = ThisDrawing.TextStyles.Add("chuso")
TextStyleObj.SetFont ".VnArial Narrow", True, False, 0, 34
Set TextStyleObj = ThisDrawing.TextStyles.Add("Text")
' lỗi ở dòng này
TextStyleObj.SetFont "vnsimple", True, False, 0, 34
End Sub

đoạn code ở trên chạy được với các font  ".VnArial NarrowH"

mình muốn chuyển sang font "vnsimple" thì bị lỗi 

mong mọi người giúp đỡ 

cám ơn nhiều

[dinhvantrang 151]

Mình viết ứng dụng bằng vba nhưng vướng mắc cách thiết lập textstyle nhờ mọi người giúp với

đây là đoạn code 

Sub TaoTextStyle()
Dim TextStyleObj As AcadTextStyle
Set TextStyleObj = ThisDrawing.TextStyles.Add("chuhoa")
TextStyleObj.SetFont ".VnArial NarrowH", True, False, 0, 34
Set TextStyleObj = ThisDrawing.TextStyles.Add("chuso")
TextStyleObj.SetFont ".VnArial Narrow", True, False, 0, 34
Set TextStyleObj = ThisDrawing.TextStyles.Add("Text")
' lỗi ở dòng này
TextStyleObj.SetFont "vnsimple", True, False, 0, 34
End Sub

đoạn code ở trên chạy được với các font  ".VnArial NarrowH"

mình muốn chuyển sang font "vnsimple" thì bị lỗi 

mong mọi người giúp đỡ 

cám ơn nhiều

Bạn kiểm tra lại trong Cad của bạn có loại Font đó ko nhé. CHứ mình chạy thử cái code của b ạn thì lỗi ngay dòng Set Font thứ nhất do trong máy mình ko có kiểu Font này

[huunhantvxdts 193]

Bạn kiểm tra lại trong Cad của bạn có loại Font đó ko nhé. CHứ mình chạy thử cái code của b ạn thì lỗi ngay dòng Set Font thứ nhất do trong máy mình ko có kiểu Font này

Cad mình đã có font này rồi nhưng mình nghĩ chắc do cấu trúc của các kiểu font khác nhau nên lệnh set font vnsimple không set được

mình thấy trong cad font thế này

.VnArial NarrowH

Vnsimple.shx

[hoanguct 0]

Mình đã thử và củng không chay được đúng dòng code bạn bảo. Mình chuyển qua font một số font khác chay trơn tru.Thôi chuyển qua font khác cho nhanh bạn à.

nếu không ban có thể dùng  code để add text

 

 

Dim newAltFontFile As String
newAltFontFile = "C:/AutoCAD/Fonts/vnsimple.shx"
ThisDrawing.ActiveTextStyle.fontFile = newAltFontFile

[huunhantvxdts 193]

Mình đã thử và củng không chay được đúng dòng code bạn bảo. Mình chuyển qua font một số font khác chay trơn tru.Thôi chuyển qua font khác cho nhanh bạn à.

nếu không ban có thể dùng  code để add text

 

 

Dim newAltFontFile As String

newAltFontFile = "C:/AutoCAD/Fonts/vnsimple.shx"

ThisDrawing.ActiveTextStyle.fontFile = newAltFontFile

Cám ơn bạn nhiều 

[thinhtutn 0]

Các bác cho em hỏi: cho để text nghiêng theo một góc thì làm thế nào? Ví dụ như khi điền độ dốc đường chẳng hạn.

[huunhantvxdts 193]

Các bác cho em hỏi: cho để text nghiêng theo một góc thì làm thế nào? Ví dụ như khi điền độ dốc đường chẳng hạn.

Đây là đoạn code viết text

Set caodo = AcadApplication.ActiveDocument.ModelSpace.AddText(noidung, x, hchu)
        caodo.Alignment = acAlignmentMiddleCenter
        caodo.TextAlignmentPoint = x

gocnghieng = 0 / 180 * 3.14159

        caodo.Rotate x, gocnghieng

caodo.Update

noidung: là nội dung

x: tọa độ

hchu; chiều cao

[thinhtutn 0]

Đây là đoạn code viết text

Set caodo = AcadApplication.ActiveDocument.ModelSpace.AddText(noidung, x, hchu)
        caodo.Alignment = acAlignmentMiddleCenter
        caodo.TextAlignmentPoint = x

gocnghieng = 0 / 180 * 3.14159

        caodo.Rotate x, gocnghieng

caodo.Update

noidung: là nội dung

x: tọa độ

hchu; chiều cao

Em làm được rồi. Cám ơn bác!