Aller au contenu

Texte mult en altitudes


Gejonimo

Messages recommandés

Bonjour ,

 

j'ai récupéré un levé topo a partir du quel je vais devoir modéliser un terrain(sur mensura).

le problème est que les côtes altimétriques sont seulement des textes multilignes sans aucune attribution en z, ni de points.

auriez vous une astuce/lisp pour m'éviter de retaper mes 1047 pts a la main? :unsure:

 

merci d'avance

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

Avec le point d insertion du TEXT/MTEXT qui aurait toujours le MÊME décalage vectoriel partout !?

Et un contenu au début = Altitude / Z

 

Un Deplacer subtil ...

 

Alors avec un Lisp ou Covadis , on va générer des points XYZ...

 

Bye, lecrabe

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

Voici donc le Lisp qui va bien avec des TEXTes simples !

Donc si MTEXT alors il faudra les exploser / decomposer ...

 

MERCI Gilles comme d'habitude !

 

Bye, lecrabe

 


;; 
;; Par GC le 19/03/2010 - Version 1.0
;; Lisp "Txt2Pt" pour inserer en serie un point sur un texte 
;; et elever automatiquement le point selon le texte ... 
;; 

(defun c:Txt2Pt	(/ n ss ent elst alt ins)
 (if (and (setq n -1) (setq ss (ssget '((0 . "TEXT")))))
   (while (setq ent (ssname ss (setq n (1+ n))))
     (if (setq alt (distof (cdr (assoc 1 (setq elst (entget ent))))))
(progn
  (setq ins (assoc 10 elst))
  (entmake
    (list '(0 . "POINT") (list 10 (cadr ins) (caddr ins) alt))
  )
)
     )
   )
 )
 (princ)
)

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

Voici donc le Lisp qui va bien avec des TEXTes simples !

Donc si MTEXT alors il faudra les exploser / decomposer ...

 

MERCI Gilles comme d'habitude !

 

Bye, lecrabe

 


;; 
;; Par GC le 19/03/2010 - Version 1.0
;; Lisp "Txt2Pt" pour inserer en serie un point sur un texte 
;; et elever automatiquement le point selon le texte ... 
;; 

(defun c:Txt2Pt	(/ n ss ent elst alt ins)
 (if (and (setq n -1) (setq ss (ssget '((0 . "TEXT")))))
   (while (setq ent (ssname ss (setq n (1+ n))))
     (if (setq alt (distof (cdr (assoc 1 (setq elst (entget ent))))))
(progn
 	(setq ins (assoc 10 elst))
 	(entmake
   	(list '(0 . "POINT") (list 10 (cadr ins) (caddr ins) alt))
 	)
)
     )
   )
 )
 (princ)
)

 

Salut,

 

Je n'ai encore jamais eu le cas mais comme le pire n'est pas impossible j'ai voulu tester pour ne pas être pris au dépourvu : super cela fonctionne parfaitement !

 

Je vais encore regarder si l'on peut se débrouiller seulement avec Mensura mais rien vu pour l'instant.

 

Encore merci à vous les Pros !!!smile.gif

COME

 

La vie sans musique est tout simplement une erreur, une fatigue, un exil. »

Friedrich Nietzsche

Lien vers le commentaire
Partager sur d’autres sites

Salut,

 

Je n'ai encore jamais eu le cas mais comme le pire n'est pas impossible j'ai voulu tester pour ne pas être pris au dépourvu : super cela fonctionne parfaitement !

 

Je vais encore regarder si l'on peut se débrouiller seulement avec Mensura mais rien vu pour l'instant.

 

Encore merci à vous les Pros !!!smile.gif

Bonjour, peut-tu me dire si le post #2 répond à ta question ?

au préalable il faudra aussi décomposer les Mtext

 

Cordialement.

Lien vers le commentaire
Partager sur d’autres sites

Bonjour, peut-tu me dire si le post #2 répond à ta question ?

au préalable il faudra aussi décomposer les Mtext

 

Cordialement.

 

Oui oui, ! Désolé je m'étais focalisé sur la réponse de notre cher Décapode et j'avais oublié la tienne. J'espère que cela convient aussi à Gejonimo qui est à l'origine de ce post.

COME

 

La vie sans musique est tout simplement une erreur, une fatigue, un exil. »

Friedrich Nietzsche

Lien vers le commentaire
Partager sur d’autres sites

Salut à tous.

 

Attention, je n'en suis pas sur, mais il me semble que le point d'insertion d'un MTEXT n'est pas exactement le même que celui d'un TEXTE...

 

je n'ai pas AutoCAD sous le coude pour confirmer...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

YES Jeune Padawan Denis !

 

Donc il faut exploser/decomposer les MTEXTs puis voir/calculer le decalage avec les TEXTes simples generes

et deplacer le tout du BON vecteur !

Avant d'executer la Routine Lisp "Txt2Pt" de Gilles ...

 

Bye, lecrabe

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Salut.

 

Merci Maître Jedi.

 

Mais je pense qu'il y a autre chose, il me semble que ce décalage est différent selon la taille du texte...

 

Me trompe-je ?

 

Bien que je doute que ces étiquettes soient de tailles différentes...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité