TPS001

bonsoir Mr je suis très intéressant de votre programme pour me facilité mon dessin d'implantation des luminaire le travail dans une petite boite BET et je fait tous dessin des plan Electrique et même fluides pour mon patron et j'ai perde beaucoup du Temp a cause d’implantation des luminaire ci vous voulez m'aider je te remercie infiniment et si non vous tous le droit de le refuser et merci pour tous

bonsoir, j'ai trouver un super lisp qui peut protéger nos dessins contre les modification, mais sur mon poste seulement j'ai trouver de le manipuler correctement et je ne sais pas la cause est ce qu'il y a un super programmeur des lisp qui peut m'aider de savoir le problème et merci , quand je charger le lisp sur mon autocad 2013 et win xp ,je trouve ce message blizzard : Commande: lockup Commande inconnue "UNDO". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "BEGIN". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "UNDO". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "MARK". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "-LAYER". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "MAKE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LOCKUP". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LOCKUP". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "COLOR". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "BYLAYER". Appuyez sur F1 pour obtenir de l'aide. This routine will lock the drawing! Do you really want to proceed? Y/<N>:

bonsoir, mr patrick j'aimerai bien utiliser ce lisp sur autocad 2013 mais ca ne marche pas,est ce qu'il y a des modife pour le faire et merci

Bonsoir Mr gile; j'ai appliqué le lisp sur des textes et il est fonctionnel parfaitement mais j'ai trouve des problème au niveau des phrases complexe par exemple quand je sélectionne la phrase : flexible calorifuge Ø160 il ne veut pas traduire la phrase ) il traduire simplement les mots comme flexible et calorifuge . est ce qu'il y a une solution a ce problème et excuse moi de te dérangé c'est très importante pour mon travail

Merci infiniment mr gile pour la modification il est bien fonctionnel votre lisp ,est ce que vous pouvez ajouter aussi à coté les MTXT , les simple TXT aussi .

j'ai trouvé un super lisp de traduction des mots français en anglais mais le problème qu'il ne fonction pas tjs traduire une seul mot parmis plusieurs mots que sélectionné sous autocad 2013 et ma deuxième problème c'est que j'ai des centaines des mots que je dois intégrés dans ce lisp ,est ce que quelqu'un à une méthodes très rapide pour que ce lisp doit être liées par ce fichier excel que j'ai déjà préparer pour la traduction des centaines des mots vers l'anglais j'explique quand ce sélectionne un plan sous autocad 2013 , il se reliée avec le fichier excel et traduire des phrases simlplement . voila ce super lisp : defun c:traduc (/ l1 l2 ss n txt) (setq l1 '("vanne" "filtre") ; liste à compléter l2 '("valve" "filter") ; liste à compléter dans le même ordre ) (if (setq ss (ssget '((0 . "MTEXT")))) (repeat (setq n (sslength ss)) (setq txt (entget (ssname ss (setq n (1- n))))) (if (setq pos (vl-position (cdr (assoc 1 txt)) l1)) (entmod (subst (cons 1 (nth pos l2)) (assoc 1 txt) txt)) ) ) ) (princ) ) 0 +-

salut steven merci beaucoup pour l'information sur l'application plug-ins Coins translate mais le problème même que je suis connecté sur l'internet çà marche pas sur autocad 2013 et je pense qu'il y a un truc qui bloc le traduction . svp steven est ce qu'il y a une autre moyenne sans besoin de la connexion par internet ( macro liée par fichier excel qui contient des vocabulaires technique en français traduis en anglais et merci pour tous

j'ai trouvé un super lisp de traduction des mots français vers la langue anglais mais le problème qu'il ne fonction pas tjs (traduire une seul mot parmis plusieurs mots que sélectionné sous autocad 2013 et ma deuxième problème c'est que j'ai des centaine des mots que je dois intégrés dans ce lisp , il n'y a pas une méthodes très rapide pour que ce lisp doit être liées par une fichier d'excel que j'ai déjà préparer la traduction des centaine des mots vers l'anglais voila ce super lisp : defun c:traduc (/ l1 l2 ss n txt) (setq l1 '("vanne" "filtre") ; liste à compléter l2 '("valve" "filter") ; liste à compléter dans le même ordre ) (if (setq ss (ssget '((0 . "MTEXT")))) (repeat (setq n (sslength ss)) (setq txt (entget (ssname ss (setq n (1- n))))) (if (setq pos (vl-position (cdr (assoc 1 txt)) l1)) (entmod (subst (cons 1 (nth pos l2)) (assoc 1 txt) txt)) ) ) ) (princ) )

Merci pour votre reponse mais je ne sait pas comment adresser a le programmaur de ce lisp mais monsieur gile est ce que vous pouvez corrigé ce lisp si c'est possible et merci pour tout

Bonjour à toutes et à tous. je ne connais rien sur la programmation lisp et Comme indiqué en titre, j'ai trouvé ce lisp dans une forum c'est un lisp qui créer des gaines flexibles et quand je le charger ,je dessine un ligne et je fais le choix d'objet et quand je selectionne la ligne il me demande duct size et il indique sur la boite de commande les erreurs suivantes : hoix des objets: Duct size : 100 Commande inconnue "PLINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "PLINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. ; erreur: Fonction annulée le lisp : (defun dtr(d) (/ (* d pi) 180) ) (defun rtd® (/ (* r 180) pi) ) (defun C:FX () (setvar "osmode" 0) (command "ucs" "w") (setq ar_ents (ssget)) (setq d_sz (getreal "\nDuct size : ")) (setq flex_ctr 0 flex_len (sslength ar_ents)) (repeat flex_len (setq ar_ent (ssname ar_ents flex_ctr)) (setq ar_data (entget ar_ent) e_typ (cdr (assoc 0 ar_data)) j_d 50 pt1_lst '() pt2_lst '()) (if (= e_typ "ARC") (progn (setq ar_rad (cdr (assoc 40 ar_data)) ar_cpt (cdr (assoc 10 ar_data)) s_ang (rtd (cdr (assoc 50 ar_data))) e_ang (rtd (cdr (assoc 51 ar_data))) ar_ang (+ (- e_ang s_ang) 360)) (if (>= ar_ang 360) (setq ar_ang (- ar_ang 360))) (setq a_len (/ (* 2 pi ar_rad ar_ang) 360.0)) (setq n_jo (atoi (rtos (/ a_len j_d) 2 0))) (setq di_ang (/ ar_ang n_jo 2.0) st_ang s_ang) (repeat n_jo (setq pt_1 (polar ar_cpt (dtr st_ang) (- ar_rad (/ d_sz 2.0)))) (setq pt1_lst (append pt1_lst (list pt_1))) (setq pt_2 (polar ar_cpt (dtr st_ang) (+ ar_rad (/ d_sz 2.0)))) (setq pt2_lst (append pt2_lst (list pt_2))) (setq st_ang (+ st_ang di_ang)) (setq pt_3 (polar ar_cpt (dtr st_ang) (+ (- ar_rad (/ d_sz 2.0)) (/ j_d 2.0) ))) (setq pt1_lst (append pt1_lst (list pt_3))) (setq pt_4 (polar ar_cpt (dtr st_ang) (- (+ ar_rad (/ d_sz 2.0)) (/ j_d 2.0) ))) (setq pt2_lst (append pt2_lst (list pt_4))) (setq st_ang (+ st_ang di_ang)) ) (setq pt_1 (polar ar_cpt (dtr st_ang) (- ar_rad (/ d_sz 2.0)))) (setq pt1_lst (append pt1_lst (list pt_1))) (setq pt_2 (polar ar_cpt (dtr st_ang) (+ ar_rad (/ d_sz 2.0)))) (setq pt2_lst (append pt2_lst (list pt_2))) )) (if (= e_typ "LINE") (progn (setq l_stpt (cdr (assoc 10 ar_data)) l_enpt (cdr (assoc 11 ar_data)) l_leng (distance l_stpt l_enpt) n_jo (atoi (rtos (/ l_leng j_d) 2 0)) j_dis (/ l_leng n_jo 2.0) f_ang (angle l_stpt l_enpt) lpt_1 l_stpt) (repeat n_jo (setq jpt_1 (polar lpt_1 (+ (dtr 90) f_ang) (/ d_sz 2.0))) (setq pt1_lst (append pt1_lst (list jpt_1))) (setq jpt_2 (polar lpt_1 (+ (dtr 270) f_ang) (/ d_sz 2.0))) (setq pt2_lst (append pt2_lst (list jpt_2))) (setq lpt_1 (polar lpt_1 f_ang j_dis)) (setq jpt_3 (polar lpt_1 (+ (dtr 90) f_ang) (- (/ d_sz 2.0) (/ j_d 2.0)))) (setq pt1_lst (append pt1_lst (list jpt_3))) (setq jpt_4 (polar lpt_1 (+ (dtr 270) f_ang) (- (/ d_sz 2.0) (/ j_d 2.0)))) (setq pt2_lst (append pt2_lst (list jpt_4))) (setq lpt_1 (polar lpt_1 f_ang j_dis))) (setq jpt_1 (polar lpt_1 (+ (dtr 90) f_ang) (/ d_sz 2.0))) (setq pt1_lst (append pt1_lst (list jpt_1))) (setq jpt_2 (polar lpt_1 (+ (dtr 270) f_ang) (/ d_sz 2.0))) (setq pt2_lst (append pt2_lst (list jpt_2))))) (command "pline" (foreach n pt1_lst (command n))) (command "pline" (foreach n pt2_lst (command n))) (setq l_ctr 0) (repeat (+ (* n_jo 2) 1) (command "line" (nth l_ctr pt1_lst) (nth l_ctr pt2_lst) "") (setq l_ctr (1+ l_ctr))) (setq flex_ctr (1+ flex_ctr)) );repeat ) est ce qu'il y a quelqu'un qui peut m'aider et merci pour touts

Bonjour à toutes et à tous. je ne connais rien sur la programmation lisp et Comme indiqué en titre, j'ai trouvé ce lisp dans une forum c'est un lisp qui créer des gaines flexibles et quand je le charger ,je dessine un ligne et je fais le choix d'objet et quand je selectionne la ligne il me demande duct size et il indique sur la boite de commande les erreures suivantes : choix des objets: Duct size : 100 Commande inconnue "PLINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "PLINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "FX". Appuyez sur F1 pour obtenir de l'aide. Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. ; erreur: Fonction annulée est ce qu'il y a quelqu'un qui peut m'aider et merci pour touts

merci monsieur Gile de votre réponse mais est ce que si c'est possible d'avoir modifier et ajouter une option sur le Lisp MES pour les altitudes c'est à dire quand je mesure les distances en peut ajouter une altitude par cette option et c'est très importantes pour mon travail et merci infiniment monsieur Gile de votre aide

bonjour a tous le monde j'ai un petite problème au niveaux d'un lisp MES je fais le métré des plans techniques par exemple quand je mesure des tuyauterie avec ce lisp il est additionne parfaitement au niveau 2d par exemlpe quand je mesure une longueur d'une gaine de 40 m il ne peut pas mesuré les monte ou les descente de cette gaine automatiquement est ce qu'il y a quelqu'un peut ajouter cette option dans ce lisp et voila ce lisp : ;;;================================================================= ;;; ;;; MES.LSP V1 ;;; ;;; Mesurer en continu et avec cumul ;;; ;;; ;;; Shows the result in the active unit ;;; Tested on AutoCAD 2007, 2008,AUTOCAD MEP ;;; should be working on older versions too with minor modifications. ;;; exchange bom-code-old with bom-code ;;;================================================================= (defun c:mes(/ di pt1 pt2) (setq pt1 (getpoint "\nPremier Point : ") di 0.0) (while pt1 (if (setq pt2 (getpoint pt1 "\nPoint suivant : ")) (progn (setq di (+ di (distance pt1 pt2))) (princ (strcat "\nDistance mesurée: " (rtos (distance pt1 pt2)) " -- Distance cumulée : " (rtos di))) ) ) (setq pt1 pt2) ) (princ) ) (setq nom_lisp "MES") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ) merci a tous le monde

salut mes amis je suis très intéresser a ce programme et j'aimerai bien savoir comment il fonctionne sur autocad c'est à dire la commande qu'il démarre et merci

salut usegomme je te remercier infiniment pour ton aide sur le lisp SP mais il ya un petite problème c'est qu'on je dessine la gaine souple sur un calque courant toute les entités du spirale est en même couleur du calque et ça un problème pour moi a cause de ma charte graphique ce que je veux s'il vous plie c'est si possible que l'intérieur de la gaine souple devient a couleur gris 8 et sauf les lignes ziczac de la gaine souple est en couleur du calque courant merci infiniment usegomme et je m'excuse pour mon dérangement