About assoc

[saitoib]

Hi all.

In the following code, the ent in line A is

ent = (-3 ("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1)))

I get an error on line B. What is wrong?

What is wrong?

Thank you.

(defun _sort_panel ( ss / nn i id ent lay panel_list)
  (setq nn (sslength ss))
  (setq i 0)
  (repeat nn
    (setq id (ssname ss i))
    (setq ent (assoc -3 (entget id '("XData")))) ;A
    (setq ent (assoc 1070 ent)) ;B

  )
)

[ВeekeeCZ]

(cdr ent) missing?

[cadffm · Accepted solution]

[Typos edited - the third time :-/]

Hi,

after line a the value is ent = (-3 ("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1)))

same list, another formatting:

( -3

  ("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1))

)

So, you have 2 items inside and the list isn't a valid association list (a list with nested listes inside only)

Command: (cdr (-3 ("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1))))

(("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1)))

Now, there are only ONE list inside, but the assoc-element is "xdata" - what you don't want.

Command: (cadr '(-3 ("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1))))
 ("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1))

Not only lists inside

Command:: (cdadr '(-3 ("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1))))
((1040 . 90.0) (1040 . 4.1) (1070 . 1))

Now, only lists inside (valid association list) and you can use ASSOC!

Command:: (assoc 1070 (cdadr '(-3 ("XData" (1040 . 90.0) (1040 . 4.1) (1070 . 1)))))
(1070 . 1)

[ВeekeeCZ]

Removed.

---

[cadffm]

thx you, but I was faster 🤣

I had to edit my edit <crazy> 😐

[saitoib]

@cadffm 

Thank you very much.
I understand now.

[diagodose2009]

Please you upload a Sample.Dwg with entities + Xdata..
Can you share a your Drawing.dwg?

[saitoib]

Would this be of any help to you?