Topic: nested ename list

[CAB]

Thanks Tim, the light just went on. 
When you use nentselp the entity selected returns the SAME ENAME for all inserts and
therefore all point back to the first block. Why I didn't think about the fact that the entity data for the BLOCK is
only in the BLOCK record who knows. But the insert does not contain that info therefore there in no path back to the actual
insert selected except through the nentselp function. You might be able to back into that information with a point but if
the Inserts overlapped, that would make it near imposable to locate the correct insert.

[T.Willey]

Hi,

My 2 cents, if I do understand the request (not deeply tested).

Code: [Select]

(defun nested-list (child / parent)
  (if (setq
parent (cdr (last (vl-remove-if-not
    '(lambda (p) (= (car p) 331))
    (entget (cdr (assoc 330 (entget child))))
  )
    )
       )
      )
    (cons child (nested-list parent))
    (list child)
  )
)

Same as the others gile.

Command: (nested-list (car (nentsel)))

Select object: (<Entity name: 7ed2d0a8> <Entity name: 7ed2d2c0>)


Command: (nested-list (car (nentsel)))


Select object: (<Entity name: 7ed2d0a8> <Entity name: 7ed2d2c0>)

Command: (nested-list (car (nentsel)))


Select object: (<Entity name: 7ed2d0a8> <Entity name: 7ed2d2c0>)

[gile]

OK, I didn't see the problem, I understand it now...
Sorry.

[T.Willey]

OK, I didn't see the problem, I understand it now...
Sorry.

Not a problem.  The more people thinking on this, the more likely we are to find something, if anything is possible.

[MP]

How about --

Code: [Select]

(defun GetGuardians ( ename / foo result )

    (defun foo ( ename / data owner )
        ;;  variable result is a lexical global
        (if (eq "BLOCK_RECORD" (cdr (assoc 0 (setq data (entget ename)))))
            (   (lambda ( / owner ownerdata )
                    (vl-some
                       '(lambda ( pair )
                            (and
                                (eq 331 (car pair))
                                (setq owner (cdr pair))
                                (setq ownerdata (entget owner))
                            )
                        )
                        data
                    )
                    (if ownerdata
                        (foo owner)
                        (setq result (cons (cdr (assoc 360 data)) result))
                    )
                )
            )
            (if (setq result (cons ename result))
                (foo (cdr (assoc 330 data)))
            )
        )
    )

    (foo ename)

    (cdr (reverse (cdr result)))

)

[T.Willey]

Nope.

GETGUARDIANS

Command: (getguardians (car (nentsel)))

Select object: (<Entity name: 7ed2d0e0>)

Command: (getguardians (car (nentsel)))


Select object: (<Entity name: 7ed2d0e0>)


Command: (getguardians (car (nentsel)))


Select object: (<Entity name: 7ed2d0e0>)

Command: (getguardians (car (nentsel)))


Select object: (<Entity name: 7ed2d0e0>)

[MP]

Well carp, it works with my sample data.

[MP]

Maybe I don't understand the challenge. I thought we were trying to replicate the nesting revealed by nentselp.

Command: (setq list1 (last (nentselp)))

Select object: (<Entity name: 7efa23a8> <Entity name: 7efa2410> <Entity name:
7efa2438> <Entity name: 7efa2460> <Entity name: 7efa2488> <Entity name:
7efa2498>)

Command: (setq list2 (getguardians (car (nentsel))))

Select object: (<Entity name: 7efa23a8> <Entity name: 7efa2410> <Entity name:
7efa2438> <Entity name: 7efa2460> <Entity name: 7efa2488> <Entity name:
7efa2498>)

Command: (mapcar 'eq list1 list2)

(T T T T T T)

{shrug}

[T.Willey]

Maybe I don't understand the challenge. I thought we were trying to replicate the nesting revealed by nentselp.

We are, but with my tests nothing has worked.  All selecting the same insert, out of ~15 inserts.

Command: (nentsel)


Select object: (<Entity name: 7ed2d0a8> (-14.6347 4.44528 0.0) ((1.0 0.0 0.0)
(0.0 1.0 0.0) (0.0 0.0 1.0) (-14.1187 4.45876 0.0)) (<Entity name: 7ed2d220>))

Command: (nentselp (getpoint))
(<Entity name: 7ed2d0a8> (-14.1187 4.45876 0.0) ((1.0 0.0 0.0 -14.1187) (0.0
1.0 0.0 4.45876) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0)) (<Entity name: 7ed2d220>))


Command: (getguardians (car (nentsel)))

Select object: (<Entity name: 7ed2d0e0>)

[MP]

Ok, I see the problem Tim. Thanks for your patience.

[T.Willey]

Ok, I see the problem Tim. Thanks for your patience.

No problem.  You're welcome Michael.


I can't think of any way to do this, because the nested entity has nothing to do with the insert.

[MP]

I'm still working on my first approach ... but just thinking outside the box, so to speak, you might be able to associate an entity with its outermost nested block(s) by analyzing their (transformed) respective bounding boxes. kludgey? Yep.

[T.Willey]

I'm still working on my first approach ... but just thinking outside the box, so to speak, you might be able to associate an entity with its outermost nested block(s) by analyzing their (transformed) respective bounding boxes. kludgey? Yep.

This will give you the bounding box of the block definition, but how can you tell where the line ( per say ) is within the drawing and not the block definition?  The entity is only know by the block definition.  Nothing changes in the nested entity codes, only on the insert, so I don't  see any association between the nested entity and the insert, but then again I hope I'm wrong.  Good luck.

[MP]

I don't remember saying the bounding box analysis was limited to the block definitions.

[T.Willey]

I don't remember saying the bounding box analysis was limited to the block definitions.

True.  But the bounding box of the nested entity is always the same, because no matter which insert you select, the nested entity dxf code is the same.  So if you get a true result, I think it will be a false true.  But I hope you prove me wrong.  I would love to see how someone was able to find the insert from a nested entity.

Thinking about this now, I don't see how this would ever be used, or should I say that I can't see a way that it would be used without the information from nentsel(p).