Chris24

Salut à tous. Merçi pour ces astuces bonuscad, sa ma bien aidé. @+ Cordialement

Bonjour à tous. Avec la version AutoCAD 2004, mtp ou m2p ou encore CTRL+M à l'invite ne marche pas. Il me dit "Point incorrect." @+ [Edité le 18/5/2009 par Chris24]

Salut à tous. Merçi bonuscad. Cordialement @+

Bonjour à toutes et à tous. Salut Bonuscad. Peut-tu me donner la marche à suivre. sela peut m'interreser. Merçi encore. @+

Salut Sechanbask. Et merçi pour ce code. Malheuresement je ne suis pas un programmeur, et comme tu le dit si bien, il est vrai que les logiciels sont relativement cher. Et si un jour je le devients mes codes seront libres. Et encore merçi, je vais l' essayer. @+

Salut à toutes et à tous. Désolé de répondre un peut tard. Avec ma version AutoCAD 2004, mtp ou m2p ou encore CTRL+M à l'invite ne marche pas. Mais je pense que je vais me débrouiller avec le petit Lisp en mettant la variable OSMODE à 0 sans la restaurer, se n'est pas bien grave. Merçi encore. @+

Bonjour à toutes et à tous. et salut Gile. Si je sauvegarde la valeur initiale OSMODE pour pouvoir la restaurer, Sela ne marche pas. (defun c:acc_mil ( / pt1 pt2 mid ) (setq osmode (getvar "OSMODE")) (setvar "OSMODE" 0) (setq pt1 (getpoint "\nSpécifiez le premier point: ")) (setq pt2 (getpoint "\nSpécifiez le deuxième point: ")) (setq mid (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.0)) pt1 pt2)) (setvar "OSMODE" osmode) ) Par contre si je met la variable OSMODE à 0 sans la restaurer sela fonctionne. (defun c:acc_mil ( / pt1 pt2 mid ) (setvar "OSMODE" 0) (setq pt1 (getpoint "\nSpécifiez le premier point: ")) (setq pt2 (getpoint "\nSpécifiez le deuxième point: ")) (setq mid (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.0)) pt1 pt2)) ) Et je perd tous mes accrobj. En fait je me sert de acc_mil en transparence en tappant 'acc_mil aprés la commade ligne ou polyline. @+

Salut Gile Avec cette fontion: (setq mid (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.0)) pt1 pt2)) Le programme fonctionne quand je sélectionne deux points opposé d'un rectangle, mai quand je sélectionne par exemple les deux extrémités d'une ligne ou une polyligne, il me met comme point de départ le premier point sélectionné. A tu un idée. @+

Un site intéressant sur le Lisp. http://209.85.229.132/translate_c?hl=fr&langpair=en%7Cfr&u=http://www.draftsperson.net/index.php%3Ftitle%3DAutoLISP_Lesson_1_-_Introduction_to_Lisp_Programming&prev=/translate_s%3Fhl%3Dfr%26q%3DProgrammation%2BAutolisp%26tq%3DProgramming%2BAutolisp%26sl%3Dfr%26tl%3Den&rurl=translate.google.fr&usg=ALkJrhhw8JecKE2Oj-Jb1BN5I_Jo0o_ARg @+

Bonjour à toutes et à tous. Je voudrait savoir ce qu'il ne va pas dans ma fonction, étant un débutant, j'aurait besoin de votre aide. Je voudrait mettre un point entre deux points spécifiés. (defun c:acc_mil ( / pt1 pt2 di ) (setq pt1 (getpoint "\nSpécifiez le premier point: ")) (setq pt2 (getpoint pt1 "\nSpécifiez le deuxième point: ")) (setq di (distance pt1 pt2)) (command "point" (/ di 2)) (princ) ) En fait cette fonction , je voudrait qu'elle me serve comme un accrochage milieu entre deux points. Merçi pour votre aide. PS: Version AutoCAD 2004 [Edité le 10/5/2009 par Chris24]

Intéréssant Merçi Tramber Cordialement @+

Merçi pour ton lien. Il ma bien servi. Cordialement @+

Bonjour à toutes et à tous Je voudrait qu'il est 1er Point: 2ème point: Epaisseur du Calorifuge: Voilà, à quoi je voudrai que les commandes ressemble. Merçi d'avance a tous pour votre disponibilité Cordialement @+

Bonjour à tous Je voudrait savoir comment on met une image bmp ou autre pour accompagner le sujet. à l'aide de BB Code. Merçi pour votre réponse @+

Bonjour à toutes et à tous Est-il possible concernant la rotation du texte à ce que l'utilisateur puisse déterminer son angle de rotation et aussi de pouvoir orienter le texte avec le curseur élastique en traitillés en saidant de la touche F8 avec une Fonction du type: (setq ang (getangle "Spécifiez l'angle de rotation du texte")) bon dimanche @+ Merçi pour votre disponibilité

AutoCAD 2004 @+

Bonjour à toutes et à tous Serait-il possible de réaliser 2 commandes. Une pour les gaines circulaire et l'autre pour les gaine rectangulaire. Ces commade seraient de réaliser partiellement du calorifuge d'épaisseur différent sur les gaines. Je voudrait qu'il est <1er Point>: <2ème point>: Epaisseur du Calorifuge: J'espère que j'ai été clair Merçi d'avance a tous Cordialement @+ [Edité le 28/4/2009 par Chris24]

Je te remerçi pout tous @+

Celui que je propose, suivant Patrick est le manuel AutoLISP de la version 11 je ne peut le mettre sur le site puisqu'il y a un copyright. Désolé @+ [Edité le 27/4/2009 par Chris24]

Bonjour et merçi a ce site. Voila, je voudrai mettre à disposition sur le site, dans la rubrique VBA et VB je crois, un manuel de programmation Autolisp d'environ 360 pages au format PDF (tout en français), mais sur le lien qu'a pu me procuré GILE "http://www.cadxp.com/UpDownload+AddDownload.html" la capacité est limité à 2MB. Y a-t-il un autre moyen d'uploader des fichiers volumineux Dans l'attente. Cordialement Chris24

Routine TOT_TXT.LSP ;; Fonctionne en principe sur les TEXT & MTEXT de type numerique (defun c:tot_txt (/ doc sel tot pt) (vl-load-com) (setq tot 0 doc (vla-get-activedocument (vlax-get-acad-object)) ) (princ "\nSélectionnez les textes") (if (ssget (list (cons 0 "TEXT,MTEXT"))) (progn (setq suf (getstring T "\nEntrez le suffixe: ")) (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) '(lambda (x) (setq tot (+ (atof (vla-get-textstring x)) tot)) ) ) (vla-delete sel) (if (setq pt (getpoint "\nPositionnez le résultat: ")) (vla-addText (vla-get-ModelSpace doc) (strcat (rtos tot) " "suf) (vlax-3d-point pt) (getvar "TEXTSIZE") ) ) ) ) ) Bonjour Sur ce lisp, peut-on rajouter 2 paramêtres supplémentaire, avoir la même police de caractère ainsi que la même hauteur que les textes sélectionnés, et donner une orientation lors de la position du résultat. Cordialement Chris24

Je suis tout a fait satisfait Peut-on ajouter deux paramètres supplémentaire, donc avoir le même style de texte avec la même hauteur que le texte sélectionné, et si possible son orientation. Encore merçi. ;) @+ Chris24 [Edité le 23/4/2009 par Chris24]

Cela me convient trés bien, je suis tout a fait satisfait du résultat, Je tien a vous remercier a tous les deux. Encore merçi. @+ Chris24 PS: peut-on rajouter un texte comme l/s ou m³/h ou autres aprés le résultat. [Edité le 19/4/2009 par Chris24]

Cela me convient beaucoup, et je te remerci pour ton aide. Il y aurait encore une petite chose que je souhaité, c'est que le résultat puisse être positionné par l'utilisateur par un point, en ayant comme phrase sur la ligne de commande AutoCAD: "Positionner le résultat". Et au lieu d'avoir "Choix des objets" , j'aurait préféré "Sélectionner les texte" Encors merci pour ton aide. @+ [Edité le 18/4/2009 par Chris24]

Bonjour à tous Je voudrais trouver un lisp, permettant de pouvoir cumuler des chiffres, Pouvoir sélectionner le premier chiffre, ensuite un deuxième chiffre voir un troisième, et ensuite positionner le résultat.