strikethrough text

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.

I

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

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.