怎么修改字体

qwh923820

为什么这样修改标注样式字体是不行的，该怎么修改？？

2. Private Sub Form_Load()
   
3. Dim newText As Object
   
4. Dim ys As Object,n&
   
5. On Error Resume Next
   
6. Set acadApp = GetObject(, "AutoCAD.Application")
   
7. If Err Then
   
8.     Err.Clear
   
9.     Set acadApp = CreateObject("AutoCAD.Application")
   
10.     If Err Then End
    
11. Else
    
12.     Set acadDoc = acadApp.Documents.Add
    
13. End If
    
14. acadApp.Visible = True
    
15. n = acadApp.Documents.Count
    
16. Set acadDoc = acadApp.Documents(n - 1)
    
17. Set ys = acadDoc.ActiveDimStyle
    
18. Set newText = acadDoc.TextStyles
    
19. newText.Item(1).Name = "宋体"
    
20. End Sub
    

Private Sub Form_Load()<br /> Dim newText As Object<br /> Dim ys As Object,n&<br /> On Error Resume Next<br /> Set acadApp = GetObject(, "<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Application")<br /> If Err Then<br />     Err.Clear<br />     Set acadApp = CreateObject("AutoCAD.Application")<br />     If Err Then End<br /> Else<br />     Set acadDoc = acadApp.Documents.Add<br /> End If<br /> acadApp.Visible = True<br /> n = acadApp.Documents.Count<br /> Set acadDoc = acadApp.Documents(n - 1)<br /> Set ys = acadDoc.ActiveDimStyle<br /> Set newText = acadDoc.TextStyles<br /> newText.Item(1).Name = "宋体"<br /> End Sub<br />

cabinsummer

试试这样行不行

qwh923820

cabinsummer 发表于 2018-8-3 13:21
试试这样行不行

谢谢，已解决，引用@zzyong00的办法

cad用单线字体好一点，字多也速度快
'创建新的字体样式
Public Sub NewTextStyle2()   '创建新的字体样式，gbenor.SHX gbcbig.SHX 字体
    On Error GoTo err1
    Dim lkxtextstyle As AcadTextStyle
    Set lkxtextstyle = ThisDrawing.TextStyles.Add("ZZY_2")
    With lkxtextstyle
        .fontFile = "gbenor.SHX"
        .BigFontFile = "gbcbig.SHX"
        .Width = 0.85
    End With
    Exit Sub
err1:
    Err.Clear
    Resume Next
End Sub

oistre

下载试试，谢谢源码！

wojiaohuyong

谢谢源码！