créer des wbloc pour mes calques !

[doua]

salut,

 

j'ai fait un programme pour créer des wbloc pour chaque calque en integrant dans chaque calque le calque "cartouche " .

mais il me donne comme erreur :

 

type d'argument incorrect: listp

 

je me demande si ce n'ai pas sur cette ligne ou je me suis tromper

 

(setq sel2 (ssadd (ssname sel1 i) sel2))

 

voilà une partie du programme (en fait la variable "ncalque" contient tous mes calques)

 

;;---Début---------------------------------------------------C:eclatfol---
;; crée des wblocs avec les layers d'un dessin    >>
;-------------------------------------------------------------------------------

 (setq sel1 (ssget "x" (list (cons 8 "cartouche"))))
 (setq sel2 (ssget "x" (list (cons 8 ncalque))))
   
	(setq long1 (length sel1))
 
;(setq sel sel2)
   (setq i 0)

 (repeat long1   
    
   
(setq sel2 (ssadd (ssname sel1 i) sel2))
   
(setq i (+ i 1)) 
   )
(setq nomfich (getvar "dwgname"))
   
(setq nomdir (getvar "dwgprefix"))
   
(setq nomfich (substr nomfich 1 (- (strlen nomfich) 4)))
(if sel2
  (command "_wblock" (strcat nomdir nomfich "_" ncalque) "" (list 0 0) sel2 "")
)		         

   (setq compt (+ compt 1))
  
  )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

 

merci pour votre aide

 

doua

[bonuscad]

type d'argument incorrect: listp

 

Signifie que l'argument sousmis n'est pas une liste.

 

Je ne sais comment est ta variable ncalque, donc je pense plutôt à cette ligne

(list (cons 8 ncalque)), ou ailleurs dans le reste de ton code non posté.

 

J'ai trouvé: (length) requiert une liste!

 

Tu doit employer (sslength) pour avoir le nombres d'éléments dans un jeu de sélection.

 

[Edité le 23/5/2006 par bonuscad]

[doua]

salut bonuscad,

 

 

citation extraite du message original:

 

******J'ai trouvé: (length) requiert une liste!

Tu doit employer (sslength) pour avoir le nombres d'éléments dans un jeu de sélection.

 

c'etait ça on fait qui bloque, car mnt il m'a créer le fichier wblock

 

c'est bon ça marche !!

 

merci bonuscad

 

 

[DenisHen]

Bonsoir à tous...

 

(en fait la variable "ncalque" contient tous mes calques)

 

J'aimerais savoir, justement, comment remplir cette liste pour y avoir celle de mes calques...

 

Merci,

 

Denis...

[(gile)]

Pour avoir la liste de tout les calques (dans l'ordre alphabétique)

 

(setq lay (tblnext "LAYER" T)) ; données du premier calque de la collection
(while lay
 (setq lay_lst (cons (cdr (assoc 2 lay)) lay_lst) ; constitution de la liste
lay (tblnext "LAYER") ; données du calque suivant
)
 )
(acad_strlsort lay_lst) ; mise en ordre alphabétique