Balou

J'ai essayé avec toute les possibilités ça n'a rien changé. J'ai essayé de regarder dans l'aide d'AutoCAD ou j'ai pu trouver la variable ATTMODE mais le résultat est toujours le même.

Je viens d'essayer mais ça ne marche toujours pas..

Bonjour j'ai une question toute bete mais je ne trouve pas la réponse, Voila je travaille sur deux poste différents, un avec autoCAD 2011 et l'autre avec autoCAD 2012 je vais prendre ce morceau de code comme exemple : (defun c:exemple() (setvar "ATTDIA" 1) ; Bloc structure chaussée (setq P02 (getpoint "\nChoisissez le point de centre de la chaussée")) (command "-inserer" "Structure chaussee" P02 1 1 0 "") (setq P02 (getpoint "\nChoisissez le point de centre du trottoir")) (command "-inserer" "structure trottoir" P02 1 1 0 "") ) les blocs " Structure chaussee et structure trottoir " possédent des attributs que l'utilisateur doit rentrer à la main. Quelqu'un peut-il m'expliquer pourquoi autoCAD 2012 ne m'ouvre pas la boite de dialogue des attributs tandis qu'autoCAD 2011 le fait ? Et sinon quelqu'un peut-il me donner la "syntaxe" pour inserer des blocs avec attributs sous autoCAD 2012 parce-que j'ai beau chercher je ne trouve pas. Merci.

Donc en fait il faudrait que je créé plusieurs boites DCL qui s'affichent ou non en fonction des choix que je fais quand je lance mon programme LISP ?

Bonjour, J'aurais voulu savoir si il était possible de créer des boites de dialogue DCL dynamique ?

Ah l'erreur doit-être ici alors puisque l'espion sur bordure me donne BORDURE = "0"

Bonjour, J'ai une nouvelle question concernant les conditions. Apres avoir regardé dans les autres sujets, j'ai vu que l'écriture d'une condition se faisait comme ceci = (cond ((= X 0 ) ( action )) ((= X 1) ( action )) ) Mais lorsque j'écrit ma condition en gardant la même syntaxe cela ne marche pas: Quand j'execute le programme pas à pas le programme passe sur la bordure sans la reconnaitre et n'éxecute donc pas les actions liées. Pourtant lorsque je met un espion sur "bordure" celui-ci me renvoit "0" ou "1" selon le choix de la bordure. (cond ((= bordure 0) (command "inserer" "T1_droite" p1 0.001 0.001 0 "") ; insere le bloc au millimètre (setq larg_bord (car T1)) ; récupere la largeur de bordure (setq h_bord (- (caddr T1) (cadr t1))) ; recupere delta hauteur - fil d'eau (command "_line" P1 (list (+(car P1) larg_bord) (+(cadr P1) h_bord)) "" ) ; trace jusqu'a l'angle superieur droit de la bordure (setq P3 (cdr (assoc 11 (entget (entlast)))))) ; recupere l'extrémité de la ligne ((= bordure 1) (command "inserer" "T2_droite" p1 0.001 0.001 0 "") ( setq larg_bord ( car T2 )) ( setq h_bord ( - ( caddr T2 ) ( cadr T2 ))) (command "_line" P1 (list (+(car P1) larg_bord) (+(cadr P1) h_bord)) "" ) ; trace jusqu'a l'angle de la bordure (setq P3 (cdr (assoc 11 (entget (entlast)))))) ) Quelqu'un pourrait-il m'aider svp ? Merci.

Je viens de faire ce que vous m'avez dit et sa marche. Merci !

Desolé de pas vous avoir répondu. Oui je n'ai toujours pas essayé, mais j'essaie sa dans la semaine et je vous tiens au courant. MErci

Mais avec la fonction que tu m'a donné, tu utilises le car et le cdr pour le Point0 et je sais pas si sa peut marcher avec mon programme car je le pointe sur l'écran à l'aide de "getpoint".

Merci Mais en fait je recupere la largeur de chaussée ( chauss ) dans une boite de dialogue DCL. J'ai donc récuperé la valeur de ma cellule que j'ai transformé ensuite a l'aide de ( atof ). Le fait d'écrire (rtos chauss) ne risque pas de creer une erreur ?

Bonjour, Je cherche quelqu'un qui pourrait me dire comment écrire des coordonnées relatives en LISP ? Du style : (setq P1 (command "line" P0 "@chauss,deltay" "")) Sachant que le point 0, la largeur de chaussée et le décalage en Y sont des valeurs connues. Lorsque je tape ceci, autocad me renvoi " Commande inconnue "@CHAUSS,DELTAY". " Merci de votre réponse