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

salut usegomme C’est géniale ce que vous m’apprendre, j’ai essayé ce que vous m'avez dite et c'est impressionnant mais le trais c'est pas un trais d'axes est ce que vous pouvez le transformer à un trais d'axes et merci

bonjour merci a tous qu"est interesse a mon probleme et je suis tout a fait d"accord avec vous que ce lisp est graphiquement très compliqué, et hyper lourd s"il vous plais si quelqu"un connait un lisp efficace et rapide que ce lisp SP c"est tres important pour mon travaille et merci pour tous le monde

bonjour est ce qu"on peut apprendre simplement ce lisp séparement d"autofluid merci [Edité le 19/12/2009 par bennane01]

bonjour, je viens de recevoir un lisp spéciale interessante a tous qui fera la climatisation et l'objectif de ce lisp est de faire dessiner des gaine souples (gaine flexible) mais malheureusement sans leur axes et je dois metre chaque fois les axes de la gaine et un autre probleme sur ce lisp c'est quand je dessine la gaine avec le calque courant je voudrais que la l'interieur de la gaine sera avec couleur gris 8 da la meme calque courant le lisp c'est : ;============================================================================= ; SP permet de tracer une gaine en souple … partir de la s‚lection ; de l'axe du trajet. ;============================================================================= (defun *error* (ch) (princ ch) (princ) ) ;Fin de error ;------------- Transformation d'un angle de radians en degres --------------- (defun DGR (a) (* 180 (/ a PI)) ); Fin de defun ;------------- Recouvrement des extr‚mit‚s ----------------------------------- (defun EXT () (setq Ex1D1 (cdr (assoc 10 (entget D1)))) (setq Ex2D1 (cdr (assoc 11 (entget D1)))) (setq Ex1D2 (cdr (assoc 10 (entget D2)))) (setq Ex2D2 (cdr (assoc 11 (entget D2)))) ); Fin de defun ;------------- Constitution de la s‚lection pour le r‚seau ------------------- (defun AJED () (ssadd (entlast) rsel) ); Fin de defun ;============= Commande SCU ================================================== (defun SP:SCU (rep / PTP vers lang) (setq vers (atoi (substr (getvar "acadver") 1 2))) (if (wcmatch (getvar "acadver") "*Hardware Lock*") (setq lang "fr") (setq lang "en") );if (cond ((= rep "SG") (setq PTP (trans pt1 1 0)) (if (> vers 11) (command "_ucs" "") (if (= lang "fr") (command "scu" "") (command "ucs" "") );if );if (setq PT1 (trans ptp 0 1)) (setq TSCU T);SCU General ) ((= rep "S3") (setq PTP (trans pt1 1 0)) (if (> vers 11) (command "_ucs" "_z" 30) (if (= lang "fr") (command "scu" "z" 30) (command "ucs" "z" 30) );if );if (setq PT1 (trans ptp 0 1)) (setq TSCU T);SCU Z 30 ) ((= rep "S4") (setq PTP (trans pt1 1 0)) (if (> vers 11) (command "_ucs" "_z" 45) (if (= lang "fr") (command "scu" "z" 45) (command "ucs" "z" 45) );if );if (setq PT1 (trans ptp 0 1)) (setq TSCU T);SCU Z 45 ) ((= rep "S6") (setq PTP (trans pt1 1 0)) (if (> vers 11) (command "_ucs" "_z" 60) (if (= lang "fr") (command "scu" "z" 60) (command "ucs" "z" 60) );if );if (setq PT1 (trans ptp 0 1)) (setq TSCU T);SCU Z 60 ) ((= rep "SCu") (initget "Entite Z General") (setq repsc (getkword "\nSCU : Entite/Z/ :")) (if (= nil repsc) (setq repsc "General") );if (cond ((= repsc "Entite") (setvar "osmode" 512) (setq ptsc (getpoint "\nChoix d'objet correspondant au SCU :")) (setq Etsc (ssget ptsc)) (setq PTP (trans pt1 1 0)) (if (> vers 11) (command "_ucs" "_e" Etsc) (if (= lang "fr") (command "scu" "e" Etsc) (command "scu" "e" Etsc) );if );if (setq PT1 (trans ptp 0 1)) (setq TSCU T) (setvar "osmode" 0) ) ((= repsc "Z") (setq D1 (getreal "\n Angle de rotation autour de l'axe Z :")) (setq PTP (trans pt1 1 0)) (if (> vers 11) (command "_ucs" "_z" D1) (if (= lang "fr") (command "scu" "z" D1) (command "ucs" "z" D1) );if );if (setq PT1 (trans ptp 0 1)) (setq TSCU T) ) ((= repsc "General") (setq PTP (trans pt1 1 0)) (if (> vers 11) (command "_ucs" "") (if (= lang "fr") (command "scu" "") (command "ucs" "") );if );if (setq PT1 (trans ptp 0 1)) (setq TSCU T);SCU General ) ); Fin de cond ) );Fin de cond );Fin de defun ;============== Dessin d'une partie rectiligne ================================ (defun LG (D / vers lang) (setq vers (atoi (substr (getvar "acadver") 1 2))) (if (wcmatch (getvar "acadver") "*Hardware Lock*") (setq lang "fr") (setq lang "en") );if (setq rsel nil) (setq rsel (ssadd)) ; Creation de la selection pour le reseau (if (> vers 11) (command "_ucs" "") (if (= lang "fr") (command "scu" "") (command "ucs" "") );if );if (setq Ex1D (cdr (assoc 10 (entget D)))) (setq Ex2D (cdr (assoc 11 (entget D)))) (setq lgD (distance Ex1D Ex2D)) (setq angD1 (angle Ex1D Ex2D)) (setq Nbr (atoi (rtos (/ LgD pasR) 2 0))) (if (<= Nbr 0) (setq Nbr 1) );if (setq sp_p (/ lgD Nbr)) (setq A1 (polar Ex1D (+ angD1 (/ PI 2)) (/ diam 2))) (setq B1 (polar Ex1D (- angD1 (/ PI 2)) (/ diam 2))) (if (> vers 11) (command "_line" A1 B1 "") (if (= lang "fr") (command "ligne" A1 B1 "") (command "line" A1 B1 "") );if );if (AJED) (setq IpD (polar Ex1D angD1 (/ sp_p 2))) (setq A2 (polar IpD (+ angD1 (/ PI 2)) (/ (+ diam ep) 2))) (setq B2 (polar IpD (- angD1 (/ PI 2)) (/ (+ diam ep) 2))) (if (> vers 11) (progn (command "_line" A1 A2 "") (AJED) (command "_line" B1 B2 "") (AJED) (command "_line" A2 B2 "") (AJED) );progn (if (= lang "fr") (progn (command "ligne" A1 A2 "") (AJED) (command "ligne" B1 B2 "") (AJED) (command "ligne" A2 B2 "") (AJED) );progn (progn (command "line" A1 A2 "") (AJED) (command "line" B1 B2 "") (AJED) (command "line" A2 B2 "") (AJED) );progn );if );if (setq IpD (polar Ex1D angD1 sp_p)) (setq A3 (polar IpD (+ angD1 (/ PI 2)) (/ diam 2))) (setq B3 (polar IpD (- angD1 (/ PI 2)) (/ diam 2))) (if (> vers 11) (progn (command "_line" A2 A3 "") (AJED) (command "_line" B2 B3 "") (AJED) (command "_ucs" "_e" D) (command "_erase" D "") (if (/= Nbr 1) (command "_array" rsel "" "_r" 1 Nbr sp_p)) (command "_ucs" "") );progn (if (= lang "fr") (progn (command "ligne" A2 A3 "") (AJED) (command "ligne" B2 B3 "") (AJED) (command "scu" "e" D) (command "effacer" D "") (if (/= Nbr 1) (command "reseau" rsel "" "r" 1 Nbr sp_p)) (command "scu" "") );progn (progn (command "line" A2 A3 "") (AJED) (command "line" B2 B3 "") (AJED) (command "ucs" "e" D) (command "erase" D "") (if (/= Nbr 1) (command "array" rsel "" "r" 1 Nbr sp_p)) (command "ucs" "") );progn );if );if (setq A4 (polar Ex2D (+ angD1 (/ PI 2)) (/ diam 2))) (setq B4 (polar Ex2D (- angD1 (/ PI 2)) (/ diam 2))) (if (> vers 11) (command "_line" A4 B4 "") (if (= lang "fr") (command "ligne" A4 B4 "") (command "line" A4 B4 "") );if );if ) ; Fin de defun ;============== Dessin d'une partie arrondie ================================== (defun AR (C / vers lang) (setq vers (atoi (substr (getvar "acadver") 1 2))) (if (wcmatch (getvar "acadver") "*Hardware Lock*") (setq lang "fr") (setq lang "en") );if (setq rsel nil) (setq rsel (ssadd)) ; Creation de la selection pour le reseau (if (> vers 11) (command "_ucs" "") (if (= lang "fr") (command "scu" "") (command "ucs" "") );if );if (setq Ag1C (cdr (assoc 50 (entget C)))) (setq Ag2C (cdr (assoc 51 (entget C)))) (setq rayC (cdr (assoc 40 (entget C)))) (setq cenC (cdr (assoc 10 (entget C)))) (setq AgC (- Ag2C Ag1C)) (if (= T (< AgC 0)) (setq AgC (+ AgC (* 2 PI))) );if (setq lgC (* rayc AgC)) (setq Nbr (atoi (rtos (/ lgC pasA) 2 0))) (if (<= Nbr 0) (setq Nbr 1) );if (setq sp_p (/ lgC Nbr)) (setq agpas (/ AgC Nbr 2)) (setq Ex1C (polar cenc Ag1C rayc)) (setq AngC (angle CenC Ex1C)) (setq A1 (polar Ex1C AngC (/ diam 2))) (setq B1 (polar Ex1C (+ AngC PI) (/ diam 2))) (if (> vers 11) (progn (command "_line" A1 B1 "") (AJED) );progn (if (= lang "fr") (progn (command "ligne" A1 B1 "") (AJED) );progn (progn (command "line" A1 B1 "") (AJED) );progn );if );if (setq IpD (polar cenC (+ Ag1C agpas) rayc)) (setq A2 (polar IpD (+ ag1C agpas) (/ (+ diam ep) 2))) (setq B2 (polar IpD (+ ag1C agpas) (- (/ (+ diam ep) 2)))) (if (> vers 11) (progn (command "_line" A1 A2 "") (AJED) (command "_line" B1 B2 "") (AJED) (command "_line" A2 B2 "") (AJED) );progn (if (= lang "fr") (progn (command "ligne" A1 A2 "") (AJED) (command "ligne" B1 B2 "") (AJED) (command "ligne" A2 B2 "") (AJED) );progn (progn (command "line" A1 A2 "") (AJED) (command "line" B1 B2 "") (AJED) (command "line" A2 B2 "") (AJED) );progn );if );if (setq IpD (polar cenC (+ Ag1C (* agpas 2)) rayc)) (setq A3 (polar IpD (+ ag1C (* agpas 2)) (/ diam 2))) (setq B3 (polar IpD (+ ag1C (* agpas 2)) (- (/ diam 2)))) (if (> vers 11) (progn (command "_line" A2 A3 "") (AJED) (command "_line" B2 B3 "") (AJED) (command "_erase" C "") (if (/= Nbr 1) (command "_array" rsel "" "_p" cenC Nbr (DGR (- AgC (* agpas 2))) "_y") );if );progn (if (= lang "fr") (progn (command "ligne" A2 A3 "") (AJED) (command "ligne" B2 B3 "") (AJED) (command "effacer" C "") (if (/= Nbr 1) (command "reseau" rsel "" "p" cenC Nbr (DGR (- AgC (* agpas 2))) "o") );if );progn (progn (command "line" A2 A3 "") (AJED) (command "line" B2 B3 "") (AJED) (command "erase" C "") (if (/= Nbr 1) (command "array" rsel "" "p" cenC Nbr (DGR (- AgC (* agpas 2))) "y") );if );progn );if );if (setq Ex2C (polar cenc Ag2C rayc)) (setq A4 (polar Ex2C Ag2C (/ diam 2))) (setq B4 (polar Ex2C (+ Ag2C PI) (/ diam 2))) (if (> vers 11) (command "_line" A4 B4 "") (if (= lang "fr") (command "ligne" A4 B4 "") (command "line" A4 B4 "") );if );if ) ; Fin de defun ;============== D‚but du programme ========================================== (defun C:SP (/ ct r sel k nom typ sb D1 D2 testw vers lang) (setq vers (atoi (substr (getvar "acadver") 1 2))) (if (wcmatch (getvar "acadver") "*Hardware Lock*") (setq lang "fr") (setq lang "en") );if (setq cmde (getvar "cmdecho")) (setq blip (getvar "blipmode")) (setq pdmd (getvar "pdmode")) (setq pdsz (getvar "pdsize")) (setq osmd (getvar "osmode")) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "osmode" 0) (if (> vers 11) (command "_ucs" "") (if (= lang "fr") (command "scu" "") (command "ucs" "") );if );if ;-------------- V‚rification de l'‚chelle de dessin du menu CLIM ------------ (if (= nil echt) (progn (princ "\n** ATTENTION : Echelle de dessin non definie **") (initget 1 "ME CM MM") (setq echt (getkword "\nVeuillez preciser l'echelle de travail (MEtre, CentiMetre, MilliMetre) : ")) (cond ((= echt "ME") (setq echt 0.001) ) ((= echt "CM") (setq echt 0.1) ) ((= echt "MM") (setq echt 1) ) );cond ;(princ "\nEntrez l'echelle de dessin dans le menu Clim.") ;(error1) ) ; Fin de progn ) ; Fin de if ;-------------- Test de l'existance d'une valeur pour le diamŠtre ----------- (if (= nil sp_d) (setq diam 125) (setq diam sp_d)) ;-------------- Saisie de la valeur du diamŠtre de la gaine souple ---------- (setq tx (strcat "\nDiamŠtre de la gaine <" (rtos diam 2 0) ">:")) (setq rep (getreal tx)) (if (= nil rep) (setq diam (* echt diam)) (setq diam (* echt rep))) (setq sp_d (/ diam echt)) ;============== Initialisation des variables configurables ================= ; pasR : Pas d'une spire complŠte en mm en rectiligne ; pasA : Pas d'une spire complŠte en mm en arrondi ; ep : Epaisseur de d‚bordement sur le diamŠtre en mm ; coef : Coefficient de trac‚ du coude (Coef x DiamŠtre) (setq pasR (* (+ (* 0.36 sp_d) 0.0011) echt)) (if (< (/ pasR echt) 45.0011)(setq pasR (* 45.0011 echt))) (setq pasA (- pasR echt)) (setq ep (- pasA echt)) (setq coef 1.5) (setq e1 (entlast)) ;------------- Dessin par trajet et s‚lection d'entit‚s ---------------------- (setq sel nil selE nil) (setq sel (ssadd) selE (ssadd)) (initget "SCu SG S3 S4 S6 Entite") (setq pt1 (getpoint "\nConstruction d'un point/Entite/ :")) (cond ((= "Entite" pt1) (setq selE (ssget)) (setq testW "Fin")) ); Fin de cond (while (/= "Fin" testw) (initget 32 "SCu SG S3 S4 S6 U") (setq rep (getpoint pt1 "\nConstruction d'un point/U/ :")) (SP:SCU rep) (cond ((/= T TSCU) (setq pt rep) (if (/= nil pt) (progn (if (> vers 11) (command "_line" pt1 pt "") (if (= lang "fr") (command "ligne" pt1 pt "") (command "line" pt1 pt "") );if );if (ssadd (entlast) sel) (redraw (entlast) 3) (setq prov pt1 pt1 pt pt prov) ) ; fin de progn (setq testw "Fin") )) ; fin de if et condition ) ; Fin de cond (setq TSCU nil) ); Fin de while (setq testw nil) (if (> vers 11) (command "_ucs" "") (if (= lang "fr") (command "scu" "") (command "ucs" "") );if );if ;------------- Tri de la s‚lection entre trajet et Entit‚s ------------------- (if (/= 0 (sslength sel)) (progn ;------------- Cr‚ation des coudes … partir des entit‚s crois‚es ------------- (setq k 0) (setq lgsel (sslength sel)) (setvar "FILLETRAD" (* coef diam)) (while (< k (- lgsel 1)) (setq D1 (ssname sel k)) (setq D2 (ssname sel (+ k 1))) (EXT) ; recouvrement des extr‚mit‚s (if (/= nil (inters Ex1D1 Ex2D1 Ex1D2 Ex2D2)) (progn (if (> vers 11) (progn (command "_fillet" D1 D2) (ssadd (entlast) sel) );progn (if (= lang "fr") (progn (command "raccord" D1 D2) (ssadd (entlast) sel) );progn (progn (command "fillet" D1 D2) (ssadd (entlast) sel) );progn );if );if ) ; Fin de progn ) ; Fin de if (setq k (1+ k)) ) ;Fin de while ) ; Fin de progn (setq sel selE) ) ; Fin de if ;============= V‚rification de la s‚lection ================================== (princ "\nTraitement en cours, patientez s.v.p...\n") (setq lst (list (list "LINE") (list "ARC"))) (setq selt (ssadd)) (setq k 0) (while (< k (sslength sel)) (setq nom (ssname sel k) typ (entget nom)) (if (/= nil (assoc (cdr (assoc 0 typ)) lst)) (ssadd nom selt) ) ;Fin de if (setq k (1+ k)) ) ;Fin de while (setq pts (assoc 10 (entget (ssname selt 0)))) ;============= Traitement de la s‚lection ==================================== (setq k 0) (while (< k (sslength sel)) (setq nom (ssname sel k) typ (entget nom)) (if (= "LINE" (cdr (assoc 0 typ))) (LG nom)) (if (= "ARC" (cdr (assoc 0 typ))) (AR nom)) (setq k (1+ k)) ) ;Fin de while (if (> vers 11) (command "_ucs" "") (if (= lang "fr") (command "scu" "") (command "ucs" "") );if );if ;============== Fin du Traitement ============================================ (defun *error* (ch) (princ ch) (princ) ) ;Fin de error (princ) ) ;Fin de defun il y a quelqu'un qui me fera cela rapidos?? merci beaucoup a tous le monde merci

[Edité le 18/12/2009 par bennane01]

Salut tous le monde.. comment modifier un bloc avec un CHAMP en valeur d'attribut et rester les mêmes caractéristiques de ce champs merci

bonjour comment ajouter l' options c'est quand je deplacer un bloc de niveaux il changera automatiquement je pense qu'il y a quelque chose dans la commande chanp et merci bonne journée

merci à tous mes amis qui m'aide le bloc est impecable mais lorsque je le deplacer le niveaux ne changera pas il faus inserer un autre bloc pour la nouvelle niveaux comment ajouter cette options c'est quand je le deplacer il changera automatiquement et merci bonne journée

Merci pour votre réponse est ce que vous pouvez m'envoyer un bloc de niveaux avec un champ parce que j'ai essayé mais se n'est pas marché a l'courriel: fouad.bennane@gmail.com et merci

Salut tous le monde.. je travaille sur AutoCad 2009 et ma question c'est comment creer les niveau des plancher automatique quand je sélectionne chaque trais d'un niveaux je m'excuse de ma français voila cette image pour montrer ce que je voulais Merci..