Texte mult en altitudes

[Gejonimo]

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

[jerome.s]

Bonsoir, en fonction des éléments que tu fournis, je dirais qu'à part : Terrain - convertir texte en point, je ne vois pas quoi faire d'autre.

Inconvénient : le MNT sera modélisé suivant le point d'insertion du texte et pas le point de levé topo.

 

Cordialement

[lecrabe]

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

[lecrabe]

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)
)

[COME]

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 !!!

[jerome.s]

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 !!!

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

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

 

Cordialement.

[COME]

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.

[DenisHen]

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...

[lecrabe]

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

[DenisHen]

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...

[Gejonimo]

C'est bon merci tout a fonctionné parfaitement. votre réactivité est impressionnante !