mapcar

[Fraid]

Bonjour,

 

Pour joindre des polylignes selon leur calque j'ai ecrit ce lispounet

(defun  c:jptolay (/ i)
(setvar "peditaccept" 1)
(listLayers)
(foreach lay lst1 
(jplay lay)
)
)

(defun jplay (lay)
(if (setq pol(ssget "x" (list (cons 0 "LWPOLYLINE") (cons 8 lay))))
(vl-cmdf "_.pedit" "_m" pol "" "_j" 0.00 "")
)
)

(defun listLayers (/)  ;fonction de giles me semble t'il

 (setq lay (tblnext "layer" T))
 (while lay
   (setq lst1 (cons (cdr (assoc 2 lay)) lst1)
  lay  (tblnext "layer")
   )
 )
)

 

Je pensait y arriver avec mapcar (voulant la comprendre)

 

mais connaissant la fonction foreach, c'est celle la que j'ai fini par utiliser.

 

Donc comment cela s'ecrit avec mapcar?

 

car j'ai eu beau essayer , j'y arrive pah :P

 

merci

[Patrick_35]

Salut

 

(mapcar 'jplay lst1)

 

@+

[Tramber]

 (mapcar '(lambda(x)(jplay x))lst1)

 

Tout simplement. C'est la structure de base.

Tu peux même écrire :

(mapcar 'jplay lst1) 

 

Puisque la fonction ne contient qu'un argument !

 

(mapcar 'jplay (listLayers))

 

Serait encore plus joli si tu mettais lst1 en locale de listLayers et en l'ajoutant avant la dernière parenthèse !

[Fraid]

Merci beaucoup

 

en fait, je me prenais les pieds dans les parenthéses....

 

je ne sais pas pourquoi j'ai du mal avec cette fonction

 

avec Lamda encore pire

 

mais grace a vous je vais y arriver :D

[LUDWIG]

Juste pour indiquer un post similaire :

http://www.cadxp.com/sujetXForum-4426.htm

[(gile)]

Salut,

 

À propos de mapcar (et lambda), il y a, entre autres, cette réponse dans un sujet de Fraid.

[Fraid]

comme j'ai mis du temps a trouver le temps

 

je ne savais plus que c'etait ce post

 

merci ;)