Create new textstyle if one doesn't exist

[Anonymous]

I've learned how to create MText through VBA and utilize an existing Font Style, is it possible to have VBA check if a Font Style exists in the dwg? If so, it would continue the macro, if not then it would create a specified style. I can't find anything online about this other than directly changing an object's style upon creation, not about creating a style from scratch if the style doesn't exist.

 'CHECKED BY DATE
    Set MTextObj4 = ThisDrawing.ModelSpace.AddMText(corner4, widthN, text4)
        With MTextObj4
            .AttachmentPoint = acAttachmentPointMiddleLeft
            .InsertionPoint = corner4
            .StyleName = StyleName
            .Height = height1
        End With

 ... where StyleName = "PDF Search", the existing style.

[Ed__Jobe]

Here's a quick function. If it returns false, use ThisDrawing.Textsyles.Add()

Public Function HasTextStyle(StyleName As String) As Boolean
    Set HasTextStyle = False
    Dim name As String
    For Each name In ThisDrawing.TextStyles
        If name = StyleName Then HasTextStyle = True
    Next name
End Function

[Anonymous]

Thanks for the swift reply, Ed! When I plug in this code, it keeps stating "Object required". Adding a Dim call for HasTextStyle As Object yields a duplication.

[Ed__Jobe]

You don't dim it. You're not creating an instance of the function, you just call it.

If HasTextStyle("MyStyleName") = false then

  Dim myStyle As AcadTextStyle

   Set myStyle = ThisDrawing.TextStyles.Add("MyStyleName")

   myStyle. 'set some style properties here

End If

[norman.yuan]

---

@Ed__Jobe wrote:

Here's a quick function. If it returns false, use ThisDrawing.Textsyles.Add()

Public Function HasTextStyle(StyleName As String) As Boolean
    Set HasTextStyle = False
    Dim name As String
    For Each name In ThisDrawing.TextStyles
        If name = StyleName Then HasTextStyle = True
    Next name
End Function

---

The red line code should be:

HasTextStyle = False '' That is, "Set" should be removed, because the function's return type is a value type, not an Object type.

[Ed__Jobe]

Oops, I thought I took that out. Thanks for catching it.

[Anonymous]

Cool. I got the code to accept into the form, how can I call them function from a button in the same form? I get "Argument not optional" with direct calls of HasTextStyle on the button.

[Anonymous]

I've been toying with our template border and the VBA layouts, here is what I have:

(This is to tie into my first posting here on the forums of Draw multiple lines )

What I have written requires a pre-existing Text Style of "PDF Search" (hence why I started this thread of how to verify/create).

Please let me know what you think.  When "Accept&Close" is clicked, the Subs are run back to back, there is a separate form for another part of the title block available.