LinetypeScale property example

Private Sub LinetypeScalepropertyExample()

'This example returns the LinetypeScale property.

     Dim ents As Object

     Dim ent As Object

     Dim ct As Long

 

     Set ents = ActiveDocument.ModelSpace

     ct = ents.Count

     Set ent = ents.Item(ct)

     MsgBox "The LinetypeScale property for the last entity is: " & ent.LinetypeScale

End Sub