[Résolu] Petit souci dans une routine

[DenisHen]

Bonjour à la communauté. Voilà, j'ai un souci mais je ne sais pas exactement lequel, raison pour laquelle le titre est un peu "flou"... J'ai écris ce code :

  (princ "\nDébut du remplacement des blocs")   (setq LstBlk '(("EAU12*" . "EAU12")                  ("EAU22*" . "EAU22")                  ("EAU32*" . "EAU32")                  ("EAU42*" . "EAU42")               	;Et patati               	;Et patata             	)   ) ;_ Fin de setq ;;;Début de la boucle (foreach PosLstBlk LstBlk   (setq n 0)   (if (setq Select (ssget "_X" (list (cons 0 "INSERT") (cons 2 (car PosLstBlk))))) 	(while (setq ent (ssname Select n))   	(setq elst  (entget ent)         	Coord (cdr (assoc 10 elst))         	EchX  (cdr (assoc 41 elst))         	EchY  (cdr (assoc 42 elst))         	Rot   (cdr (assoc 50 elst))         	n 	(1+ n)   	) ;_ Fin de setq   	(setvar "clayer" (cdr (assoc 8 elst)))   	(command "_erase" ent "")   	(setq Coord (strcat (rtos (car Coord) 2 3) "," (rtos (cadr Coord) 2 3)))   	(setq Rot (+ Rot (/ pi 2)))   	(command "-inserer" (cdr PosLstBlk) "_non" Coord EchX EchY (angtos Rot 2 3)) 	) ;_ Fin de while   ) ;_ Fin de if ) ;_ Fin de foreach 

AutoCAD me répond :

Début du remplacement des blocs; erreur: nombre d'arguments trop important

Je sais, grace à la console, que, quand ça plante, n = 0 Mais je ne sais pas quoi faire avec ça. Si quelqu'un a une astuce, un conseil ou une idée, je suis preneur... Denis...

[Patrick_35]

Salut

 

Je pense que le problème vient qu'un bloc peut-être inséré en précisant le facteur d'échelle x, y et z; alors que d'autres avec seulement 1 facteur d'échelle.

 

Tu peux le voir grace à la case coché ou pas dans la commande bloc --> Mettre à l'échelle uniformément

Ou avec cette fonction (pas trouvé le code dxf)

(vla-get-blockscaling (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) "Mon_Bloc"))

 

@+

[Patrick_35]

(pas trouvé le code dxf)

Maintenant si

(cdr (assoc 281 (entget (cdr (assoc 330 (entget (cdr (assoc -2 (tblsearch "block" "Mon_Bloc")))))))))

 

@+

[DenisHen]

Bonjour Patrick_35.

 

J'ai rebooter et ça marche...!?!

 

D'où ça venait, aucune idée...?

 

Merci pour ton aide.

 

Denis...