Linetype property example

  
Sub Linetype_Example()
'This example returns the Linetype property.
    Dim ents As Object
    Dim ent As Object
    Dim ct As Long
    Set ents = ThisDrawing.ModelSpace
    ct = ents.count
    Set ent = ents.Item(ct - 1)
    MsgBox "The Linetype property for the last entity is: " & ent.Linetype
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.