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

Merci, je vais essayer quand il me reste 5 min

Bonjour, J'ai un terrain en 3DFace, j'aimerais créer une coupe dans ce terrain à un endroit donné. Y a t'il une commande qui génère une ployligne (suivant un plan donné) ou faut-il avoir recourt à une routine lisp.

Super lien, merci de partager cette magnifique trouvaille.... MERCI

Je connaissais pas la commande Flatten et j'ai essayé avec le même fichier, il a trouvé 4499 entités, fichier topo donc bcp de ponts, et après 10min j'ai coupé autocad. J'ai refait la même manip avec ta routine, elle ne prend que les 3dpoly et en 1sec tout est converti, les 107 3dpoly et tout les points sont toujours avec les coordonnées 3D. C'est magnifique et y a photo. Demain je fais un test avec des régions obtenues par la commande coupe dans des volumes. Le Z des régions n'est pas tjrs 0 et avec le lisp zero, ça foire avec certaines de ces régions. Encore merci pour ta routine qui va surement encore me servir...

Merci aussi à toi Lecrabe, mais j'ai pas testé la combinaison des 2 lisp. Je vais essayé mais plustard, la routine de Bonuscad me suffit aujourd'hui. Merci

Testé avec 107 3dpoly et APPROUVE, 2 sec et me voilà avec 107 plyline et offset possible... Merci merci Bonuscad, ta routine est magnifique Testé avec Acad2009

Zero, je l'ai, mais ça reste une 3dpoly, donc impossible de faire un offset de la dite polyligne. Il faut absolument la transformer en polyligne 2d pour pouvoir faire un offset. Tu n'as pas le lien vers le fichier ou l'article de Gilles avec son lisp 3dpto2dp.lsp Merci

Bonjour, Je cherche une routine pour convertir une polyligne 3D en polyligne 2D en remettant toutes les coordonées Z à zéro. Je ne n'en ai pas trouvée sur le forum. merci [Edité le 9/12/2009 par aldo127]

Merci, avec tout ces modifs (sauf "non"), cela refonctionne. Merci beaucoup à vous

Merci beaucoup Marche nikel Exactement ce que j'ai besoin