[V8i - VBA ] Text without textstyle shows active text style property

Sub macro2()
    Dim ee As ElementEnumerator
    Set ee = ActiveModelReference.Scan()
    Do While ee.MoveNext
        If ee.Current.IsTextElement Then
            Debug.Print ee.Current.AsTextElement.TextStyle.Name
        End If
    Loop
End Sub

When the active text setting is set to "None" textstyle.Name is correct

When the active text setting is set to an existing active Design file textStyle and the text do not have any text style then textStyle.name is active TextStyle Name which is incorrect

Hi,

this is a known issue and a Defect 12126 is filed to address this issue.

Best regards,

Artur

Thank you Artur for the information
Do you know a way to set in VBA the active text style to "none" and the active dimension style to "none" ?
Many thanks
Regards
Remy

Hi Remy,

you may want to try the MDL function mdlTextStyle_setTextStyleInTCB to set textstyle None.

Please test the following VBA code if this works for you with the V8i version you are using:

Declare Function mdlTextStyle_setTextStyleInTCB Lib "stdmdlbltin.dll" (ByVal textStyleId As Long, ByVal modelRef As Long) As Long

Sub setTSNone()
Dim modelRef As Long
Dim rtc As Long
    modelRef = ActiveModelReference.MdlModelRefP
    rtc = mdlTextStyle_setTextStyleInTCB(0, modelRef)
End Sub

I hope this helps?

Artur

Hello Artur,
Yes this works well. Many thanks.
I am looking for the same Function for dimension style but I do not find...
Remy

Hi Remy,

dimension styles behave a litte bit different than text styles, also recorded VBA code could be used to activate dimension style "None".
Please try these lines of code:

CadInputQueue.SendCommand "MDL KEYIN DIMSTYLE DIALOG DIMSTYLE OPEN"
CadInputQueue.SendCommand "DIMSTYLE DESELECT ALL"
CadInputQueue.SendCommand "DIMSTYLE SELECT ""Style:(none)"""
CadInputQueue.SendCommand "DIMSTYLE ACTIVE"
CommandState.StartDefaultCommand

I hope this works for you?

Best regards,
Artur

 

Even If i would have preferred not to use SendCommand, yes it works.
I just had to replace "none" by the translation
Many thanks Artur

Remy and Artur,

Thanks for this discussion, it is very helpful.  I experimented, and in v8i SS4, this sets the active dimension style to 'None' without needing to open the dialog and/or send key-ins:

Set ActiveSettings.DimensionStyle = ActiveDesignFile.DimensionStyles("")