Sub LinetypeScale_Example()
'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 - 1)
MsgBox "The LinetypeScale property for the last entity is: " & ent.LinetypeScale
End Sub
| Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |