didier

Bonjour à Toutes et à Tous Assurément, CadXP a contribué dans une grande proportion à nous faire grandir. Sans ce site d'échange, nombreux sont celles et ceux qui auraient laissé tombé, seuls dans leur coin, sans aide aucune. D'autres sites voyaient le jour à cette époque et certains existent encore à l'instar de CadXP, mais ce sont pour la plupart des anglophones. Il y avait une réelle demande, car ils existent encore de nos jours, TheSwamp, CadTutor, Afralisp... Merci Patrick Amicalement

Bonjour @jms Je ne comprends pas bien ce qu'il faut faire. Puisque ces lignes viennent d'un fichier script, c'est qu'on peut lancer ce script et obtenir le dessin des textes. Que faut-il changer ? Une insertion de bloc avec attributs ? Pour ce qui est de la direction des textes, il "suffit" de rajouter une donnée pour cette direction dans le script. Cette direction est-elle connue avant d'écrire les données pour réaliser le script ? Autre chose : "puisque limitées à la syntaxe des commandes Autocad" cette phrase est superflue, car de toute façon le script ne permet rien d'autre. Amicalement

Bonjour On retrouve tous les messages, ce n'est pas le souci. Le vrai souci, c'est la redirection des liens qui n'existe plus. Il y a pas mal de réponses qui renvoient par des liens vers le site ou l'article sauveur, comme le lien est mort, la réponse est perdue. Amicalement

Bonjour @jms Il semble que ces lignes de texte proviennent d'un fichier externe, c'est bien le cas ? Si oui, faire un script est la première solution à réfléchir, elle est décrite maintes et maintes fois sur ce site, Reviens poser la question si tu ne t'en sors pas avec la création de ce script et les aides déjà expliquées... Amicalement

Bonjour @vinslille En lisant ça, on sait que tu débutes. Tout le monde a débuté et je ne me permettrais pas de me moquer. Par contre, quand on débute, on ne se coltine pas tout de suite aux polylignes. Il faut se familiariser avec des objets simples, comprendre chaque action et interaction... Je vais regarder ce qu'on peut faire pour cette demande de dessin... Amicalement

Merci @bonuscad Je suis content de constater qu'on est sur la même longueur d'ondes. Je mets le doigt dessus, même si ça fait mal, car il ne faut plus que les gens croient que les programmeurs sont des magiciens qui en partant de rien savent faire un tout. Sans données de base on ne peut rien faire ou très peu ! Des fois les gens comprennent, des fois non et ils parlent alors de condescendance, ce qui est vexant. Amicalement

Bonjour @bonuscad Il semble qu'on va entamer une discussion...théorique. Je dirais que l'utilisation du HANDLE revient à utiliser l'ordre d'apparition du point dans la base de données du DWG, on est d'accord ? Ces points existent dans un fichier ascii qui sont exportés (puis intégrés dans AutoCAD) dans leur ordre de prise de mesure. L'ordre de prise de mesure n'est pas forcément l'ordre qui devra être utilisé pour créer les polylignes. Exemple simple : une zone de levé n'est pas accessible (camions garés), on la saute et on revient quand les véhicules ne sont plus là. Tout ça pour enfoncer le clou de ce que je tentais d'expliquer à @Gilson que ce n'est pas simple de lier ces points dans l'ordre de l'objet (réseau), ne sachant pas les relations entre les points. Ta proposition sera fonctionnelle dans la plupart des cas, mais pas un programme générique. Toutefois, il est possible que ces levés soient "simplistes" et ne contiennent que des points de réseaux linéaires et que les points apparaissent dans l'ordre de liaison et que donc ton programme satisfasse la demande. De plus en plus souvent, on reçoit des demandes compliquées par le manque de données entrantes, les "gens" pensant que la programmation est magique. Amicalement

@Curlygoth Ce n'est pas la question de mon programme que j'ai mis en exemple pour expliciter à @Gilson l'intérêt d'avoir une "vraie" relation entre les points. Dans un le levé topo "classique" relier les points en fonction de la distance minimale entre eux est une hérésie. Par contre, on peut imaginer que la personne qui va relever le réseau de fibre optique (par exemple) va commencer au début pour lever dans l'ordre de création. Si deux réseaux sensiblement parallèles sont à relever, on va prendre un point une fois sur l'un une fois sur l'autre et dans ce cas, il va falloir trouver une notation qui permet de relier les points "intelligemment", en utilisant les codes de levé topo en préfixe du réseau par exemple, mais c'est une gymnastique que la personne qui est sur le terrain est la seule qui puisse la mettre en œuvre. Amicalement

Bonjour @Gilson Pour illustrer ma réponse dans le message précédent : Exemple de polyligne dessinée automatiquement entre des points avec attributs croissants. Tout est possible, quand on a les bonnes données. Dans ce dessin, j'ai demandé une polyligne entre le point 1 et le point 18. Je n'ai pas été loin dans l'exemple, mais s'il y avait eu 300 points, ça n'aurait pas pris plus de temps, on peut le faire en poly 2D ou 3D, en spline, en poly lissée ... Amicalement 18EAE05A-2A74-43A3-A70E-8CA8F6926BBD.MP4

Bonjour @Gilson Dans ce cas de figure, ce n'est pas possible d'automatiser. Je dis bien "dans ce cas", car il n'y a pas de relation logique entre les points, ou je n'en ai pas trouvé ! Il y a des sommets sans point, les points n'ont pas de numéro qui permettraient de les relier dans le sens croissant, pas d'indication de distance par rapport au début non plus, ça aurait permis de trouver une relation. En plus il faut quelquefois : décaler de 0.12, pour récupérer une polyligne venant du trottoir d’en face Comment indiquer cette subtilité au programme ???? Eh ben quand on fait "ajuster" ça me fait des ronds bizarres sur tout le plan. Qu'est-ce que ça peut bien vouloir dire ???? Pour finir et expliquer ma première ligne, il manque des données, la programmation ça consiste à traiter des données, en étudiant les relations entre les données, les points topo en l'occurrence. Par exemple, si un ordre croissant d'attributs existait dans les points, 1,2,3,4.... la polyligne se dessinerait en un clic. Dans l'exemple donné, les polylignes ont des angles saillants, pas de spline ni de polyligne lissée, pourquoi cette question de la forme si elle n'est pas mise en œuvre dans l'exemple à réaliser ? Il n'y a pas de "point" dans le bloc point topo, pas simple pour les relier "à la main". Sans intention de manquer de respect à quiconque, il faut améliorer la prise de point et le dessin pour penser traiter ces données par un programme. La première chose à faire est de leur donner un ORDRE, point1 point2 point3.... dans une valeur d'attribut, c'est facile avec le numéro de point au moment du levé. Dans ce cas, un programme sera aisé à réaliser. Amicalement

Bonjour @Gilson "mais à condition d’éviter qu’elle fasse des carrés, des obliques, des brisées ou des angles presque droits." Relier par une spline évitera ce genre de souci, ou alors, je n'ai pas compris. On a tellement peu de renseignement que pour répondre, on doit poser des questions. (Ce qui est une bonne façon de décourager les gens de répondre). Les points sont des entités POINT ou des blocs avec attributs, genre point topo ? Les points à relier sont au milieu d'autres points et il faudra filtrer ou est-ce vraiment comme sur le schéma ?, juste quelques points sélectionnables par capture ? Je pense qu'on travaille en 2D, pas de renseignements Z ? Les chambres LT sont des blocs ou de simples lignes/polylignes ? Comment se relier aux chambres ? Pas de point sur le bord des chambres ? Tel que c'est dessiné, à la mano, on pourrait croire qu'il suffit de filtrer par ordre croissant des X, est-ce toujours le cas ou non ? Quelle version AutoCAD ? ce n'est pas une LT au moins ? Amicalement

Bonjour @RIGGER Déplacé ou étiré ? Ce serait bien d'avoir le bloc et un dessin en situation des positions extrêmes. Amicalement

Bonjour @RIGGER Mon bloc s'arrête bien au bout du paramètre, mais peut, dans l'autre sens, aller au-delà de l'origine. OUI, d'accord, et que faut-il comprendre ? Faut-il que OUI, il aille au-delà de l'origine ? ou faut-il l'en empêcher ? Est il possible de le faire se bloquer précisément dans sa position extrême ? OUI, d'accord, et que faut-il comprendre ? Quelle est cette position extrême ? au début ou à la fin ? Faire disparaître la poignée point de base Dans l'éditeur de bloc, sélectionner le paramètre, appeler les propriétés, dans Poignées (vers le bas) sélectionner 1 Sachant que 1 signifie que seule la deuxième poignée sera visible. Amicalement

Bonjour @Helsss Perso, je n'ai aucune connaissance de ce logiciel. Peut-être que d'autres savent et viendront répondre... Amicalement

Oui, bien sûr, mais est-ce un script ou autre chose ? Mais tu réponds en script ou autre chose ?

Bonjour @Helsss Pour agrandir la fenêtre, il faut cliquer sur ce bouton en bas à droite : S'il n'est pas affiché, cliquer sur le bouton trois lignes horizontales tout à droite du menu (le hamburger pour certains) Et cocher la ligne pour que le bouton apparaisse : Pour rendre l'espace Objet COURANT depuis une fenêtre de l'espace papier, il suffit de double-cliquer dans la fenêtre active. À la fin, pour revenir en espace papier "normal", cliquer sur le bouton : Je pense avoir répondu aux questions, Amicalement

Bonjour @Jbrosteaux Je ne sais pas à quoi tu penses en utilisant le vocabulaire "script". Dans l'acception d'AutoCAD, ce n'est pas possible en script. Puisqu'il faut "réfléchir", je veux dire par là tester des combinaisons. En Lisp, il y a peut-être une possibilité, mais encore, il faut connaitre la configuration et prévoir des variables sur lesquelles on peut "jouer". Tout ça pour dire que ce n'est pas gagné, mais pas perdu d'avance non plus. Il faut étudier le temps passé à programmer et le temps et le nombre de fois que tu as à le faire manuellement. Amicalement

Rebonjour @Netparty Allez ! Je vais faire entre les deux. Je te joins une image, comme ça tu devras modifier ton code "à la main". Je suis convaincu que c'est une bonne méthode d'apprentissage, tu réfléchis. Amicalement

Bonjour @Netparty Tu veux qu'on modifie le code ou qu'on te dise à quel endroit il faut ajouter quelque chose ? Amicalement

Hello @lili2006 Cotation continue n'est pas cotation cumulée !

Bonjour et bienvenue @elisuile Dit comme ça, on ne sait pas vraiment faire. Ce qui serait bien, ce serait d'avoir un exemple du rendu souhaité en image ou en DWG. C'est pour lettre dans quel genre de dessin cette cotation cumulée ? Des profils, en long ou en travers, des vues en plans d'architecture ? autre chose ? Amicalement

Bonjour @mathieu @Luna ANNE dans la dernière formule semble une "fote de frape", non ?

Bonjour @sylarr Voici le programme modifié, je n'ai pas touché à l'incrémentation, mais c'est possible en faisant le même changement sur la valeur de la variable i Amicalement ;;;================================================================= ;;; ;;; Ron.LSP V1.01 ;;; ;;; Renuméroter les onglets ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun c:ron( / doc express lay lst n i s txt *errron*) (defun *errron* (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) ) (setq num (getint "\nNuméro de départ ?")) (setq doc (vla-get-activedocument (vlax-get-acad-object)) n num i 1 s *error* *error* *errron* ) (vla-startundomark doc) (if (eval 'acet-ui-progress-done) (progn (acet-ui-progress-init "" (1- (vla-get-count (vla-get-layouts doc)))) (setq express T) ) (progn (princ "\nTravail en cours...") (princ) ) ) (vlax-for lay (vla-get-layouts doc) (setq lst (cons (list (vla-get-taborder lay) lay) lst)) ) (while (setq lay (assoc i lst)) (setq txt (itoa n)) (while (< (strlen txt) 2) (setq txt (strcat "0" txt)) ) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list (cadr lay) txt))) (progn (vla-put-name (vla-item (vla-get-layouts doc) txt) (strcat "Temporaire_Patrick_35___" txt)) (vla-put-name (cadr lay) txt) ) ) (and express (acet-ui-progress-safe i)) (setq n (1+ n) i (1+ i) ) ) (and express (acet-ui-progress-done)) (princ (strcat "\nRenumérotation de " (itoa (1- n)) " présentation(s).")) (vla-endundomark doc) (setq *error* s) (princ) ) (setq nom_lisp "RON") (if app (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ)

Coucou Tiens un "service" informatique qui ne rend pas de "services" !! Je ne savais pas que ça pouvait arriver (hihi) Amicalement

Bonjour @Jiro On ne sait plus où donner du clavier avec les doubles questions sur différents forums et, qui plus est, en changeant de pseudo ! (Et sans prévenir du double postage, bien sûr). Je parle de ce message : Message Forum Autodesk Ma réponse fût signalée comme recevable, qu'en est-il ? Amicalement