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.

Bonjours a tous, j'ai un problème avec la valeur retourner par cette commande: (setq ang (angle depart fin)) elle me retour par moment un résultat du genre 1.82424e-016 pour une ligne horizontale ce qui empeche le traitement de la ligne. ma question est: est-ce normale? y a t'il une solution pour récupérer une valeur normal comme 0 ou pi? merci de vos réponse. cordialement

bonjour a tous j'ai un petit probleme quand je sort un iso avec cadworx il construit bien l'iso sauf que les cote aparaissent avec des XXXX au leiu de la cote normal. l'un de vous aurait'il une idée sur le pourquoi du comment. cordialement

bonjour je doit tester cadworx pour mon entreprise et je voulait savoir si on pouvait faire du routing de tuyauterie comme dans autocad plant car je n'y arrive pas avec la version de demo. cordialement

salut patrick_35 ça tombe bien c'est moi l'auteur des sources avec un peut de code pris un peut partout donc je peut te l'ai passer mais pas sur le site car j'ai fait ça pour ma boite. cordialement

en fait je recupere la variable a partir d'un autre partie du programme si dessous. ce n'ai q'une partie du menu complet mais les bride 3d sont complete. ;******************************************************************************************** ; bride 3D pétro ;******************************************************************************************** (defun c:stoodcl_pltbride3dpetro_OnInitialize (/) (dcl_ComboBox_Clear stoodcl_pltbride3dpetro_COMBOPN) (dcl_ComboBox_Clear stoodcl_pltbride3dpetro_COMBOTYPE) (dcl_ComboBox_Clear stoodcl_pltbride3dpetro_COMBODN) (dcl_combobox_AddList stoodcl_pltbride3dpetro_COMBOPN (list "PN20" "PN50" "PN68" "PN100" "PN150" "PN250" "PN420")) (dcl_combobox_AddList stoodcl_pltbride3dpetro_COMBOTYPE (list "Taraude" "SW" "Pleine" "WN" "Slip-on" "Tournante")) ) (defun c:stoodcl_pltbride3dpetro_COMBOPN_OnSelChanged (ItemIndexOrCount Value /) (dcl_MessageBox "To Do: code must be added to event handler\r\nc:stoodcl_pltbride3dpetro_COMBOPN_OnSelChanged" "To do") ) (defun c:stoodcl_pltbride3dpetro_COMBOPN_OnSelChanged (ItemIndexOrCount Value /) (dcl_ComboBox_Clear stoodcl_pltbride3dpetro_COMBODN) (setq PN (dcl_Control_GetText stoodcl_pltbride3dpetro_COMBOPN)) (cond ((= PN "PN20") (setq PN20 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 89.0 11.2 34.9 30.0 16.0 21.3 48.0 16.0 )) ( "DN20" . ( 99.0 12.7 42.9 38.0 16.0 26.7 52.0 16.0 )) ( "DN25" . ( 108.0 14.3 50.8 49.0 17.0 33.4 56.0 17.0 )) ( "DN32" . ( 117.0 15.7 63.5 59.0 21.0 42.2 57.0 21.0 )) ( "DN40" . ( 127.0 17.5 73.0 65.0 22.0 48.3 62.0 22.0 )) ( "DN50" . ( 152.0 19.1 92.1 78.0 25.0 60.3 63.0 25.0 )) ( "DN65" . ( 178.0 22.3 104.8 90.0 29.0 73.0 70.0 29.0 )) ( "DN80" . ( 190.0 23.9 127.0 108.0 30.0 88.9 70.0 30.0 )) ( "DN95" . ( 216.0 23.9 139.7 122.0 32.0 101.6 71.0 32.0 )) ( "DN100" . ( 229.0 23.9 157.2 135.0 33.0 114.3 76.0 33.0 )) ( "DN125" . ( 254.0 23.9 185.7 164.0 37.0 141.3 89.0 37.0 )) ( "DN150" . ( 279.0 25.4 215.9 192.0 40.0 168.3 89.0 40.0 )) ( "DN200" . ( 343.0 28.5 269.9 246.0 44.0 219.1 102.0 44.0 )) ( "DN250" . ( 406.0 30.2 323.8 305.0 49.0 273.0 102.0 49.0 )) ( "DN300" . ( 483.0 31.8 381.0 365.0 56.0 323.9 114.0 56.0 )) ( "DN350" . ( 533.0 35.0 412.8 400.0 57.0 355.6 127.0 79.0 )) ( "DN400" . ( 597.0 36.6 469.9 457.0 63.0 406.4 127.0 87.0 )) ( "DN450" . ( 635.0 39.7 533.4 505.0 68.0 457.0 140.0 97.0 )) ( "DN500" . ( 698.0 42.9 584.2 559.0 73.0 508.0 144.0 103.0 )) ( "DN600" . ( 813.0 47.7 692.2 664.0 83.0 610.0 152.0 111.0 )) ) ) ) ((= PN "PN50") (setq PN50 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 95.0 14.2 34.9 38.0 22.0 21.3 52.0 22.0 )) ( "DN20" . ( 117.0 15.7 42.9 48.0 25.0 26.7 57.0 25.0 )) ( "DN25" . ( 124.0 17.5 50.8 54.0 27.0 33.5 62.0 27.0 )) ( "DN32" . ( 133.0 19.0 63.5 63.0 27.0 42.2 65.0 27.0 )) ( "DN40" . ( 156.0 20.6 73.0 70.0 30.0 48.3 68.0 30.0 )) ( "DN50". ( 165.0 22.4 92.1 84.0 33.0 60.3 70.0 33.0 )) ( "DN65" . ( 190.0 25.4 104.8 100.0 38.0 73.0 76.0 38.0 )) ( "DN80" . ( 210.0 28.4 127.0 117.0 43.0 88.9 79.0 43.0 )) ( "DN95" . ( 229.0 30.2 139.7 133.0 44.0 101.6 81.0 44.0 )) ( "DN100" . ( 254.0 31.8 157.2 146.0 48.0 114.3 86.0 48.0 )) ( "DN125" . ( 279.0 35.0 185.7 178.0 51.0 141.3 98.0 51.0 )) ( "DN150" . ( 318.0 36.6 215.9 206.0 52.0 168.3 98.0 52.0 )) ( "DN200" . ( 381.0 41.1 269.9 260.0 62.0 219.1 111.0 62.0 )) ( "DN250" . ( 444.0 47.8 323.8 320.0 66.0 273.0 117.0 95.0 )) ( "DN300" . ( 521.0 50.8 381.0 375.0 73.0 323.9 130.0 102.0 )) ( "DN350" . ( 584.0 53.8 412.8 425.0 76.0 355.6 143.0 111.0 )) ( "DN400" . ( 648.0 57.2 469.9 483.0 83.0 406.4 146.0 121.0 )) ( "DN450" . ( 711.0 60.5 533.4 533.0 89.0 457.0 159.0 130.0 )) ( "DN500" . ( 775.0 63.5 584.2 587.0 95.0 508.0 162.0 140.0 )) ( "DN600" . ( 914.0 69.9 692.2 701.0 106.0 610.0 168.0 152.0 )) ) ) ) ((= PN "PN68") (setq PN68 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN100" . ( 254.0 35.0 157.2 146.0 51.0 114.3 89.0 51.0 )) ( "DN125" . ( 279.0 38.1 185.7 178.0 54.0 141.3 102.0 54.0 )) ( "DN150" . ( 318.0 41.1 215.9 206.0 57.0 168.3 103.0 57.0 )) ( "DN200" . ( 381.0 47.8 269.9 260.0 68.0 219.1 117.0 68.0 )) ( "DN250" . ( 444.0 53.8 323.8 320.0 73.0 273.0 124.0 102.0 )) ( "DN300" . ( 521.0 57.2 381.0 375.0 79.0 323.9 137.0 108.0 )) ( "DN350" . ( 584.0 60.5 412.8 425.0 84.0 355.6 149.0 117.0 )) ( "DN400" . ( 648.0 63.5 469.9 483.0 94.0 406.4 152.0 127.0 )) ( "DN450" . ( 711.0 66.5 533.4 533.0 98.0 457.0 165.0 137.0 )) ( "DN500" . ( 775.0 69.9 584.2 587.0 102.0 508.0 168.0 146.0 )) ( "DN600" . ( 914.0 76.2 692.2 701.0 114.0 610.0 175.0 159.0 )) ) ) ) ((= PN "PN100") (setq PN100 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 95.0 14.2 34.9 38.0 22.0 21.3 52.0 22.0 )) ( "DN20" . ( 117.0 15.7 42.9 48.0 25.0 26.7 57.0 25.0 )) ( "DN25" . ( 124.0 17.5 50.8 54.0 27.0 33.4 62.0 27.0 )) ( "DN32" . ( 133.0 20.6 63.5 64.0 29.0 42.2 67.0 29.0 )) ( "DN40" . ( 156.0 22.4 73.0 70.0 32.0 48.3 70.0 32.0 )) ( "DN50" . ( 165.0 25.4 92.1 84.0 37.0 60.3 73.0 37.0 )) ( "DN65" . ( 190.0 28.4 104.8 100.0 41.0 73.0 79.0 41.0 )) ( "DN80" . ( 210.0 31.8 127.0 118.0 46.0 88.9 83.0 46.0 )) ( "DN95" . ( 229.0 35.0 139.7 133.0 49.0 101.6 86.0 49.0 )) ( "DN100" . ( 273.0 38.1 157.2 152.0 54.0 114.3 102.0 54.0 )) ( "DN125" . ( 330.0 44.5 185.7 189.0 60.0 141.3 114.0 60.0 )) ( "DN150" . ( 356.0 47.8 215.9 222.0 67.0 168.3 117.0 67.0 )) ( "DN200" . ( 419.0 55.6 269.9 273.0 76.0 219.1 133.0 76.0 )) ( "DN250" . ( 508.0 63.5 323.8 343.0 86.0 273.0 152.0 111.0 )) ( "DN300" . ( 559.0 66.5 381.0 400.0 92.0 323.9 156.0 117.0 )) ( "DN350" . ( 603.0 69.9 412.8 432.0 94.0 355.6 165.0 127.0 )) ( "DN400" . ( 686.0 76.2 469.9 495.0 106.0 406.4 178.0 140.0 )) ( "DN450" . ( 743.0 82.6 533.4 546.0 117.0 457.0 184.0 152.0 )) ( "DN500" . ( 813.0 88.9 584.2 610.0 127.0 508.0 190.0 165.0 )) ( "DN600" . ( 940.0 101.6 692.2 718.0 140.0 610.0 203.0 184.0 )) ) ) ) ((= PN "PN150") (setq PN150 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN80" . ( 241.0 38.1 127.0 127.0 54.0 88.9 102.0 54.0 )) ( "DN100" . ( 292.0 44.5 157.2 159.0 70.0 114.3 114.0 70.0)) ( "DN125" . ( 349.0 50.8 185.7 190.0 79.0 141.3 127.0 79.0)) ( "DN150" . ( 381.0 55.6 215.9 235.0 86.0 168.3 140.0 86.0 )) ( "DN200" . ( 470.0 63.5 269.9 298.0 102.0 219.1 162.0 114.0 )) ( "DN250" . ( 546.0 69.9 323.8 368.0 108.0 273.0 184.0 127.0 )) ( "DN300" . ( 610.0 79.2 381.0 419.0 117.0 323.9 200.0 143.0 )) ( "DN350" . ( 641.0 85.9 412.8 451.0 130.0 355.6 213.0 155.0 )) ( "DN400" . ( 705.0 88.9 469.9 508.0 133.0 406.4 216.0 165.0 )) ( "DN450" . ( 787.0 101.6 533.4 565.0 152.0 457.0 229.0 190.0 )) ( "DN500" . ( 857.0 108.0 584.2 622.0 159.0 508.0 248.0 210.0 )) ( "DN600" . ( 1041.0 139.7 692.2 749.0 203.0 610.0 292.0 267.0 )) ( "DN750" . ( 1231.9 149.4 857.2 889.0 311.1 762.0 311.1 nil)) ) ) ) ((= PN "PN250") (setq PN250 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 121.0 22.4 34.9 38.0 32.0 21.3 60.0 32.0 )) ( "DN20" . ( 130.0 25.4 42.9 44.0 35.0 26.7 70.0 35.0 )) ( "DN25" . ( 149.0 28.4 50.8 52.0 41.0 33.4 73.0 41.0 )) ( "DN32" . ( 159.0 28.4 63.5 63.0 41.0 42.2 73.0 41.0 )) ( "DN40" . ( 178.0 31.8 73.0 70.0 44.0 48.3 83.0 44.0 )) ( "DN50" . ( 216.0 38.1 92.1 105.0 57.0 60.3 102.0 57.0 )) ( "DN65" . ( 244.0 41.1 104.8 124.0 63.0 73.0 105.0 63.0 )) ( "DN80" . ( 267.0 47.8 127.0 133.0 nil 88.9 118.0 73.0 )) ( "DN100" . ( 311.0 53.8 157.2 162.0 nil 114.3 124.0 90.0 )) ( "DN125" . ( 375.0 73.2 185.7 197.0 nil 141.3 155.0 105.0 )) ( "DN150" . ( 394.0 82.6 215.9 229.0 nil 168.3 171.0 119.0 )) ( "DN200" . ( 483.0 91.9 269.7 292.0 nil 219.1 213.0 143.0 )) ( "DN250" . ( 584.0 108.0 323.8 368.0 nil 273.0 254.0 178.0 )) ( "DN300" . ( 673.0 124.0 381.0 451.0 nil 323.9 283.0 219.0 )) ( "DN350" . ( 749.0 133.4 412.8 495.0 nil 355.6 298.0 241.0 )) ( "DN400" . ( 826.0 146.0 469.9 552.0 nil 406.4 311.0 260.0 )) ( "DN450" . ( 914.0 162.0 533.4 597.0 nil 457.0 327.0 276.0 )) ( "DN500" . ( 984.0 177.8 584.2 641.0 nil 508.0 356.0 292.0 )) ( "DN600" . ( 1168.0 203.2 692.2 762.0 nil 610.0 406.0 330.0 )) ) ) ) ((= PN "PN420") (setq PN420 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 133.0 30.2 34.9 43.0 nil 21.3 73.0 40.0 )) ( "DN20" . ( 140.0 31.8 42.9 51.0 nil 26.7 79.0 43.0 )) ( "DN25" . ( 159.0 35.0 50.8 57.0 nil 33.4 89.0 48.0 )) ( "DN32" . ( 184.0 38.1 63.5 73.0 nil 42.2 95.0 52.0 )) ( "DN40" . ( 203.0 44.5 73.0 79.0 nil 48.3 111.0 60.0 )) ( "DN50" . ( 235.0 50.8 92.1 95.0 nil 60.3 127.0 70.0 )) ( "DN65" . ( 267.0 57.2 104.8 114.0 nil 73.0 143.0 79.0 )) ( "DN80" . ( 305.0 66.5 127.0 133.0 nil 88.9 168.0 92.0 )) ( "DN100" . ( 356.0 76.2 157.2 165.0 nil 114.3 190.0 108.0 )) ( "DN125" . ( 419.0 91.9 185.7 203.0 nil 141.3 229.0 130.0 )) ( "DN150" . ( 483.0 108.0 215.9 235.0 nil 168.3 273.0 152.0 )) ( "DN200" . ( 552.0 127.0 269.9 305.0 nil 219.1 317.0 178.0 )) ( "DN250" . ( 673.0 165.1 323.8 375.0 nil 273.0 419.0 229.0 )) ( "DN300" . ( 762.0 184.2 381.0 441.0 nil 323.9 464.0 254.0 )) ) ) ) ) (setq l_data (eval (read PN))) (setq temp (mapcar 'car l_data)) (dcl_combobox_AddList stoodcl_pltbride3dpetro_comboDN temp) ) (defun c:stoodcl_pltbride3dpetro_OK_OnClicked (/) (setq BPN (dcl_Control_GetText stoodcl_pltbride3dpetro_COMBOPN)) (setq BDN (dcl_Control_GetText stoodcl_pltbride3dpetro_COMBODN)) (setq BTYPE (dcl_Control_GetText stoodcl_pltbride3dpetro_COMBOTYPE)) (setq test BDN ) (setq l_val (cdr (assoc BDN l_data))) (if ; ===== (= BTYPE "Taraude") ; ===== (Taraude) ; ===== ) ; end if ===== (if ; ===== (= BTYPE "Pleine") ; ===== (Pleine) ; ===== ) ; end if ===== (if ; ===== (= BTYPE "WN") ; ===== (Wn) ; ===== ) ; end if ===== (if ; ===== (= BTYPE "Slip-on") ; ===== (Slip-on l-val) ; ===== ) ; end if (if ; ===== (= BTYPE "SW") ; ===== (SW) ; ===== ) ; end if (if ; ===== (= BTYPE "Tournante") ; ===== (Tournante) ; ===== ) ; end if ) (defun Taraude () (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq Y (car (cddddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 J) (setq pt2 (- C j)) (setq pt3 (- y c)) (setq d1 (/ x 2)) (setq d2 (/ o 2)) (setq d3 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 ;;;; definition des point (command "_circle" c1 d3) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_circle" c3 d1) (setq ent3 (entlast)) (command "_extrude" ent1 "" j "") (setq ent5 (entlast)) (command "_extrude" ent2 "" (- c j) "") (setq ent6 (entlast)) (command "_extrude" ent3 "" (- y c) "") (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "") (command "_ucs" "" "G" "") ) (defun SW ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq Y (car (cddddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 J) (setq pt2 (- C j)) (setq pt3 (- y c)) (setq d1 (/ x 2)) (setq d2 (/ o 2)) (setq d3 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 ;;;; definition des point (command "_circle" c1 d3) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_circle" c3 d1) (setq ent3 (entlast)) (command "_extrude" ent1 "" j "") (setq ent5 (entlast)) (command "_extrude" ent2 "" (- c j) "") (setq ent6 (entlast)) (command "_extrude" ent3 "" (- y c) "") (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "") (command "_ucs" "" "G" "") ) (defun Slip-on ( l-val ) (setvar "delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq Y (car (cddddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la Bride <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 J) (setq pt2 (- C j)) (setq pt3 (- y c)) (setq d1 (/ x 2)) (setq d2 (/ o 2)) (setq d3 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 ;;;; definition des point (command "_circle" c1 d3) (setq ent1 (entlast)) (command "_extrude" ent1 "" j) (setq ent5 (entlast)) (command "_circle" c2 d2 ) (setq ent2 (entlast)) (command "_extrude" ent2 "" (- c j)) (setq ent6 (entlast)) (command "_circle" c3 d1 ) (setq ent3 (entlast)) (command "_extrude" ent3 "" (- y c)) (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "" ) (princ) ) (defun WN ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq A (car (cddddr (cdr l_val)))) (setq Y1 ( car (cddddr (cddr l_val)))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 (- y1 C)) (setq pt2 (- y1 j)) (setq pt3 y1) (setq d12 (- c j)) (setq d1 (/ a 2)) (setq d2 (/ x 2)) (setq d3 (/ o 2)) (setq d4 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 pt2) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 (command "_circle" c1 d1) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_circle" c2 d3) (setq ent3 (entlast)) (command "_circle" c3 d4) (setq ent4 (entlast)) (command "_loft" ent1 ent2 "" "") (setq ent5 (entlast)) (command "_extrude" ent3 "" d12 "") (setq ent6 (entlast)) (command "_extrude" ent4 "" j "") (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "") ) (defun Tournante ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq X (car (cdddr l_val))) (setq Y2 ( car (cddddr (cdddr l_val)))) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 C) (setq pt2 y2) (setq d2 (/ o 2)) (setq d1 (/ x 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 (command "_circle" c1 d1) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_extrude" ent1 "" pt1 "") (setq ent3 (entlast)) (command "_extrude" ent2 "" pt2 "") (setq ent4 (entlast)) (command "_union" ent3 ent4 "") ) (defun Pleine ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 C) (setq d12 (- c j)) (setq d2 (/ o 2)) (setq d1 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 j) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 (command "_circle" c1 d1) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_extrude" ent1 "" j "") (setq ent3 (entlast)) (command "_extrude" ent2 "" d12 "") (setq ent4 (entlast)) (command "_union" ent3 ent4 "") )

merci usegomme mais le resultat est toujours le même. petite info supplementair qui pourrais peut etre aider. la fenetre d'aide s'ouvre la premiere fois que je lance le code. les fois suivante il s'arrete apres la premiere extrusion. cordialement

salut a tous les lispeur j'ai un probleme avec ce lisp. j'ai j'execute le programme il ouvre l'aide autocad alors que je n'en veut pas et je n'arrive pas a comprendre pourquoi. le probleme arrive quand l'editeur visual lisp est fermer car quand il est ouvert tout vas bien. pour info ce programme fait parti de tout un enssemble ou je charge deja le (vl-load-com). merci d'avance de votre aide. cordialement (defun Slip-on ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq Y (car (cddddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 J) (setq pt2 (- C j)) (setq pt3 (- y c)) (setq d1 (/ x 2)) (setq d2 (/ o 2)) (setq d3 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 ;;;; definition des point (command "_circle" c1 d3) (setq ent1 (entlast)) (command "_extrude" ent1 "" j) (setq ent5 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_extrude" ent2 "" (- c j)) (setq ent6 (entlast)) (command "_circle" c3 d1) (setq ent3 (entlast)) (command "_extrude" ent3 "" (- y c)) (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "" ) (princ) )

salut vincent je vais tenter d'etre plus claire. j'ai crée un menu avec des boite de dialogue grace a opendcl studio. les boite de dialogue appel des codes lisp. j'ai un fichier qui charge les different code au demarage d'autocad qui definit certaine variable d'environement et qui charge l'environement visuallisp. jusque la tout vas bien. quand j'appel ma boite de dialogue pour definir le tuyau a dessiner cela ce passe très bien. je valide et commence a dessiner et la les probleme commence, je definit les premier point et la premier cas le code s'arrete avant de dessiner le tuyau et me redonne la main sous autocad la je clic il dessine le tuyau et si j'arrete la commande je n'ai plus acces au icone autocad deuxieme cas le code s'arrete avant de dessiner les tuyaux ne met pas d'erreur et indique vlide. j'ai tester ce que tu ma di mais pas de resultat concluent. cordialement

bon personne pour m'aider dommage je vais continuer a chercher

voila les fichier du menu que j'ai crée. cordialement