EntityType property example
Private Sub
EntityTypeExample()
' This example returns the
EntityType property for drawing entities.
Dim ents As Object
Dim ent As Object
Dim ct As Integer
Set ents =
ActiveDocument.ModelSpace
ct
= ents.Count
MsgBox "No. of entities = "
& ct
Set ent = ents.Item(ct)
MsgBox "The EntityType
property for the last entity is: " & ent.EntityType
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. |