strikethrough text

JM said:

This is a very roundabout way to achieve a simple result.

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..

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

Fantastic!!! Thank you.

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.

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