jeanmi66

Je ne voulais rien insinuer de "méchant" en disant qu'il y avait des oublis : moi, en lisp je m'y met quand j'ai 5 minutes, entre les gamins et le boulo pas facile. Je vous fais donc confiance à vous tous qui êtes forcément meilleur que moi dans ce domaine ;-) Mes remerciements sont sincères. :D

Super, ça marche !!! Bravo Giles, mille merci ! :D :D :D

Bien joué encore une fois Giles, leur attribuer l'altitude de leur plan d' élévation, c'est judicieux ! Merci à toi grand boss du LISP :D

Pour l'orientation, parfait Giles, merci beaucoup. :D :D :D Le seul Hic, c'est dans le quartier 0 à PI/2, la distance de décalage n'est pas respectée, elle est plus grande, exactement 3 fois plus grande !? Normal ça ? :casstet: Merci ;)

Non, rien ne correspond. Je crois que sur le principe, il est plus simple de supprimer les textes qui portent les anciennes altitudes et recréer des textes suivant l'altitude du pt 3D. Je pense qu'en fait, il faudrait réutiliser en partie le LISP que m'a proposé BONUSCAD pour mettre l'altitude d'un pt 3D au texte juste à côté, au départ, c'était pour donner l'altitude d'un tampon... ;;; Copie la coordonnée Z d'un point sur 1 entité texte existante (defun C:XZ (/ pt text1 elst1) (and ;_ la routine s'arrête si une des expressions suivante retourne nil ;; choisir un point (setq pt (getpoint "\nSpécifiez un point: ")) ;; sélectionner le texte "Z" (setq text1 (car (entsel "\nSélectionnez le texte pour la coordonnée Z: "))) ;; liste des données dxf de l'objet sélectionné (setq elst1 (entget text1)) ;; vérifier qu'il s'agit bien d'un texte (ou mtexte) (wcmatch (cdr (assoc 0 elst1)) "*TEXT") ;; modifier la valeur du texte (entmod (subst (cons 1 (rtos (caddr pt))) (assoc 1 elst1) elst1 ) ) ) (princ) ) (princ "COPY COORD Z chargé. Entrer XZ pour lancer la commande.") (princ) En fait il faudrait un peu le même principe : faire une sélection des pts puis créer un texte décalé à une certaine position du point, et lui attribuer l'altitude. Vous en pensez quoi ? C'est complexe ?

Voilà le résultat : je suis dans mon SCU VUE. Si je résonne avec un cercle trigo attaché, les polyligne se trouvant entre 0 et PI/2 et entre PI et 3PI/2 ne permettent pas d'avoir un texte "à l'endroit", le texte est renversé. Bizarre. Vous savez pourquoi ?

Effectivement, ce sont des textes car je les importe par BONUSCAD. Je vais faire une recherche et reviendrais au cas où...

Salut, je me demande si la routine de Giles "INCREMENT" peut faire ce que je cherche à faire: J'ai un semis de points. Je fai un déplacement de tout ces pts d'un delta z quelquonque. Mais les textes de ces points qui représentaient l'altitudes de ces derniers, restent à cette ancienne altitudes. N'y a-t-il donc pas moyen d'incrémenter ces textes ? Ou alors, il faudrait pouvoir "ré-immatriculer" chaque point d'un texte représentant la nouvelle altitude, qu'on pourrait calibrer en style, justification et hauteur !? Je sais même pas si c'est possible aussi !? Merci.

Une petite précision par rapport au dernier prog de BONUSCAD dans le message précédent... Je travaille souvent en SCU VUE. Dans ce scu, je me débrouille pour que mon dessin (en vue de dessus) soit tjs orienté de manière à avoir l'axe Y du SCU GENERAL entre -PI/2 et +PI/2 d'un cercle trigo, dans ma vue (j'espère être clair). Ce qui fait que les orientation de texte ne prennent pas en compte la différence angulaire entre les deux SCU. Je croyais que je devais changer la variable UCSXDIR en UCSVIEW mais là, le prog de BONUSCAD marche plus. Je dois zapper un truc. Un petit coup de main des maîtres de cet univers svp ? Merci d'avance.

Heuuuu, j'ai trouvé ma bête erreur : forcément, si je mets pas EVAL, je risque pas de récupérer quoi que ce soi. C'est bon, désolé pour ce post inutile ! :P

Salut, voilà j'ai enregistré une valeur de la façon suivante (setq val1 (getdist "\nEntrez la distance: ")) Maintenant, plus loin dans un autre bloc, je voudrais récupérer cette valeur se trouvant dans cette variable, mais ça ne fonctionne pas. J'ai utilisé : !val1 c'est ce qui était donné dans le cours téléchargeable dans les ressources, pour appeler la variable. Ce ne serait pas ça ? Merci

Bouducon C'est ENOOOOOOOOOORME !!!! Exactement ce que je cherchais !!!!!!!!!!!!!!!!!!!!!! :o Mais quand je vois ton code, j'étais à des années lumière !!!!! Chapeau bas, l'artiste ! Mille merci et... respect ! :D

Haaa zut, j'essai mais j'y arrive pas !!!! :( En fait, j'ai des polylignes 2D et un texte simple que j'aimerai copier à certains endroits entre chaque pt constituant la polyligne. Ce serai l'équivalent d'une copie multiple. Mon idée était donc de récupérer dans une variable l'angle entre deux points mais je vois pas comment le rentrer dans une routine de copie multiple ! Quelqu'un peut m'aider svp ? Merci, je continue à chercher en attendant...

Effectivement, ce serait entre deux pts à chaque fois. L'idéal pour moi serait de cliquer sur les deux pts. Merci

Pffffffff, j'suis bidon, tellement c'est simple !!!! Faut vraiment que je me mette au LISP, avec pas grand chose, on peut gagner beaucoup de temps !!!!! Merci beaucoup BONUSCAD pour ton aide !!!! :)

Bonjour, et bien voilà, je voudrais savoir si on peut récupérer dans une variable l'angle d'une polyligne 2D dans le SCU courant ? Merci

Bonjour, j'ai encore besoin de vos lumière... Voilà pratiquement, j'ai un plan énorme avec des regards relevés par un géomètre. A côté de chaque regard figure deux textes : le premier donne le Z tampon, le second donne le Z du radier. Je dois modifier tous les textes radier avec des profondeurs que l'on vient de me donner sur un papier. Serait-il possible sur une routine de faire la chose suivante: 1- sélection de l'alti du tampon en cliquant sur le point 3D correspondant (ça je sais faire, j'ai un lisp pour ça) 2- un texte dans la ligne de commande me demande "Quelle est la profondeur entre tampon et radier ?" 3- j'entre la profondeur au clavier 4- un texte dans la ligne de commande me demande "Veuillez sélectionner le texte à modifier" 5- je sélectionne le texte et la soustraction est faite en modifiant le texte Merci, pour 1- c'est bon j'ai besoin d'aide pour la suite; voici le lisp pour obtenir la variable altimétrique du point 3D, mais je pense que tout le monde doit l'avoir, il est courant... ;;; Copie la coordonnée Z d'un point sur 1 entité texte existante (defun C:XZ (/ pt text1 elst1) (and ;_ la routine s'arrête si une des expressions suivante retourne nil ;; choisir un point (setq pt (getpoint "\nSpécifiez un point: ")) ;; sélectionner le texte "Z" (setq text1 (car (entsel "\nSélectionnez le texte pour la coordonnée Z: "))) ;; liste des données dxf de l'objet sélectionné (setq elst1 (entget text1)) ;; vérifier qu'il s'agit bien d'un texte (ou mtexte) (wcmatch (cdr (assoc 0 elst1)) "*TEXT") ;; modifier la valeur du texte (entmod (subst (cons 1 (rtos (caddr pt))) (assoc 1 elst1) elst1 ) ) ) (princ) ) (princ "COPY COORD Z chargé. Entrer XZ pour lancer la commande.") (princ)

Merci beaucoup pour ces éclaircissements ! :D

Haaaaaa, ok, je savais pas, on en apprend tous les jours ! Il suffit que je filtre ma sélection pour avoir uniquement mes points 3D à présent !!! Ok, merci ! :D Une petite question, pour filtrer, j'utilise la sélection rapide, le petit icône d'entaunoir. Mais savez-vous et pourriez-vous m'expliquer comment fonctionne la commande "FILTER" ? Je comprends pas comment ça marche si je veux par exemple sélectionner des pts ? Merci d'avance !

Bonjour, j'ai un semis de pts 3D à l'écran sous autocad 2004. Je n'ai aucun applicatif hormis BONUSCAD le pieux. Je souhaiterais faire un delta en altimétrie sur ces points. Existerait-il une routine pour ça svp ? Merci

Non, ça y est , trouvé : BONUSCAD ! Il est vraiment sympa. Merci et A+ :D

Salut, il y a de ça environ 1 an, j'avais mis la main sur un petit utilitaire gratuit de topo qui pouvait venir en remplacement de covadis. Il créait des talus, insérait des pts, des flèches nord... le tout avec un menu déroulant qui s'installait dans la barre des menus. Mais je ne l'ai plus (j'ai changé de société) et j'aimerais remettre la main dessus. Quelqu'un le connait-il ? Ou connaitriez-vous un autre utilitaire de ce genre ? Merci

Bonjour, je cherche à faire, via les alias de raccourcis clavier, une fonction qui ressemble à celle d'autocad comme suit : mon accroche objet est activé avec de multiples éléments d'accroche (intersection, perpendiculaire, extrémité...). Je lance une polyligne et là, je voudrais utiliser uniquement, juste pour l'accroche au point suivant, l'accrochage perpendiculaire. Est-ce possible en tapant un raccourcis clavier alors que la fonction polyligne est active (sans passer par un menu d'accroche objet) ? Merci ! :)

Comment fait on pour faire un mirroir comme sous autocad ? (je ramène à autocad, dsl, mais c'est ma seule référence pour le moment). Peut-on faire aussi en sorte que lorsqu'une fonction a été lancé (ex: polyligne) on la termine par un click droit de souris plutot qu'ENTREE ? Merci

super, merci, je verrai ça lundi matin