topic About assoc in Visual LISP, AutoLISP and General Customization Forum

About assoc

saitoib — Thu, 12 May 2022 08:08:54 GMT

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 ) )

Re: About assoc

ВeekeeCZ — Thu, 12 May 2022 08:24:28 GMT

(cdr ent) missing?

Betreff: About assoc

cadffm — Thu, 12 May 2022 13:13:24 GMT

[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)

Betreff: About assoc

ВeekeeCZ — Thu, 12 May 2022 09:03:04 GMT

Removed.

Betreff: About assoc

cadffm — Thu, 12 May 2022 08:58:42 GMT

thx you, but I was faster 🤣

I had to edit my edit <crazy> 😐

Re: About assoc

saitoib — Thu, 12 May 2022 13:09:01 GMT

@cadffm

Thank you very much.
I understand now.

Re: About assoc

diagodose2009 — Mon, 16 May 2022 19:29:25 GMT

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

Re: About assoc

saitoib — Mon, 16 May 2022 21:48:02 GMT

Would this be of any help to you?