strikethrough text

RE: strikethrough text

Lorys — Sat, 02 Jul 2022 11:12:28 GMT

[quote userid="954208" url="~/products/microstation/f/microstation-forum/110944/strikethrough-text/719087"]This is a very roundabout way to achieve a simple result. [/quote]

very clever Jim, personally for not to true scale dimensions I would built a custom terminator to have a zig zag ... but as I only do one or two of these dims I just drop the dimension and make a manual zig zag with insert vertex tool ... I also have a company vba that draws parallel break lines on top of elements.. but you have to drop dims first other elements its fine but the OP did ask for strike thru so well done..

RE: strikethrough text

mlm — Thu, 30 Jun 2022 06:58:25 GMT

Thanks Todd.

I wonder. As far as I know the Text Editor is based on microsoft tech(?) Every other program managing text that I used has this setting.

(but then there are other things that I quarrel with here: like color settings for fonts (you were able to set them on the fly as far as I remember in earlier versions) or that you cannot set text width other than via the text style dialog,...)

JMs VBA is brilliant- but as he said it is again another workaround for something that should be a no brainer

RE: strikethrough text

MaryB — Wed, 29 Jun 2022 15:19:26 GMT

Fantastic!!! Thank you.

RE: strikethrough text

JM — Wed, 29 Jun 2022 14:54:27 GMT

I was looking for how to make Strikethrough text, and I found one way to do it (using V8i SS10 version 08.11.09.931). This post is currently top Google result so I will share here.

With VBA it is possible to use Underline to create "strikethrough" by setting UnderlineOffset to a negative value that is half the text Height.

Sub StrikeThroughText()
  'process selected elements
  Dim EE As ElementEnumerator
  Set EE = ActiveModelReference.GetSelectedElements
  Dim ScanArray() As element
  ScanArray = EE.BuildArrayFromContents
  
  Dim ScanElement As Variant
  For Each ScanElement In ScanArray
    Dim eeCurrent As element
    Set eeCurrent = ScanElement
      
    'STRIKETHROUGH text using underline
    If eeCurrent.IsTextElement Then
      With eeCurrent.AsTextElement
        .TextStyle.IsUnderlined = True
        .TextStyle.UnderlineOffset = .TextStyle.Height * -0.5
      End With
      eeCurrent.Rewrite
    ElseIf eeCurrent.IsTextNodeElement Then
      Dim TNEE As ElementEnumerator
      Set TNEE = eeCurrent.AsTextNodeElement.GetSubElements
      Do While TNEE.MoveNext
        Dim oText As TextElement
        Set oText = TNEE.Current
        With oText
          .TextStyle.IsUnderlined = True
          .TextStyle.UnderlineOffset = .TextStyle.Height * -0.5
          oText.Rewrite
        End With
      Loop
    End If
  Next
End Sub

Once you have used VBA to create text with "strikethrough" then you can use Match Text Atributes and create a new text style as shown below.

NOTE! it is not possible to set the Underline Offset to a negative value manually. I have only been able to do this using VBA first.

This is a very roundabout way to achieve a simple result. A built in Word Processor feature would be better.

RE: strikethrough text

Todd Cassell — Mon, 14 Sep 2015 13:37:46 GMT

Hi Thomas,
I filed enhancement request #290195 for this ability to be added.

RE: strikethrough text

Lorys — Sat, 12 Sep 2015 00:32:13 GMT

The only way I know to get strike through text is to go online and find a strike through TrueType font and then add that to your machine.. this is however adds another problem only you can see that font as its not standard to cad or windows so it needs to be networked and if you issue cad files to clients you have to remember to give them that font .. so what have always done to prevent this is to always use the packager and add in fonts and line styles as well as references .. that way its fool proof .. after all a few years later another drafter will not know the history of the cad work or department use of non standard fonts and custom linestyles.

RE: strikethrough text

Thomas Voghera — Fri, 11 Sep 2015 20:11:14 GMT

Yes please do.

My thought was to use it in a dimension on an existing building element indicating it is not modeled/drawn an actual size.

RE: strikethrough text

Todd Cassell — Fri, 11 Sep 2015 14:13:26 GMT

Hi Thomas,
From what I can see, this option does not seem to be available at this time. I checked in V8i as well as Connect. I would imagine this could be files as an enhancement, if it hasn't been already.

Thanks