Clément.a

ahah, Merci c'est nickel!!

Oui il y a une rubrique "Fichiers CUI partiels" mais en dessous de cette racine j'en ai trois : - CUSTOM - EXPRESS - ACAD est ce AutoCAD que je dois supprimer si c'est le cas impossible de le faire. http://img11.hostingpics.net/pics/872224Capture2.png

parfait pour les express tool, merci!! plus qu'a régler ce problème de CUI

J'en suis aussi arrivé la car je voulais avoir les express tool en français, mais je n'y suis pas arrivé...

Oui ça j'avais compris mais comment remédier à ça. Je c'est pas comment différencier le partiel et le principal, ou se trouve -t-il? Bref je suis un peu perdu. Au départ je voulais créér un CUI sauvegardé dans "Mes documents" pour que le jour ou j'ai à charger ce CUI je sache ou il se trouve.

Bonjour, Après quelque année d'absence sur le forum, je suis de retour et j'ai plein de problème. J'ai du faire une bourde avec les CUI et j'ai des messages d'erreurs quand je clique sur personnaliser l'interface de travail. Le premier est : http://img11.hostingpics.net/pics/693163Capture.png le deuxième est : http://img11.hostingpics.net/pics/593187Capture.png Merci de votre aide Cordialement

Merci!

Bonjour, comment fait on pour quitter l'application excel? j'ai essayé de bidouiller un truc, en vain... Merci

C'est parfait, j'ai le résultat que j'attendais. Merci pour ce code.

Bonjour à tous! Merci pour toute vos propositions mais c'est pas ce que je souhaitais, je pense que ça doit pas etre faisable!

Serait-ce Impossible? :(

Oui mais l'utilisateur pourra aussi cliqué à +90° et même si dans le contexte sa ne serai pas logique du tout je préfere pas prendre le risque! Parfois les utilisateur font des truc bizzard :unsure:

J'ai pas trouver ce que je voulais dans ta réponse Tramber. Je veux pas que l'utilisateur entre une distnace mais bien un point se situant sur la droite élastique former par le premier point et l'angle;

j'avais pas vu ta réponse Tramber.

je vois pas ou tu veux en venir fredboss. Je me réexplique car je l'impression que vous m'avez pas très bien suivit. j'aimerais que le programme fasse ça tout seul : Commande: _pline Spécifiez le point de départ: 0,0,0 La largeur courante est de 0.0000. Spécifiez le point suivant ou [Arc/Demi-larg/LOngueur/annUler/LArgeur]: <20 Remplacer angle: 20.00 et ensuite à l'utilisateur de cliquez le deuxième point bloqué sur la droite à 20°. Le point 0,0,0 et l'angle 20° sont pour l'exemple ces deux valeurs seront des variables calculé prélablement par le programme.

Bonjour à tous, C'est exactement ce que je veux faire -Olivier- et le point 0,0,0 est un exemple le but est bien de partir d'un point donné par le programme. en passant je connaissait pas ça : Spécifiez le point suivant ou [Arc/Demi-larg/LOngueur/annUler/LArgeur]: <20 Voila si quelqu'un c'est comment y parvenir?

Bonjour, C'est surement très simple mais je suis à cours d'idée!! J'aimerais que mon programme trace le premier point du polyligne, fixe l'angle de la droite et à l'utilisateur de cliquer ou il souhaite le deuxième point de la polyligne mais situer sur la doite. comme cela : (defun c:hh () (command "polylign" '(0 0 0) (getpoint "\cliquez") "" ) ) Sauf que l'angle est bloqué. merci

Bonjour, j'ai corriger pour que la fonction trace marche lorsqu'on prolonge la droite dans la même direction : ;; TRACEWID ;; Modifier la valeur de la "variable système" TRACEWID (defun c:ttv (/ val) (initget 6) (if (setq val (getdist (strcat "\nEntrez une nouvelle valeur pour TRACEWID <" (rtos (cond ((vlax-ldata-get "GILE_TRACE" "TraceWid")) ((vlax-ldata-put "GILE_TRACE" "Tracewid" 1.0)) ) ) ">: " ) ) ) (vlax-ldata-put "GILE_TRACE" "Tracewid" val) ) (princ) ) ;; TRACE ;; Imite la commande TRACE des versions antérieures à 2012 (defun c:tt (/ *error* makeTrace wid pt1 pt2 zdir ang p10 p11 p12 p13) (vl-load-com) (defun *error* (msg) (and msg (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) (princ) ) (defun makeTrace (p1 p2 p3 p4 z) (entmake (list '(0 . "TRACE") (cons 10 (trans p1 1 z)) (cons 11 (trans p2 1 z)) (cons 12 (trans p3 1 z)) (cons 13 (trans p4 1 z)) (cons 210 z) ) ) ) (defun left (p) (polar p (+ ang (/ pi 2.)) wid)) (defun right (p) (polar p (- ang (/ pi 2.)) wid)) (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) (initget 6) (if (setq wid (getdist (strcat "\nSpécifiez la largeur de la trace <" (rtos (cond ((vlax-ldata-get "GILE_TRACE" "TraceWid")) ((vlax-ldata-put "GILE_TRACE" "Tracewid" 1.0)) ) ) ">: " ) ) ) (vlax-ldata-put "GILE_TRACE" "Tracewid" wid) (setq wid (vlax-ldata-get "GILE_TRACE" "TraceWid")) ) (setq wid (/ wid 2.)) (if (and (setq pt1 (getpoint "\nSpécifiez un point de départ: ")) (setq pt2 (getpoint pt1 "\nSpécifiez le point suivant: ")) ) (progn (setq zDir (trans '(0. 0. 1.) 1 0 T) ang (angle pt1 pt2) p10 (left pt1) p11 (right pt1) p12 (left pt2) p13 (right pt2) pt1 pt2 ) (while (setq pt2 (getpoint pt1 "\nSpécifiez le point suivant: ")) (setq ang (angle pt1 pt2) p122 (inters p10 p12 (left pt1) (left pt2) nil) p133 (inters p11 p13 (right pt1) (right pt2) nil) ) (if (and(not( null p122 ))(not (null p133))) (setq p12 p122 p13 p133)) (makeTrace p10 p11 p12 p13 zDir) (setq p10 p12 p11 p13 p12 (left pt2) p13 (right pt2) pt1 pt2 ) ) (makeTrace p10 p11 p12 p13 zDir) ) ) (*error* nil) ) voilou défois que quelqu'un à besoins de cette vieille commande. merci à Gile!

on m'a indiquer une erreur lorsque l'on utilise la commande trace et que l'on trace deux traits aligner, soit avec un angle de 180 degré ça bug là: (cons 11 (trans p2 1 z)) (cons 12 (trans p3 1 z)) (cons 13 (trans p4 1 z)) (cons 210 z) je sais pas si on peut y faire quelque chose? Merci

Merci, Je suis d'accord avec vous, personnelement je m'en sert pas c'est pour rendre service à quelqu'un qui apparement s'en servait avant que son entreprise change de version d'AutoCAD.. Merci pour le lisp. Au passage la phrase m'a bien fait rire!! :D

Bonjour, Quelqu'un aurait déja fait une routine remplasant la commande TRACE disparut depuis la version 2012? J'ai cherché dans le forum et n'ai rien trouvé à ce sujet?

Bonjour, Quelque chose de similaire m'était arrivée, voila une réponse qui m'avait déploqué ici.

Bonjour, Hormis le livre du lien précédent existe il des bon livres assez complet qui parlerais du LISP, du Vlisp et qui reprendrais aussi bien des truk de base et un peu plus poussé?

Bonjour à tous, peut on appeler une fonction definie de cette manière (defun c:#### ()) depuis une autre fonction? et si oui comment? Merci