crashray

Merci très utile.

Je poste un lisp de patrick que je ne retrouve pas ici mais qui m'es bien utile : ;;;================================================================= ;;; ;;; Tot.LSP V1.03 ;;; ;;; Totaliser des longueurs ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun c:tot(/ di ent n pt1 pt2 s sel tot *errtot*) (defun *errtot* (msg) (or (member (strcase msg) '("FUNCTION CANCELLED" ""QUIT / EXIT ABORT"" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) (vla-endundomark doc) (setq *error* s) (princ) ) (vl-load-com) (setq s *error* *error* *errtot* ) (if (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE,MLINE,REGION,MPOLYGON"))) (progn (setq di 0 sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))) tot (vla-get-count sel) ) (vlax-for ent sel (cond ((member (vla-get-objectname ent) '("AcDbLine" "AcDb2dPolyline" "AcDb3dPolyline" "AcDbPolyline")) (setq di (+ di (vla-get-length ent))) ) ((eq (vla-get-objectname ent) "AcDbArc") (setq di (+ di (vla-get-arclength ent))) ) ((eq (vla-get-objectname ent) "AcDbCircle") (setq di (+ di (vla-get-circumference ent))) ) ((member (vla-get-objectname ent) '("AcDbSpline" "AcDbEllipse")) (setq di (+ di (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent)))) ) ((eq (vla-get-objectname ent) "AcDbMline") (setq n 0 pt2 nil) (while (nth n (setq lst (vlax-get ent 'Coordinates))) (setq pt1 (list (nth n lst)(nth (1+ n) lst)(nth (+ n 2) lst))) (and pt2 (setq di (+ di (distance pt1 pt2))) ) (setq pt2 pt1 n (+ n 3) ) ) ) ((member (vla-get-objectname ent) '("AcDbMPolygon" "AcDbRegion")) (setq di (+ di (vla-get-perimeter ent))) ) ((eq (vla-get-objectname ent) "AcDbPolygonMesh") (setq tot (1- tot)) ) ) ) (and (> tot 0) (if (eq tot 1) (alert (strcat "La longueur de l'objet est de : " (rtos di))) (alert (strcat "La longueur total des " (itoa tot) " objets est de : " (rtos di))) ) ) (vla-delete sel) ) ) (setq *error* s) (princ) )

Bon j'ai ajouté un chemin de recherche avec la technique dans ce post : http://cadxp.com/topic/38123-fichiers-de-support/page__view__findpost__p__212792 ça a l'air de fonctionner.

J'ai pas de fichier acaddoc.lsp dans le dossier. J'en crée un ? Edit : quand je vais dans la fenêtre pour rajouter un chemin de recherche de fichiers de support, les boutons à droite sont grisés. J'ai rajouté à Chemin de recherche des fichiers de support en cours d'utilisation et emplacements approuvés sans soucis.

ça marche tip top !! Terrible !! Comment charger automatiquement au début d'autocad ton lisp ? Actuellement je fais Appload car j'en utilise rarement mais je pense que celui-là je vais en avoir une utilisation intensive. Merci encore vincentp010

Super merci pour le tuto, ça marche nickel. Je vais voir pour utiliser les lisps de vincentp010, ça a l'air exactement ce dont j'ai besoin et ça sera plus rapide. Si j'ai bien compris le deuxième script, c'est à mettre dans PDFcreator ? Edit : Lequel je dois installer là-dedans : http://ghostscript.com/download/ Et après pour le profil, c'est dans cette fenêtre ? http://img11.hostingpics.net/thumbs/mini_353032Sanstitre.jpg Merci

Merci pour toutes ses réponses précises. J'installe tout ça lundi.

Bonjour, Je fais beaucoup de sortie PDF à partir d'AutoCAD et ce sont des plans longs du genre. 29.7unités (la hauteur du A4) par 230 unités. Quand je fais les impressions PDF avec PDFCreator, j'ai deux problèmes : 1) Je suis obligé de prendre un papier genre 92x92 pour que ça tienne dans mon échelle et ça me fait des énormes zones blanches. Y a t'il moyen de les rogner ? 2) En général, le PDF est jamais dans le sens que je veux. A chaque ouverture, je dois le pivoter manuellement et l'orientation ne se conserve pas à l'ouverture suivante. Est-il possible de conserver cette orientation à la prochaine ouverture ? Merci

Cela me semble très bien. Je bloque vers l'étape 3. D'abord mes points ne sont pas dans l'ordre mais peut-être que cela n'a pas d'importance. En PJ le fichier TEST.txt. Te semble t'il correct ? Après l'étape 4, est-ce bien configurer ? http://img4.hostingpics.net/thumbs/mini_424046Sanstitre.jpg Edit : en fait je m'étais planté dans la fenêtre précédente, si je met 1 2 ça marche bien. Merci beaucoup pour ton aide. edit 2 : pour retrouver mon axe, je trace juste une ligne horizontale partant de 0,0 ? TEST.txt

Bonjour, J'ai posté une premier post ICI. J'ai mis un fichier joint à renommer en .dwg pour donner un exemple. J'ai deux polyligne, une en trait d'axe qui représente l'axe de mon rail et l'autre en trait continu qui est la ligne que je veux retrouver mais avec l'axe "réaligner". En fait, la ligne continu représente un usinage et cette ligne est tracer sur un rail cintré/coudé mais on usine sur un rail droit que l'on cintre/coude par la suite. Un forumeur HBS62 m'a aiguillé sur un lisp http://lee-mac.com/2dprojection.html Cela se rapproche de ce que je veux faire mais ça ne fonctionne pas. Il m'a conseillé de venir voir par ici si quelqu'un était capable de l'adapter à mon problème. Merci d'avance Hésitez pas à me poser des questions si c'est pas très clair. Aredressser.pdf

Merci m'sieur. Oui j'avais réussi avec des polylignes fermé à quatre côté. Je vais voir si je recrée un post dans lisp ou si une bonne âme peut me déplacer mon sujet. Merci

Normalement ça devrait être de même longueur. J'ai fait ça vite fait. Même si en pratique, tu étire ton métal et tu le compresse à certains endroits. Je vais regarder le lisp HBS62, merci pour le lien. Edit : Je vois pas trop comment utiliser le LISP.

Bonjour, Je fais des plans d'usinage et de cintrage de rail. On prend un rail droit, on l'usine et on le cintre après. Sauf que dans mes plans d'étude, le cintrage et l'usinage ne sont pas dissociés. Donc je dois "décintrée" mon rail avec Autocad pour récupérer ma polyligne d'usinage. Actuellement quand c'est juste des coudes lors du cintrage, je me débrouille en faisant des rotations de mon axe et en faisant suivre ma polyligne d'usinage mais quand le cintrage est un rayon, je n'arrive plus à faire le truc proprement. Existe t'il une fonction ou une manipulation pour redresser une polyligne et redresser une ligne adjacente. Peut-être qu'en 3D, ça serait plus clair. Le fichier en PJ, faut le renommer en .dwg. J'ai fait un exemple rapide (plutôt compliqué). En rouge, c'est mon axe et en bleu c'est la ligne d'usinage. Je souhaite que la ligne rouge soit droite et que la distance entre la ligne rouge et la ligne bleu soit la même que sur le dessin du haut. Ainsi j'obtiens ma ligne d'usinage à réaliser avant le cintrage. Redresser.pdf

Je retrouve juste comment charger ça, et je l'essaye. Edit : ça me semble très bien. Par contre, ça serait mieux de pouvoir cliquer que sur une polyligne, là on peut cliquer sur plusieurs. Merci beaucoup vincent.

Les infos sont là comme avec Covadis2D>>Cotation/Division>>information sur une polyligne Mais après c'est pour remettre en forme automatiquement comme j'ai expliqué dans mon post précédent.

En pièce jointe, un premier j'ai mis .pdf mais c'est bien sûr un .dwg. Et le fichier que je souhaiterais : G01 X100.000 Y141.000 G01 X166.000 Y218.000 G01 X255.000 Y231.000 G02 X383.000 Y145.000 R114.771 G01 X409.000 Y43.000 G03 X585.000 Y-45.000 R130.099 G01 X697.000 Y47.000 TRACE.pdf

Cette fonction est déjà pas mal, ça me donne ça : #################################################################### COVADIS - LISTING RECAPITULATIF DES INFORMATIONS SUR UNE POLYLIGNE #################################################################### Type de polyligne : 2D (entité = LWPOLYLINE) Fermeture : Non Lissage : Aucun Typelign Gen. : Oui Calque de dessin : FORT Couleur de dessin : DuCalque = 7 Type de ligne : DuCalque = CONTINUOUS Altitude : 0.000 m Longueur : 421.623 m ==================================================================== N° X sommet Y sommet Rayon X centre Y centre -------------------------------------------------------------------- 1 164.000 203.000 2 343.000 235.000 3 373.000 98.000 4 281.000 60.000 #################################################################### Après il me reste à mettre en forme. Je vais voir ce que je peux faire sous excel mais je pensais pouvoir m'en sortir avec un LISP. Didier pour l'erreur G02 G03, tu as raison, je le faisais bien mais en écrivant je me suis trompé.

Bonjour, J'utilise AutoCAD 2015 avec Covadis. Je souhaiterais sortir un fichier texte de coordonnée de sommet en cliquant sur une polyligne avec une mise en forme un peu spéciale. Voilà un petit dessin de ce que je voudrais. http://img11.hostingpics.net/thumbs/mini_212996LISP001.jpg C'est pour sortir un programme simple en language G-code (Wikipedia) d'une polyligne que je trace sur mon plan. Le code G1 c'est pour les lignes droites et on met juste G1 X.. Y.. (coordonnée du point d'arrivée) Le code G2 c'est pour les arcs en sens horaire (ou trigonométrique) et on met G2 X.. Y.. R.. (en mettant les coordonnées du point d'arrivée). Le code G3 c'est pour les arcs en sens anti-horaire (ou anti-trigonométrique) et on met G3 X.. Y.. R.. (en mettant les coordonnées du point d'arrivée). J'ai mis des valeurs dans mes exemples pour bien comprendre le fichier que je veux à la fin. Les coordonnées doivent avoir pas plus de 3 chiffres après la virgule. Actuellement je fais ID sur mes sommets, je copie-colle dans un bloc-note et je rajoute les G1/G2/G3/X/Y/R et je retire les X = et Y= ainsi que le 4ème chiffre après la virgule mais c'est assez long et rébarbatif par exemple sur ça : http://img11.hostingpics.net/thumbs/mini_416974ESS.jpg Peut-être qu'il existe déjà un lisp de ce genre. Merci à quiconque pourra m'aider.

Bonjour, Je me souviens avoir fait ça une fois mais impossible de retrouver la manipulation. J'ai dans mon espace objet un ensemble de rectangle 21x29.7 les uns à côtés des autres. J'ai un 40 comme un tableau. Je voudrais pouvoir imprimer sur un A4 chaque rectangle mais de manière assez rapide. Sinon je peux faire Tracer et sélectionner les rectangles un par un mais ça va être long. Je crois qu'il existe une fonction pour imprimer des "réseaux" de plans. Si quelqu'un a déjà fait ça. Merci

Comment fait-on sous autocad 2015 pas vu l'option ?

ça marche parfaitement, j'avais juste pas fait capturer la zone. Merci m'sieur B) It's excellent !

Comment fais-tu pour imprimer les cartes Bing insérer avec localisation ? Quand je fais une présentation, elle ne s'affiche pas et si j'essaye d'imprimer directement dans l'espace objet, j'ai une fenêtre qui me dit bien que la carte ne s'imprimera pas. Etais-ce une confusion ou il existe un moyen de passer outre et imprimer avec ces fameux fond de plan ? Merci et désolé pour le dérangement. Je suis passé de la 2007 à la 2015 et je suis plutôt content. La 3D et les présentations c'est tip top, les coupes qui se mettent à jour tout seul, que du bonheur.

Je serais intéressé également pour pouvoir imprimer le fond de plan. Où peut-on trouver ce plugin de Google Earth ? Merci

didier -> Oui c'est à côté de Forges Saint Bernard. Donc pour l'instant les étapes que je comprends : - extraire les coordonnées sous forme latitude/longitude et les mettre dans un fichier sous une forme pour être converti par Convers par exemple - Conversion dans un système quelconque (RGF93 par exemple) - Importation dans Autocad avec l'aide de Covadis peut-être. Depart;UTM.WGS84;2 Arrivee;WGS84;0;3 48.178708;4.788088 ...

Bonjour, Je souhaiterais créer des points topographiques en important à partir d'un fichier txt sous cette forme : Indice Kilomètres Mètres Ecartmt. Dévers Gauche 1 Gauche 2 Latitude/Longitude Commentaire Ecartmt. [Défauts] Dévers [Défauts] Gauche1 [Défauts] Gauche2 [Défauts] 0 1.000 1439.6 -1.9 0.0 0.0 48.178708° / 4.788088° 0 2.000 1436.9 -1.4 0.0 0.0 48.178708° / 4.788088° 0 3.000 1438.3 -1.2 -0.8 0.0 48.178708° / 4.788088° 0 4.000 1440.0 -0.1 1.8 0.0 48.178695° / 4.788075° 0 5.000 1441.6 1.6 3.0 0.0 48.178695° / 4.788075° 0 6.000 1442.2 2.8 4.0 0.0 48.178677° / 4.788055° 0 7.000 1442.1 4.3 4.4 0.0 48.178677° / 4.788055° 0 8.000 1441.6 2.6 1.0 0.0 48.178660° / 4.788035° 0 9.000 1440.5 1.6 -1.2 2.0 48.178660° / 4.788035° 0 10.000 1440.9 1.3 -3.0 3.2 48.178660° / 4.788035° 0 11.000 1441.9 2.3 -0.3 3.7 48.178638° / 4.788013° 0 12.000 1441.1 1.3 -0.3 2.5 48.178638° / 4.788013° 0 13.000 1439.9 1.8 0.5 1.9 48.178620° / 4.787993° 0 14.000 1440.4 1.3 -1.0 -0.3 48.178620° / 4.787993° 0 15.000 1440.9 2.1 0.8 -0.7 48.178620° / 4.787993° 0 16.000 1442.1 2.3 0.5 -2.0 48.178603° / 4.787980° 0 17.000 1442.2 2.6 1.3 0.0 48.178603° / 4.787980° 0 18.000 1441.0 4.9 2.8 3.3 48.178585° / 4.787955° 0 19.000 1440.5 1.0 -1.3 -0.3 48.178585° / 4.787955° 0 20.000 1440.1 0.3 -2.3 -2.0 48.178585° / 4.787955° 0 21.000 1438.4 -1.5 -6.4 -2.8 48.178565° / 4.787942° 0 22.000 1438.4 -1.4 -2.4 -3.2 48.178565° / 4.787942° 0 23.000 1439.0 -1.1 -1.4 -2.4 48.178543° / 4.787917° 0 24.000 1439.5 -0.1 1.4 -2.2 48.178543° / 4.787917° Est-il possible de l'automatiser sous AutoCAD ? Merci