Getting layer name from block insert

[cadconcepts]

Hi All
I have a routine that I am working on but I am not getting the correct layer information that I need. I want to be able to select a point on the object and if it is a block for the routine to return the layer it was inserted on. I am using the following line of code but it is returning the layer name of the object within the block. Any help is greatly appreciated. Thanks.
Manuel

sn_ipt is a selected point on an object that I am passing thru the following code:

(cdr (assoc 8 (entget (car (nentselp sn_ipt)))))

[Ed Jobe]

(nentsel) returns a nested entity. Just use (entsel) for the block reference. A nested entity is a sub-entity of a complex object.

[cadconcepts]

Hi Ed
Ultimately, I need to be able to select a point on an object (block or otherwise) and extract the layer name. I am not sure how entsel works with a point selection to obtain what I need. Thanks.
Manuel

[BlackBox]

Hi Ed
Ultimately, I need to be able to select a point on an object (block or otherwise) and extract the layer name. I am not sure how entsel works with a point selection to obtain what I need. Thanks.
Manuel

Utilize ENTSEL, as has aptly been suggested... or consider SSGET.

[Ed Jobe]

Hi Ed
Ultimately, I need to be able to select a point on an object (block or otherwise) and extract the layer name. I am not sure how entsel works with a point selection to obtain what I need. Thanks.
Manuel

All you have to do is remove the 'n', change (nentsel) to (entsel). They work the same way, except that (nentsel) returns the sub entity you clicked on, while (entsel) returns the block.

[cadconcepts]

Hi Ed
I tried that and it doesn't work because I am not using nentsel, I am using nentselp. Any other suggestions? Thanks.
Manuel

[Ed Jobe]

OK, let's start from the beginning..Maybe you could show some more code.
If you don't want to change how you are selecting the entity, (how are you getting sn_ipt?), then you could use dxf code 330 to get the handle of the entity's owner.

[did-ave]

Bonjour @cadconcepts

I do not understand why you select a point, it would be better to select an entity and ask the layer with the "assoc 8".
Example :

(setq blo (car (entsel "\nSelect the block you want to know the insert layer\n")))

(if (= "INSERT" (cdr (assoc 0 (entget blo))))
    (alert
        (strcat "The block "
                (cdr (assoc 2 (entget blo)))
                " is on the layer : "
                (cdr (assoc 8 (entget blo)))
                )
        )
    (alert "the selected entity is not a block")
    )

Amicalement

[Ed Jobe]

Bonjour @cadconcepts

I do not understand why you select a point, it would be better to select an entity and ask the layer with the "assoc 8".

I assume it's because he wanted to do it programmatically and not prompt the user.

[cadconcepts]

Hi Ed
What I am trying to do is the following. I am inserting an arrow head at the end of a line, polyline or arc and rotating it into place. Once the arrow is insert the routine reads the object at the insertion point and changes the arrow head's layer to match the object. That is working fine with the following code: (cdr (assoc 8 (entget (car (nentselp sn_ipt))))). However, if the object at the insertion point is happens to be a block the previous code returns the nested objects layer not the inserted layer. I hope this clearer. I wish I could post the code but it is part of a much much larger routine. Thanks.
Manuel