Finding fonts used in textstyles

Discussion in 'AutoCAD' started by Dave F, Mar 3, 2004.

  1. Dave F

    Dave F Guest

    Hi

    This routine finds all the fonts (.shx &.ttf etc) used in the all
    textstyles.

    1) Is there a way to list only the fonts that are actually used in the
    drawing (& not just loaded)?

    2) Is there a way to exclude the fonts that are used in linetype
    definitions?

    TIA
    Dave F.

    Private Sub ListLoadedFonts()
    Dim curStyle As AcadTextStyle

    For Each curStyle In ThisDrawing.TextStyles
    Debug.Print curStyle.Name
    Debug.Print curStyle.fontFile
    Next 'curStyle
    End Sub
     
    Dave F, Mar 3, 2004
    #1
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.