Topic: Question for cheese. Autolisp small program

[mrrgoncalves]

Hi everyone,

Must say this at first line, need your lisp experience to complete a small lisp.
My experience with autolisp is almost nill, so...be some patiente, pls.

First part:
The program starts to read attributes from a block (dynamic) with a specific "TAG" then
 get those values, get the entity name  of the block and create a list (list1) with all entities found in the drawing.
The method to select blocks is by ssget X.
Second part:
Read a file (csv), and create a list (list2) with all row data. Each line have a value and layer name separated by tab \t

Now comes the part that need to compare list1 and list2...and if the value of attibute (list1) made part of list 2, select the respective block by entity name and change the layer.

How compare two lists and execute the modifications??
Example:
List1 (("FE214" <Entity name: 7ffff93cad0>) ("FE277" <Entity name: 7ffff93c950>>))
List2 (("FE213" "LAYER1") ("FE214" "LAYER2") ("FE277" "LAYER3"))


Each list could have more than 100 sublists.

Thanks in advance.

[ribarm]

You can iterate list1 and get TAG value, and then use vl-member-if function to check existance of TAG value in list2... If values match then entmod corresponding ename from list1 with layername from list2...

[mrrgoncalves]

Code: [Select]

(defun c:aca ()
  (setq ssall (ssget "X"
     '((0 . "INSERT")
       (66 . 1)
      )
      )
  )
  (setq attlist nill)
  (setq edata nill)
    (setq lst nill)
(repeat (sslength ssall)
  (setq ent (ssname ssall 0))
  (setq ent1 (ssname ssall 0))
  (setq bname (entget ent1))
  (setq bloc (car bname))
  (setq bloc (cons (assoc 1 bname) bloc))
  (while (setq ent (entnext ent))
    (setq edata (entget ent))
    (if (= (cdr (assoc 2 edata)) "IDENT")
      (progn
     (setq attlist (cons (cdr (assoc 1 edata)) attlist))
      (setq attlist (cons (cdr (assoc -1 bname)) attlist))
)
    ) ;end if
  ) ;end while


  (ssdel (ssname ssall 0) ssall)
) ;end repeat
(defun filo ()
  (setq op (getfiled "Open file" "" "txt" 2))
  (progn
    (setq rea (open op "r"))
  )
  (setq rline (read-line rea))
  (while (setq rline (read-line rea))
    (setq flst (cons rline flst))
  )
  (close rea)
)
  (filo)

Ok, thank you, but how could make this work using vanilla... using member function with 2 lists? sorry, i dont get it how 

[ribarm]

Code: [Select]

attlist
flst

(setq attlist (cons (list (cdr (assoc 1 edata)) (cdr (assoc -1 bname))) attlist))

(foreach a attlist
  (if (vl-member-if '(lambda ( x ) (equal (car a) (car x))) flst)
    (progn
      (entmod (subst (cons 8 (cdr (assoc (car a) flst))) (assoc 8 (entget (cadr a))) (entget (cadr a))))
      (entupd (cadr a))
    )
  )
)

(vl-member-if) doesn't require (vl-load-com) so it's Vanilla function...

[irneb]

Answering the OP directly without any VL functions used

Code - Auto/Visual Lisp: [Select]

1. (defun ChangeToCSVLayers (list1 list2 / found)
2.   (foreach item list1
3.     (if (setq found (assoc (car item) list2))
4.       (entmod (list (cons -1 (cadr item)) (cons 8 (cadr found))))
5.     )
6.   )
7. )

[mrrgoncalves]

Ok, now i could go on.
Really enjoy your solutions.
Now have just some minors adjustments to do.
Thank you irneb and ribarm

[mrrgoncalves]

Now i m stuck again.

Run the lisp and the end have this error.
use the vl-member-if solution by ribarm

aca ; error: bad DXF group: (8 "LAYER2")

I guess i need a dotted pair list, but...

[gile]

The dot is missing in your dotted pair:
(8 . "LAYER2")

[mrrgoncalves]

Ok,
but whats wrong with the code

(cons 8 (cdr (assoc (car a) flst)))

doesnt creat a dotted pair
 
the result is (8 "LAYER2")
but should be (8 . "LAYER2")

[Kerry]

try using cadr to return the layer name ;  something like:

Code - Auto/Visual Lisp: [Select]

1. (setq flst '(("FE213" "LAYER1") ("FE214" "LAYER2") ("FE277" "LAYER3")))
2.  
3.  
4. (setq index "FE214")
5.  
6. (cons 8 (cadr (assoc index flst)))

; -> (8 . "LAYER2")

Code - Auto/Visual Lisp: [Select]

1.  
2.  
3. (cdr (assoc index flst)) ;;-> ("LAYER2")
4. (cadr (assoc index flst)) ;;-> "LAYER2"
5.  
6.  

[gile]

(cdr (assoc (car a) flst)) should return ("LAYER2"), a list, instead of "LAYER2" a string.
IO:
- if (assoc (car a) flist) returns (x "LAYER2") a list with two items, (cdr (assoc (car a) flst)) returns the list but the first item: ("LAYER2")
- if (assoc (car a) flist) returns (x . "LAYER2") a dotted pair, (cdr (assoc (car a) flst)) returns the second itemas an atom: "LAYER2"
in the first case, to get the second item of the list, use: (cadr (assoc (car a) flst))

Kerry was faster...

[mrrgoncalves]

Cadr was missing!! Receive now an atom instead a list and all works perfectly.

Very important for me this BIG help from you.
Thank you, it works now!