How we get the object property

[avinash00002002]

I have some polygons created by Pline, In this polylines some text and points in different layers. I have created program in AutoLISP.

Autolisp program does

1. first it will prompt a point inside the polygon, It will create new boundary.

now entering VBA program

1. Select last boundary by last object and select everythings in the polygons (Text and points)
2. now we have selected object in the polygon, we can used them as a previous object.

(WANT TO GET THE TEXT VALUE AND LAYER NAME OF POINTS ONE BY ONE)

but My question is how can we I get the property of previous selected object.

Can any one give me an Idea or VBA Code for me?

pixlepark96@sancharnet.in

[rkmcswain]

but My question is how can we I get the property of previous selected object.

Can any one give me an Idea or VBA Code for me?

What is so special about the previous selected object?

If you have created a selection set from your text and points inside the polygon, then you can just iterate this selection set and retreive the desired properties from each entity.

[jwanstaett]

this code will set ss to the previous selected objects it will error if there is not previous selected objects

Set ss = ThisDrawing.SelectionSets("CURRENT")

[avinash00002002]

Previous selected objects means.

In AutoCAD we have a boundary command ok,
I have to pick in the polygon only, it will create new boundary for me, (This function runs in the autolisp)
then going to VBA it will select by new boundary's vertex means in the polygon.
now all the objects in the polygon already selected.

then It can be recall as a previous selected object ok,

I want the all the selected object property one by one. (like if there is a text = text value , If there is a point = Layer name of point)

[rkmcswain]

I want the all the selected object property one by one. (like if there is a text = text value , If there is a point = Layer name of point)

Ok. Let me repeat the second part of my last sentence

then you can just iterate this selection set and retreive the desired properties from each entity.

Why does the above method not fulfill your needs?

[avinash00002002]

Sir, I don't know this method you send me a sample for it.

[rkmcswain]

For this example, I drew and selected a:

• Circle
• Line
• Ray
• Arc
• Text
• Point

Sub demo()
Dim ss As AcadSelectionSet, item As AcadEntity, str As String
Set ss = ThisDrawing.PickfirstSelectionSet
' The above two lines are just so I can form
' a selection set. You are forming one in a different
' way, right? 
 For Each item In ss
    Select Case item.ObjectName
        Case Is = "AcDbArc": str = str & "ARC RADIUS = " & item.Radius & vbCrLf
        Case Is = "AcDbText": str = str & "TEXT STRING = " & item.TextString & vbCrLf
        Case Is = "AcDbLine": str = str & "LINE LAYER = " & item.Layer & vbCrLf
        Case Is = "AcDbRay": str = str & "RAY LINETYPE = " & item.Linetype & vbCrLf
        Case Is = "AcDbCircle": str = str & "CIRCLE AREA = " & item.Area & vbCrLf
        Case Else: str = str & "ENTITY FOUND = " & item.ObjectName & vbCrLf
     End Select
 Next item
 MsgBox str
End Sub

Which will return the following information



Summary:

• Iterate the selection set
• Check the entity type
• Query for properties that apply to that entity