nicolas2

Bonjour à tous. AUTOCAD ne prend pas les nombres décimaux au numérateur d'une fraction. ex: Tacer une ligne d'un point X au point 275.5/2. On peut éventuellemnt taper 2755/20. N'y aurait-il pas possibilité d'un petit LISP pour remédier à ce problème ? A chaque fois que l'on tombe sur cette configuation "XX.X/Y" pour un traçage, un décalage ou autres....le LISP est à l'affût et passe la fraction en "XXX/Y0". Je voyais ça en LISP, mais si vous avez d'autres idées.... Merci à vous

N'y aurait-il pas possibilité, en passant par un LISP lancé au démarrage d'AUTOCAD, que chaque fois que l'on tape une fraction(traçage, décalage et autres.....), ce programme supprime la virgule automatiquement(si elle existe) ? 275/2 donne 275/2 275.5/2 donne 2755/20

Bonjour, rien n'est configurable dans AUTOCAD pour qu'il le prenne en compte ?

Les PDF sont trop lourd pour un envoi par CADXP. As-tu possibilité de me donner ton adresse Mail ?

Quand on trace une ligne à partir d'un point, de lg.275/2 pas de problème. Commande: _line Spécifiez le premier point: Spécifiez le point suivant ou [annUler]: Quand on le fait avec une lg.275.5/2 et que l'on fait "Entrée", un cadre rouge apparaît autour de cette valeur et nous interdit d'entrer une décimale au niveau du numérateur. http://img215.imageshack.us/img215/3825/fractiondcimale.jpg

Bonjour à tous. Lorsque l'on veut tracer une ligne, AUTOCAD prend en charge un 275/2, mais pas un 275.5/2. Y'a forcément quelque chose qui m'échappe ? :blink: Merci pour vos réponses.

Bonjour à tous. En fait la NFE 29.203 regroupait les brides traditionnelles PN10-16-25-40 et les brides pétroles PN20-50-100.... Maintenant, les PN10-16-25-40 sont sous l' EN 1092-1 et les PN20-50-100.... sont sous l' EN 1759-1. Le plus gros changement se trouve sur les épaisseurs de plateau des brides et des tampons. On arrive à avoir des différences de + de 20mm (cumul Bride+Tampon). Pour commander de la boulonnerie, il vaut mieux y faire gaffe. J'avais, à l'époque, pu me faire une bibiothèque (totalement incomplète) que je devais remettre à jour quand j'aurais du temps.... Je peux éventuellement vous les transmettre en PDF. Les retracer sera la solution ultime si je n'arrive pas à y mettre la main dessus. Du côté des LISPIENS il existe BBRIDE. Je ne maîtrise pas ce language et pour faire des aménagements personnels...?? (types de calques, suppression pointillés et autres....). Si vous avez une idée, elle sera la bienvenue. Merci à tous.

Bonjour. Voila le résultat. http://img411.imageshack.us/img411/5584/brides.jpg Merci d'avoir pris du temps laud69, la solution est là. Quelqu'un aurait-il les DWG 2D des nouvelles normes de Brides (EN 1759-1 et EN 1092-1) ?

Merci à toi laud69. Je n'ai jamais créé de bloc dynamique, mais l'idée semble coller à ma demande et m'intéresse. Pourrais-tu m'expliquer la démarche de création et de visibilité (avec un rond et un carré par exemple - soit je fais apparaître le rond avec le carré, soit le rond tout seul...). Merci.

Bonjour à tous. - Je voudrai insérer un élément (bride), issu de ma bibliothèque, en pouvant choisir simplement (clic ou autre) si je l'insère tel que (bride+tampon+joint+boulonnerie) ou dans une autre configuration (bride uniquement). http://img543.imageshack.us/img543/3130/bridei.jpg - Ma 2ième question découle de la première. J'utilise une veille bibliothèque incomplète de brides (NF E 29.203). Quelqu'un possède t'il les DWG 2D complets des nouvelles normes de Brides (EN 1092-1 et EN 1759-1)? Merci à vous et longue vie à CADXP.

Bonjour à tous. Les normes des brides ayant changé (depuis quelque temps déja), je traine toujours avec ma bibilotèque perso suivant NF E 29-203. Quelqu'un aurait-il cette bibilothèque avec les nouvelles normes(2D) ? Dans l'idée + tard : un icône bride / 1 tableau à cocher / l'insertion au point Axe-portée de joint..... Merci à vous et longue vie à CADXP.

Bonjour. Nous faisons des plans, sans franchement se poser des questions sur notre façon de faire (la tête dans le guidon) comme tout le monde. Une question, qui va dès lors sembler idiote : Comment faire suivre automatiquement (lier?)l'échelle de cotation en fonction de l'échelle choisie pour une fenêtre dans la présentation. ex: ma fenêtre de présentation au 1/10 => ma cotation au 1/10 je change mon échelle de fenêtre au 1/20 => je reprend toutes les côtes pour les passer au 1/20. Donc en résumer, je passe ma fenêtre au 1/20 => la cotation passe automatiquement au 1/20. Voila voila, c'était la question c.. du jour. :cool: Merci à vous

Bonjour. Nous faisons des plans, sans franchement se poser des questions sur notre façon de faire (la tête dans le guidon) comme tout le monde. Une question, qui va dès lors sembler idiote : Comment faire suivre automatiquement (lier?)l'échelle de cotation en fonction de l'échelle choisie pour une fenêtre dans la présentation. ex: ma fenêtre de présentation au 1/10 => ma cotation au 1/10 je change mon échelle de fenêtre au 1/20 => je reprend toutes les côtes pour les passer au 1/20. Donc en résumer, ma question, je passe ma fenêtre au 1/20 => la cotation passe automatiquement au 1/20. Voila voila, c'était la question c.. du jour. :cool: Merci à vous

Bonjour. Nous faisons des plans, sans franchement se poser des questions sur notre façon de faire (la tête dans le guidon) comme tout le monde. Une question, qui va dès lors sembler idiote : Comment faire suivre automatiquement (lier?)l'échelle de cotation en fonction de l'échelle choisie pour une fenêtre dans la présentation. ex: ma fenêtre de présentation au 1/10 => ma cotation au 1/10 je change mon échelle de fenêtre au 1/20 => je reprend toutes les côtes pour les passer au 1/20. Donc en résumer, ma question, je passe ma fenêtre au 1/20 => la cotation passe automatiquement au 1/20. Voila voila, c'était la question c.. du jour. :cool: Merci à vous

Bonjour à vous et merci pour votre aide. L'* dans la Macro est déja un grand plus. J'imagine que cela serait possible en LISP ? Je vais voir cela dans le forum approprié. Merci encore à vous.

Bonjour à tous. Est-il possible d'avoir en continu "Coupure côtes". C'est à dire ne plus avoir à aller chercher la fonction "coupure"+"clic"+..., mais qu'elle se fasse systématiquement tout au long du plan ? Merci à vous.

Bonjour à tous. Est-il possible d'avoir en continu "Coupure côtes". C'est à dire ne plus avoir à aller chercher la fonction "coupure"+"clic"+..., mais qu'elle se fasse systématiquement tout au long du plan ? Merci à vous.

Merci Bryce. J'avais bien essayé de bricoler là dedans, mais rien n'y avait fait. setvar "CECOLOR" "4") ; Couleur des traits d'axes (if (not (tblsearch "LTYPE" "AXES")) (command "_.LINETYPE" "_L" "AXES" "" "")) ; Type de ligne des axes (setvar "CELTYPE" "AXES") (setvar "CMDECHO" 0) (setvar "BLIPMODE" 0) (setvar "OSMODE" 0) Merci à toi.

Bonjour à tous. Un LISP récupéré sur CADXP (Maxence Delanoy) pour tracer les axes d'un cercle. ;Ax.lsp ;Version 1.0 ;Programme AutoLISP écrit par Maxence Delannoy (E-Mail:maxence.delannoy@wanadoo.fr) ;Dernière modification le 13.01.2000 ;Objet: Sélectionnez un cercle, Ax dessinera les traits d'axes pour vous ! (defun c:AX ( / AncErr AncCol AncTpl AncCmd AncBmp AncOsm LstEnt Centre Ray) (setq AncErr *error* *error* AX_ERR AncCol (getvar "CECOLOR") AncTpl (getvar "CELTYPE") AncCmd (getvar "CMDECHO") AncBmp (getvar "BLIPMODE") AncOsm (getvar "OSMODE") ) (setvar "CECOLOR" "4") ; Couleur des traits d'axes (if (not (tblsearch "LTYPE" "AXES")) (command "_.LINETYPE" "_L" "AXES" "" "")) ; Type de ligne des axes (setvar "CELTYPE" "AXES") (setvar "CMDECHO" 0) (setvar "BLIPMODE" 0) (setvar "OSMODE" 0) (while (setq LstEnt (entget (car (entsel "\nSélectionnez un cercle: ")))) (if (equal '(0 . "CIRCLE") (assoc 0 LstEnt)) (progn (setq Centre (cdr (assoc 10 LstEnt)) Ray (cdr (assoc 40 LstEnt)) ) (command "_LINE" (list (+ (nth 0 Centre) (* 1.1 Ray)) (nth 1 Centre)) (list (- (nth 0 Centre) (* 1.1 Ray)) (nth 1 Centre)) "" "_LINE" (list (nth 0 Centre) (+ (nth 1 Centre) (* 1.1 Ray))) (list (nth 0 Centre) (- (nth 1 Centre)(* 1.1 Ray))) "" ) ) ) ) (setvar "OSMODE" AncOsm) (setvar "BLIPMODE" AncBmp) (setvar "CMDECHO" AncCmd) (setvar "CELTYPE" AncTpl) (setvar "CECOLOR" AncCol) (setq *error* AncErr) (princ) ) (defun AX_ERR (Msg) (setvar "OSMODE" AncOsm) (setvar "BLIPMODE" AncBmp) (setvar "CMDECHO" AncCmd) (setvar "CELTYPE" AncTpl) (setvar "CECOLOR" AncCol) (setq *error* AncErr) (princ) ) (defun hello_world () (alert "Hello World!")) (prompt "M.D.D. - Ax.lsp chargé. Tapez AX pour tracer les traits d'axes d'un cercle.") (princ) Pour l'instant, l'axe est tracé dans le calque courant avec la couleur et le type de ligne "forcé" (conformément au LISP) Mon calque "Axe" se nomme "2-AXE". Après plusieurs essais de modification du LISP, plus rien ne tournait :casstet: Quelqu'un pourrait-il m'aider pour que l'axe se trace avec le calque "2-AXE" et donc ses valeurs propres => type de ligne "du calque" - couleur "du calque"..... Merci pour votre aide.

Merci Gile. Ta routine est au poil. Merci pour ta rapidité et tes compétences.

Merci Gile. Je retourne au bureau jeudi prochain (vacances). Je regarde ça à mon retour.

Merci Gile et milles excuses pour ne pas avoir été clair. "De chacun selon ses moyens,......" De mon programme machine, je récupère systématiquement ceci : ;Date :09/04/2010 ;Job N.: ;Drawing N.: ;Notes : GOTOF "N"<N1 X0 Y0 N2 X40 Y0 N3 X80 Y0 N4 X280 Y0 N5 X320 Y0 N6 X360 Y0 N7 X360 Y40 N8 X360 Y80 N9 X360 Y120 N10 X280 Y200 .......... N107 X320 Y-160 N108 X320 Y-200 M17 1- Je supprime les 5 premières lignes et la dernière (ici j'ai 108 Tubes, mais ce nombre change). 2- Je remplace le "N" par rien 3- Je remplace les espaces par des points virgules 4- Je lance ta routine Je passe par EXCEL pour faire ceci, mais si une autre solution est préférable....(toutes les données sont dans la même colonne). En modifiant le TEXTSIZE tout est OK. Je ne voulais aucunement te mettre dans cet état. A l'avenir je serais plus clair dès le départ. Merci à toi pour ton aide

Excuse moi encore Gile. Pour l'écriture du N° sans le "N" j'ai fait remplacer (sous EXCEL) le "N" par rien. Donc ignore ma deuxiéme demande (je vais faire une macro) Par contre, pour la grosseur de l'écriture, si tu peux le faire... Merci à toi.

Merci Gile. je pensais que le fait de passer de .xls à .csv (séparateur point-virgule) donnait ceci: N1 X12 Y23 => N1;X12.Y23 mais lorsque j'ouvre mon fichier .csv, j'ai toujours les espaces sans les ; Pour palier à cela, j'ai juste (sous EXCEL) fait "Remplacer" "espace" par ";". Le fichier .csv ressemble maintenant à ce que tu me dis et ton LISP fonctionne. Y'a t'il quelque chose qui m'échappe...? Une dernière modification: Pourrais-tu ajouter une question dans le LISP: "Ø du Tube" (en mm), ce qui permettrait d'écrire le N° du tube à une hauteur inscrite dans ce Ø. (visibilité) et aussi supprimer le "N" dans l'écriture. ;) Merci encore à toi.

Salut Gile et merci pour ton aide. Lorsque je veux enregistrer mon fichier EXCEL en .CSV, j'ai 3 propositions: - CSV (séparateur : point-virgule)(*.csv) - CSV (Macintosh)(*.csv) - CSV (DOS)(*.csv) J'ai essayé les 3. D'abord je tombe sur ceci (j'ai mis OUI - après avoir supprimé la Feuil2 et 3 du classeur, puisqu'une seule Feuille doit être présente semble t'il) http://img215.imageshack.us/img215/1976/classeur3.jpg puis au lancement du LISP, je donne le chemin d'accès du coup (quand je clique sur situer) http://img37.imageshack.us/img37/6328/classeur4.jpg Et donc ce qui devait arriver, arriva.... Commande: NUMTUBE Erreur: type d'argument incorrect: stringp nil Merci d'éclairer ma lanterne.