how to look the AcadEntity

this code corret or not to look all entity
in 1 selection object (1 object)

Private Sub CommandButton1_Click()
Dim ssget As AcadSelectionSet
Set ssget = ThisDrawing.SelectionSets.Add("ssname")
Me.Hide
ssget.SelectOnScreen
UserForm1.Show
Dim entity As AcadEntity
For Each entity In ssget
..... here how to put the coding for looking entity

Next entity
ThisDrawing.SelectionSets("ssname").Delete
End Sub

 

Depends what you looking for..Object have different methods & properties...

Some are common to all objects though.. See sample..I also changed you
syntax a bit....I wouldn't use a LISP method(ssget) as a Varaible
name in VBA...Saves confusion if your going to be using both languages in a
program...Evern if not just a good idea im my opinion...

Private Sub CommandButton1_Click()
Me.Hide
Dim ssEntities As AcadSelectionSet
Dim eName As String
Dim eID As Double
Set ssEntities = ThisDrawing.SelectionSets.Add("ssname")

ssEntities.SelectOnScreen

Dim entity As AcadEntity
For Each entity In ssEntities
eName = entity.ObjectName 'Holds name of current obj
eID = entity.ObjectID 'Holds ID of current obj
MsgBox "Entity name is: " & eName & vbCrLf & _
"Entity ID is: " & eID
Next entity

ThisDrawing.SelectionSets("ssname").Delete
End Sub

 

Sorry...

"Holds" probably wasn't a good choice of words..."Points to" would have been
better choice...The object holds(owns) it's properties...We just point to
them...

Someone please save me if I'm off base...tks...Nothing like fixing your own
mistake by stating another...

 

Thanks for that, Paul. Interesting (at least to me) change of words.

 

I thought he might have meant how to look at it, maybe highlight it or zoom to it. I may be wrong there, but in either case...

Sub TryThis()
Dim oEnt As AcadEntity
Dim pt, ptMin, ptMax

ThisDrawing.Utility.GetEntity oEnt, pt, "Select an entity: "
oEnt.Highlight True
oEnt.GetBoundingBox ptMin, ptMax
Application.ZoomWindow ptMin, ptMax
End Sub

 

ah...

zoom to it. I may be wrong there, but in either case...

 

thank guys i'm now clear.... what yours mean