how to select a specific line

[mecoman6GF27]

Hello everybody.
Can anyone explain to me how I can select a specific line that is on a certain layer?
I specify that the layer was used to draw a lot of lines.
Thanks a lot, bye.

[devitg]

@mecoman6GF27  For better understanding, and maybe get further help, please upload such sample.dwg

What condition shall the LINE comply. ?

[mecoman6GF27]

Hi devitg, thanks for the reply.
The line to be selected has no particular conditions to be respected. I can tell you that it is on a layer called "A1" but on the same layer there are many other lines. I would like to select only one of these lines to change the coordinates of the end point.

[SEANT61]

Explore this thread for any pertinent information:

https://forums.autodesk.com/t5/net/selecting-based-on-layer/m-p/6696802

[devitg]

@mecoman6GF27 , please apologize me , i did not notice that it was a no lisp question . I handle lisp 

[mecoman6GF27]

Hello everyone and thanks for the replies.
I have read the information on the link that @SEANT61  recommended me but it talks about all the objects that are on a specific layer. I would like to select only one object of a layer and not all.

[SEANT61]

---

@mecoman6GF27 wrote:

Hello everyone and thanks for the replies.
I have read the information on the link that SEANT61 recommended me but it talks about all the objects that are on a specific layer. I would like to select only one object of a layer and not all.

---

Re-read the thread and test the code sample.  Using specific properties of PromptSelectionOptions the Editor.GetSelection method can be set up to limit selection to one entity, using filtered criteria.

[mecoman6GF27]

Hello everybody. I apologize if I re-open this discussion after several months.
With the following code I have selected the line. Now how do I change the coordinates of the end point of the line?
Hi, thank you very much.

    Private Sub B_Select_Click(sender As Object, e As EventArgs) Handles B_Select.Click
        Dim doc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ed As Editor = doc.Editor

        Dim tvs() As TypedValue

        tvs = New TypedValue() {
            New TypedValue(DxfCode.Operator, "<or"),
            New TypedValue(DxfCode.Operator, "<and"),
            New TypedValue(DxfCode.Start, "CIRCLE"),
            New TypedValue(DxfCode.Operator, ">="),
            New TypedValue(DxfCode.Real, 10.0),
            New TypedValue(DxfCode.Operator, "and>"),
            New TypedValue(DxfCode.Operator, "or>")
            }

        Dim sf As SelectionFilter = New SelectionFilter(tvs)
        Dim psr As PromptSelectionResult = ed.SelectAll(sf)

        ed.WriteMessage("Id Object: " & psr.Value.GetObjectIds(0).ToString)
    End Sub

[_gile]

The code you posted select all the circles with a radius greater or equal to 10.0 units.

Circles are not lines and do not have end point.

[mecoman6GF27]

Sorry, in the code I posted I selected all the circles instead of the lines. If in that code I wanted to change the radius of the circles what should I do?
Thanks a lot, bye.

[_gile]

It's the same process for editing any DBObject:

1. Start a Transaction.
2. Open the object for write from its ObjectId.
3. Edit its properties.
4. Commit the Transaction to save the changes.

You should read this section of the documentation and all the related topics.

[mecoman6GF27]

Hello.
Can you write an example that I can take inspiration from? I would be very grateful to you.

[_gile]

        [CommandMethod("TEST")]
        public static void Test()
        {
            var doc = AcAp.DocumentManager.MdiActiveDocument;
            var db = doc.Database;
            var ed = doc.Editor;

            // Selection filter to select all the circles with a radius greater or equal to 10.0.
            var filter = new SelectionFilter(new[] 
            {
                new TypedValue(0, "CIRCLE"),
                new TypedValue(-4, ">="),
                new TypedValue(40, 10.0)
            });

            var selection = ed.SelectAll(filter);
            if (selection.Status == PromptStatus.OK)
            {
                // Start a transaction
                using (var tr = db.TransactionManager.StartTransaction())
                {
                    // Loop for each selected object
                    foreach (var id in selection.Value.GetObjectIds())
                    {
                        // Open the circle for write
                        var circle = (Circle)tr.GetObject(id, OpenMode.ForWrite);

                        // Change the radius to 15.0.
                        circle.Radius = 15.0;
                    }
                    // Save the changes
                    tr.Commit();
                }
            }
        }

[mecoman6GF27]

Hi _gile, thank you very much for your help. You helped me a lot.
Bye.