nounours44

Pour être plus clair. Je crée des cartouches avec attribut pour mon entreprise. (Jusque-là tout va bien) J’aimerais que quand les utilisateurs remplissent le bloc cartouche il y a une liste de choix qui apparaisse. Dans la capture d’écran que j'ai mise dans le premier message c'est exactement ce que je voudrais mettre en place. (La capture d'écrans provient d'une charte graphique que l'on utilise pour un client) Quand je double clic sur le bloc la fenêtre édition des attributs apparaissent. (Ça facile) Ensuite quand je clique sur certain attribut à remplir une deuxième fenêtre apparais qui se nomme choix dans une table: xxxxxx.TBL, ou il y a la liste des attributs possible. Donc j'ai été voir comment est construit le bloc mais les attributs non rien de particulier mise à part que pour la référence du schéma il n'y a qu'un seul attribut alors que moi j'en remplis 4 dans l'édition des attributs. Ce que je ne comprends pas c'est comment sont construits ces attributs. comment est faite la liaison avec le fichier .TBL (exemple de fichier TBL en pièce jointe et j'ai renommer l'extension en txt pour qu'il passe) Faut-il vraiment passer par un lisp car je ne voit pas comment le lisp vas ce déclencher en cliquant sur l'attribut? CLASSE_MAT.txt

personne pour m'aider?

pour information la commande utiliser pour ouvrir la fenêtre édition des attributs est _eattedit et est lancer en double clic sur le bloc. l'autre fenêtre est ouverte en cliquant sur l'attribut dans la première fenêtre. comment un lisp peut-il ce lancer avec une commande basic autocad.

Bonjour, auriez vous idée de comment on crée un bloc avec des attributs qui propose un choix de valeur contenu dans un fichier txt.TBL http://fotoforum.fr/photos/2015/03/20.29.jpg

en fait je vient de voir que une des ligne que j'ajout au jeu de sélection est supprimer plus tard et donc mon jeu de sélection pointe vers un élément qui n'existe plus. je pence que je doit faire un test de la longueur de l'élément avant de l'intégrer au jeu de sélection mais je ne suis pas sur que ça résolve le problème.

voila tout les code si ça peut aider car je doit avouer que le v-lisp c pas mon truc. si tu veut un fichier pour tester je peut le fournir mais que par MP ; =============================================== ; ; COUPURE AUTOMATIQUE DES LIGNES QUI SE CROISENT ; POUR LA CREATION DE SCHEMA. ; ; Ce programme a été conçu dans le cadre d'une ; formation AutoLISP. ; =============================================== ;RAISONNEMENT : ;1 - récup valeur de la résol (snapunit) ;2 - recherche d'objet par rapport au nom du calque (calque 6 prioritaire) ;3 - analyse des objets pour ne traiter que les lignes ;4 - d'une ligne on en déduire le X Y de départ et de fin et son angle ;5 - on retrouve des intersections sur d'autres lignes (defun c:couplin () (setvar "cmdecho" 0) ; on supprime l'écho des commandes ; on mémorise l'accrochage objet (setq accroche (getvar "osmode")) ; on met l'accrochage à aucun (setvar "osmode" 0) (princ "\nTraitement en cours...") ;création variable correspondant à la longueur de coupe ;(longueur de coupe = 3 x résol) (setq lgcoupe (* (cadr (getvar "snapunit" ))3)) (setq js (ssget "x" (list(cons 0 "LINE")))) ;récupération du nombre d'objet dans le jeu de sélection (setq nbobj (sslength js)) ;mise à 0 dans indice pour partir du début du jeu de sélection (setq ind 0) ;création de la boucle pour traiter tous les objets (while (/= nbobj ind) (if (= ind 118) (redraw ligne 3) (setq ligne (ssname js ind)) ) ;(repeat nbobj ; récupération du X,Y,Z du début de la ligne (setq depart (cdr (assoc 10 (entget (ssname js ind))))) (setq dxy (list (car depart)(cadr depart))) ; récupération du X,Y,Z de la de la ligne (setq fin (cdr (assoc 11 (entget (ssname js ind))))) (setq fxy (list (car fin)(cadr fin))) ; récupération du calque (setq calque (cdr (assoc 8 (entget (ssname js ind))))) ;calcul de l'angle de la ligne (en radian) (setq ang (angle dxy fxy)) (setq angl (gc:TrueZero ang 0.00001)) ;condition si la ligne est horizontale ; si oui on exécute le sous programme VERIFCOUP (if (or (equal angl 0 1E-5) (equal angl pi 1E-5) (equal angl (* 2 pi) 1E-5)(= angl 0) (= angl pi) (= angl (* 2 pi))) (verifcoup) ) (setq ind (+ ind 1)) (setq jsx (ssget "x" (list(cons 0 "LINE")))) ;récupération du nombre d'objet dans le jeu de sélection (setq nbobjx (sslength jsx)) ;(if (/= nbobj nbobjx) ;(nouvsel jsx) ; ) ;incrémentation de l'indice pour la boucle ;ou (setq ind (1+ ind)) ) ;);fermeture du repeat ; on met l'accrochage comme au départ (setvar "osmode" accroche) (Alert "\nFin du traitement de coupure des lignes.") (princ) ); fermeture du defun COUPLIN (defun nouvsel (sel) (setq js (ssget "x" (list(cons 0 "LINE")))) (setq nbobj (sslength js)) (setq ind 0) ) ;; gc:TrueZero ;; Arrondit à 0 les nombres compris entre -fuzz et fuzz ;; Fonctionne avec les nombres et les listes de nombres (même imbriquées) ;; ;; Arguments ;; num : le nombre à arrondir ;; fuzz : la tolérance (defun gc:TrueZero (num fuzz) (if (listp num) (mapcar '(lambda (x) (truezero x fuzz)) num) (if (< (- fuzz) num fuzz) 0. num ) ) ) ;======================================== ;**sous-prog de verification des coupes** ;======================================== (defun verifcoup () ;variable ind1 à 0 (setq ind1 0) ;création d'un autre jeu de sélection portant sur des objets ligne (setq js1 (ssget "x" (list (cons 0 "line")))) ;récupération du nombre d'objet dans le jeu de sélection (setq nbobj1 (sslength js1)) ;création de la boucle pour traiter tous les objets (repeat nbobj1 (setq depart1 (cdr (assoc 10 (entget (ssname js1 ind1))))) (setq d1xy (list (car depart1)(cadr depart1))) (setq fin1 (cdr (assoc 11 (entget (ssname js1 ind1))))) (setq f1xy (list (car fin1)(cadr fin1))) (setq calque1 (cdr (assoc 8 (entget (ssname js1 ind1))))) (setq int (inters dxy fxy d1xy f1xy)) ;calcul de l'angle de la ligne (en radian) (setq ang1 (angle d1xy f1xy)) (setq ang1 (gc:TrueZero ang1 0.00001)) (setq ligne1 (ssname js1 ind1)) (setq ligne (ssname js ind)) (redraw ligne 3) (setq test '(95.0 287.0)) (if (equal int test 0.1) (redraw ligne 3) ) (if (/= int nil) ;condition : aucun point d'extrémité de la ligne ne doit être égal à INT (if (and (null (equal int dxy 0.0001)) (null (equal int fxy 0.0001)) (null (equal int d1xy 0.0001)) (null (equal int f1xy 0.0001)) ) ;condition : si ligne est verticale (if (or (equal ang1 (* 0.5 pi) 1E-5)(equal ang1 (* 1.5 pi)1E-5)(= ang1 (* 0.5 pi))(= ang1 (* 1.5 pi))) (traitcoup calque);alors aller vers traitcoup ) ) ) (redraw ligne1 4) (redraw ligne 4) ;incrémentation de l'indice pour la boucle (setq ind1 (+ ind1 1));ou (setq ind1 (1+ ind1)) );fermeture repeat );fermeture defun verifcoup ;====================================== ;**sous-prog de traitement des coupes** ;====================================== (defun traitcoup (calque) (cond ((= calque "1") (coupe1)) ((= calque "1B") (coupe1B)) ((= calque "2") (coupe2)) ((= calque "3") (coupe3)) ((= calque "15") (coupe15)) ((= calque "5") (coupe5)) ((= calque "4") (coupe4)) ((= calque "6") (coupe6)) ((= calque "X1") (coupeX1)) ((= calque "C1") (coupeC1)) ((= calque "C1B") (coupeC1B)) ((= calque "C2") (coupeC2)) ((= calque "C3") (coupeC3)) ((= calque "C15") (coupeC15)) ((= calque "C5") (coupeC5)) ((= calque "C4") (coupeC4)) ((= calque "C6") (coupeC6)) ) (setq nbobj (sslength js )) ) (defun typeobj () (setq jstest (ssadd (entlast))) (setq x (cdr (assoc 0 (entget (ssname jstest 0))))) (if (= x "LINE") (ssadd (entlast) js) ) ) (defun coupe1 () (cond ((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj)) ((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ) ) (defun coupe1B () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ) ) (defun coupe2 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ) ) (defun coupe3 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ) ) (defun coupe15 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ) ) (defun coupe5 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ) ) (defun coupe4 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ) ) (defun coupe6 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ) ) (defun coupeX1 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ) ) (defun coupeC1 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ;horizontale ;((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ;verticale ;((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "X1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ) ) (defun coupeC1B () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ;horizontale ;((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ;verticale ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "X1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ) ) (defun coupeC2 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ;horizontale ;((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ;verticale ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "X1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ) ) (defun coupeC3 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ;horizontale ;((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ;verticale ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "X1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ) ) (defun coupeC4 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ;horizontale ;((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ;verticale ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "X1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ) ) (defun coupeC5 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ;horizontale ;((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ;verticale ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "X1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ) ) (defun coupeC6 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ;horizontale ;((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ;verticale ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "X1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ) ) (defun coupeC15 () (cond ((= calque1 "1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) ) ;horizontale ;((= calque1 "1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) ) ;verticale ((= calque1 "1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C1B") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C1B") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C2") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C2") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ((= calque1 "C3") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ;((= calque1 "C3") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C4") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C4") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C5") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C5") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C6") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C6") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "C15") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "C15") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ;((= calque1 "X1") (command "_BREAK" ligne int (polar int angl lgcoupe))(typeobj)(command "_BREAK" ligne int (polar int (+ angl pi) lgcoupe))(typeobj) );horizontale ((= calque1 "X1") (command "_BREAK" ligne1 int (polar int ang1 lgcoupe))(typeobj)(command "_BREAK" ligne1 int (polar int (+ ang1 pi) lgcoupe))(typeobj) );verticale ) )

en fait il me fait cette erreur car la fonction (ssadd (entlast) js) insert un bloc dans le jeu de sélection et le bloc n'a pas de point final et donc a un moment ça bug je ne sait pas ou exactement dans le code du coup il ne faudrait pas rentré les blocs dans le jeu de sélection mais que les ligne. par contre je ne sait pas comment faire.

merci bonuscad de ta réponse rapide. j'ai utiliser (ssadd (entlast) js) après ma commande "_Break" seulement quand j’inspecte le jeu de sélection je ne peut pas voir la dernière page car il me met une erreur erreur: type d'argument incorrect: (or stringp symbolp): nil je vient de voir que la commande (ssadd (entlast) js) me retourne un bloc et moi il me faut des lignes y a t'il une solution?

bonjours a tous, j'utilise le jeu de sélection suivant pour sélectionner toute les ligne de mon schéma. (setq js (ssget "x" (list(cons 0 "LINE")))) ce jeu de sélection me sert a faire des coupure de ligne au intersection entre deux ligne. le code fonctionne bien sauf que a force de faire des coupures mon nombre de ligne augmente mais mon jeu de sélection reste le même. la conséquence c'est que les nouvelle ligne ne sont pas traiter pour les coupures. y a t'il une façon d’intégrer les nouvelle ligne dans le jeu de sélection? si non comment faite vous pour gérer ce genre de problème? merci d'avance

merci bonuscad pour cette réponse rapide et efficace je suis trop nul je n'y avait même pas songer

merci bonuscad ta solution fonctionne parfaitement. mais quand un problème est résolu un autre apparaît, maintenant que je récupère bien mes angle ces quand je teste si la ligne est bien vertical que le test ne fonctionne pas. voici le test en question (if (or (= ang1 (* 0.5 pi))(= ang1 (* 1.5 pi))) (traitcoup);alors aller vers traitcoup ) pour info ang1 = 4.71239 donc je ne comprend pas pourquoi il ne rentre pas dans le if alors que j'ai d'autre ligne vertical qui ne pose aucun problème. désoler de vous ennuyer avec mes question.

merci bonuscad pour cette réponse claire et rapide. je teste tout de suite et vous tient au courant.

bonjour a tous et merci de votre aide. J'ai réussi a résoudre mon problème mais un deuxième est venue gâcher un peut ma joie. en effet le nouveau problème que j'ai est avec la commande inters. cette commande ne me donner pas a chaque fois les intersection de deux ligne. par exemple une ligne horizontale est couper par deux ligne vertical. donc il y a deux intersection. la commande devrais me retourner les coordonné des intersections mais pour une des deux tout vas bien alors que pour l'autre j'ai NIL en retour. je pense a un problème de construction des ligne mais en même temps je ne vois pas le problème. si une âme charitable peut ce penché sur mon nouveau problème ce serais sympa. @+

merci pour vos réponse je ne connait pas FUZZ mais je vais regarder. donc comment je peut tracer une droite qui n'est pas parfaitement droite alors que je bloque les axes quand je dessine. c'est bizzard

Didier merci de t'a réponse rapide mais qui ne me donne pas plus d'indication sur le résultat retourner par la commande. voici un bout de code qui vous donneras j’espère plus d'indication. ;récupération du nombre d'objet dans le jeu de sélection (setq nbobj (sslength js)) ;mise à 0 dans indice pour partir du début du jeu de sélection (setq ind 0) ;création de la boucle pour traiter tous les objets (repeat nbobj (setq ligne (ssname js ind)) ; récupération du X,Y,Z du début de la ligne (setq depart (cdr (assoc 10 (entget (ssname js ind))))) ; récupération du X,Y,Z de la de la ligne (setq fin (cdr (assoc 11 (entget (ssname js ind))))) ; récupération du calque (setq calque (cdr (assoc 8 (entget (ssname js ind))))) ;calcul de l'angle de la ligne (en radian) (setq ang (angle depart fin)) ;condition si la ligne est horizontale ; si oui on exécute le sous programme VERIFCOUP (if (or (= ang 0) (= ang pi)) (verifcoup) ) ce qui me gêne c'est le résultat qui arrive sous cette forme 1.82424e-016 que pour certaine ligne.