aldo127

Bonjour, Il y a pas un lisp ou autre pour donner la liste des xref d'une selection de fichiers ?

Le problème vient de se résoudre tout seul. J'ai lancé Structural Detailling, qui démarre sans les menus aciers :-(. Là pas de problème, j'ai donc relancé Autocad et problème disparu :-). je ne sais vraiment ce qui c'est passé, ça a duré 1 jour. Merci quand même pour ton aide

Bonjour, Quand je sélectionne un objet et que je le déplace par exemple, après la commande déplacer l'objet reste sélectionné et je dois faire esc pour sortir de cette sélection. J'ai cherché dans les variables, merci à Rebcaro pour son pdf avec toutes les variables, mais je n'ai pas trouvé la variable. Quelqu'un connait-il la variable pour retrouver le mode de sélection normal. Merci [Edité le 24/9/2010 par aldo127]

Voici mon classement des lisp que j'utilise le plus: 1. Layerint.lsp me permet de changer rapidement de layer 2. Vues_Pavé.lsp je peux plus m'en passer 3. cdwg.lsp un must pour comparer 2 versions d'un même fichier 4. Pointatdist.lsp un régal avec les arcs 5. Mes.lsp facile et pratique 6. 3dpto2dp.lsp magnifique 7. Zero.lsp 8. Profil.lsp assez récent et donc juste testé mais très prometteur 9. iat.lsp 10. Rxref.lsp Bien sur y en a d'autres....faut bien faire un choix Encore merci à ceux qui ont écrit c'est lisp

Merci usegomme pour ce petit rajout qui fonctionne à merveille. Beau travail

J'ai aussi testé ta routine ftdr qui est bien, mais on pourrait y ajouter le poids du profilé, ce qui permettrait d'extraire le bordereau des profilés avec leurs poids. Possible? En entrant la masse volumique de l'acier lors de la création du profil? Faudra faire attention à l'unité du dessin. Possibilité de choisir le calque des attributs?garder en mémoire?

Je viens seulement de voir ta réponse et j'ai immédiatement testé ton lisp qui fonctionne nickel. Testé avec AutoCAD 2010 Fr. Merci beaucoup pour cette modification

Bonjour, Je cherche un lisp pour automatiquement lier toutes les références d'une liste de fichiers ou d'un répertoire complet? Y a t-il quelque chose qui existe ? Merci

Oups, je n'ai pas mis le ' devant la commande mpt3.... Quand on sait l'uliser, c'est quand même sympa. Merci pour ton aide

Y avait pas d'explication avec le lisp. A quoi tu as vu que c'est une commande qui fonctionne à la demmande d'un point? J'ai essayé et ça ne fonctionne pas avec moi Commande: ligne Spécifiez le premier point: 'mpt3 Point incorrect. Spécifiez le premier point: Voilà, j'ai un message d'erreur point incorrect et puis la commande ligne continue normalement

Merci, Effectivement c'est très basique et je viens d'apprendre quelquechose. Merci à tous les 2

Bonjour, Marche nikkel, mais peux-tu ajouter dans le lisp profil que je connaissais déjà, un choix pour l'unité d'insertion du profil soit mm, cm ou m et évidement un scale en fonction, ce serait top. Merci

Bonjour, Une cotation linéaire qui serait automatiquement continue ce serait vraiment sympa et peut-être la même chose pour la cotation alignée. Merci

Bonjour, J'ai trouvé ce lisp, mais il ne fonctionne pas! Et comme j'y connais rien en lisp... J'utilise Autocad 2010 Fr/En ;;; By Jimmy Bergmark ;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved ;;; Website: www.jtbworld.com ;;; E-mail: info@jtbworld.com ;;; Midpoint of 2 points (defun c:mpt (/ pt1 pt2) (if (and (= (getvar "cmdactive") 1) (setq pt1 (getpoint "\nFirst point: ")) (setq pt2 (getpoint pt1 "\nSecond point: ")) ) (command "_non" (list (/ (+ (car pt1) (car pt2)) 2) (/ (+ (cadr pt1) (cadr pt2)) 2) (/ (+ (caddr pt1) (caddr pt2)) 2) ) ) ) (princ) ) ;;; 1/3:rd point of 2 points (defun c:3pt (/ pt1 pt2) (if (and (= (getvar "cmdactive") 1) (setq pt1 (getpoint "\nFirst point: ")) (setq pt2 (getpoint pt1 "\nSecond point: ")) ) (command "_non" (list (+ (/ (- (car pt2) (car pt1)) 3) (car pt1)) (+ (/ (- (cadr pt2) (cadr pt1)) 3) (cadr pt1)) (+ (/ (- (caddr pt2) (caddr pt1)) 3) (caddr pt1)) ) ) ) (princ) ) ;;; 1/4:th point of 2 points (defun c:4pt (/ pt1 pt2) (if (and (= (getvar "cmdactive") 1) (setq pt1 (getpoint "\nFirst point: ")) (setq pt2 (getpoint pt1 "\nSecond point: ")) ) (command "_non" (list (+ (/ (- (car pt2) (car pt1)) 4) (car pt1)) (+ (/ (- (cadr pt2) (cadr pt1)) 4) (cadr pt1)) (+ (/ (- (caddr pt2) (caddr pt1)) 4) (caddr pt1)) ) ) ) (princ) ) ;;; Midpoint of 3 points (defun c:mpt3 (/ pt1 pt2 pt3) (if (and (= (getvar "cmdactive") 1) (setq pt1 (getpoint "\nFirst point: ")) (setq pt2 (getpoint pt1 "\nSecond point: ")) (setq pt3 (getpoint pt2 "\nThird point: ")) ) (command "_non" (list (/ (+ (car pt1) (car pt2) (car pt3)) 3) (/ (+ (cadr pt1) (cadr pt2) (cadr pt3)) 3) (/ (+ (caddr pt1) (caddr pt2) (caddr pt3)) 3) ) ) ) (princ) )

Magnifique, ça fonctionne nikkel. Merci