pierrevigneux

Bonjour Bonuscad! J'ai essayé ta commande, mais ce n'est pas exactement ce que je recherche. J'aimerais puvoir coter les débuts et fin de sgments en cumulatif, en retrait de la polyligne exprimés en points kilométriques, si possible. Si ça tintéresse je peux t'envoyer mon dessin exemple Merci @+ Note: Je reviens de vacances 2 semaines, voilà pourquoi je n'ai pas pris mes messages!

Bonsoir REbcao! Je demande bien pourquoi je n'y pas pensé, ça semble si simple pour toi, excuse mon ignorace! Une astuce consiste à dessiner ce que l'on veut représenter et en créer un bloc que l'on glisse sur la palette (après avoir enregistré le dessin) pour générer une image Je te remerci beaucoup Rebao! À la prochaine.

Bonjour ! Je suis à la recherche d'un éditeur d'icône, pour créer facilement des icônes de façon plus clair que dans l'outil (Tool Palettes) d'AutoCAD Merci!

J'ai tout recopié, la commade au complet et ré-essayé, ça fontionne très bien maintenant. Les sommets en xy, les distances, le périmètre et l'aire, le tout dans un fichier txt. Je crois que je ne suis pas vraiment doué en lips. Mes excuses et merci encore une fois Gile ! [Edité le 24/1/2010 par pierrevigneux]

Désolé ! Il manque la première parenthèse Je l'ai recopié une autre fois vérifié la première parenthèse, même réponse.

J'ai aussi essayé la commande partielle defun c:pline2txt (/ pl file pts cnt start) (vl-load-com) (if (and (setq pl (car (entsel "\nSélectionnez une polyligne: "))) (setq pl (vlax-ename->vla-object pl)) (= (vla-get-ObjectName pl) "AcDbPolyline") ) (if (setq file (getfiled "Créer un fichier" "" "txt" 1)) (progn (setq pts (2d-Coord->pt-lst (vlax-get pl 'Coordinates)) file (open file "w") cnt 1 ) (and (= (vla-get-Closed pl) :vlax-true) (setq start (car pts)) ) (while (cdr pts) (write-line (strcat "Sommet " (itoa cnt) " : X=" (rtos (caar pts)) " Y=" (rtos (cadar pts)) ) file ) (write-line (strcat "Distance : " (rtos (distance (car pts) (cadr pts))) ) file ) (setq pts (cdr pts) cnt (1+ cnt) ) ) (write-line (strcat "Sommet " (itoa cnt) " : X=" (rtos (caar pts)) " Y=" (rtos (cadar pts)) ) file ) (and start (write-line (strcat "Distance : " (rtos (distance (car pts) start)) ) file ) ) Resultat error: malformed list on input Comprend pas ?

Bonsoir! Mais c'est ce que j'ai fait Essaye de refaire un copier coller. Il ne devrait y avoir aucun problème avec les versions d'AutoCAD postérieures à 2000.

documents/Routines/pline2txt.lsp") ; error: bad argument type: numberp: nil Voilà ce qu'elle me retourne!

Question sur le lips : Est-ce qu'il peut fonctionner sur la version 2004? Merci ! [Edité le 24/1/2010 par pierrevigneux]

Bonsoir John! Bien sur la commande de Gile ou Patrick Seglen est parfaite elle retourne la longueur de tous le segments , de plus , j'aimerais les coter et annoter leur longueurs, tel une cote, mais exprimé en P.K soit 0+630,532 ou 630,532 mètres du début de la polyligne. [Edité le 24/1/2010 par pierrevigneux]

Je te remerci beaucoup, je trouve ça très utile, mais je ne crois pas qu'on se comprennent. Si tu veux je peux te faire parvenir mon dessin-exemple et t'expliquer ce que j'aimerais qu'elle me retourne la commande. Merci de ta patience! pierre.vigneux@gmail.com [Edité le 24/1/2010 par pierrevigneux] [Edité le 24/1/2010 par pierrevigneux]

Merci BonusCAD! Ta commande est super, sauf qu'elle me cote seulement: - les arcs et seulement l'angle de déflection de l'arc - ce que je recherche, est coter la polyligne en longueur à partir de son début de plus, coter tous ses segments.

Bonsoir Bonus CAD Voila reponse de la commande ? Command: DIM_POLYARC Sélectionner une polyligne. Select objects: _.dimarc Unknown command "DIMARC". Press F1 for help. Command: Command: _none Unknown command "NONE". Press F1 for help. Command: Command: _.dimarc Unknown command "DIMARC". Press F1 for help. Command: Command: _none Unknown command "NONE". Press F1 for help. Command: DIM_POLYARC Sélectionner une polyligne. Select objects: _.dimarc Unknown command "DIMARC". Press F1 for help. Command: Command: _none Unknown command "NONE". Press F1 for help. Command: Command: _.dimarc Unknown command "DIMARC". Press F1 for help. Command: Command: _none Unknown command "NONE". Press F1 for help.

Mais elle fonctionne pour quelle version? Chez moi elle n fonctionne pas. Ce que je trouve d'intéressant, ce sont les informations sur la polygne. De plus j'aimerais pouvoir les côter automatiquement sur mon dessin, avrec leurs longueurs depuis le début de la polyligne. [Edité le 22/1/2010 par pierrevigneux]

defun getPolySegs J,ai essayé la fonction et ça ne fonctionne pas, ce serait très intéressant de pouvour la faire fonctionner, pour la version 2004 Quelqu'un pourrais m'aider, je suis nul dans le lisp! Merci!

Merci Tramber pour tes explications ! @+

X_all J'ai la version Autocadmécanical destop 2004 de toute façon je vais essayer quand même le compilo et j'aurai peut-être d,autres questions pour Tramber. Merci de votre aide !

Le programme en question est sensé faire quoi au juste? Je m'imaginais pouvoir compiler un nouveau menu, mais ne sais pas à quoi il sert? Peut-être je devrais juste modifier un menu existant?

J'aurais essayé de modifier un menu existant, mais, je ne suis pas sûr.

Je viens de télécharger Compilo et ça m'indique n'est pas super, Quelqu'un pourrais-t'il me donner des information si je peux l'utiliser ou trop dangereux? Ou risque de pantage?

Bonjour gile ! Je viens de découvrir ta commande Seglen je la trouve super, j'aimerais pouvoir ajouter des cotation en chainage à chaque changement de direction, début, fin de courbes aux intersections Ex: c.c.(début de coube) 1+002,315 ou f.c(fin de courbe) les cotations pourraient être décalés à la verticale.

Helo le Crabe ! J'ai essayé ta routinre POINTATDIST1 et j'aimerais si possible, une petite modification ou addition soit en plus de retourner la distance sur la ligne de commande pouvoir y insérerun texte choisi par l'utlisateur ex: C.C. commencement de courbe P.K. point kilométrique 0+0105,50 avec sa coordonnée La commande pourrais en plus de récupérer les coordonnées des débuts te fin de segments les côter depuis le début de la polyligneé Merci ! [Edité le 23/1/2010 par pierrevigneux]

Mon cher Gile tu est mon idole Ça fontionne à merveille, je te remercie encore une fois "+

Mon cher Gile Petite compication, Supposons que à la commande, on demande de dessiner les côtes principales au P.k. 0+100 c.a.d. tous les 100 mètes et que dans dans les intervales intermédiaires on dessine seulement les petites barres tous les 20 mètres. Est-ce possible?