Changer l\'altitude de points

[pierrevigneux]

Bonjour!

 

Je suis à la recherche d'une routine qui pourrais changer l'altitude et les points, d'un levé topographique provenant d'une station totale.

 

Voici un exemple de dessins pour changer les points.

 

 

http://cjoint.com/?ADpxxEVoRYJ

 

Merci !

[Fraid]

Bonjour,

 

Recherche txt2blk dans le forum

 

tu isole calque elevation

 

et tes textes seront transformé en bloc avec attribut avec le bon Z

 

je viens de relire ta question

 

j'avais mal compris

 

qu'est ce que tu dois changer ?

 

Soit plus précis

 

[Edité le 16/4/2011 par Fraid]

[pierrevigneux]

Bonjour Fraid

 

Je dois changer l'élévation du block point et le texte en z .

 

Suis-je plus clair ?

 

Et J'ai essayé le txt2blk et ça ne fonctionne pas pour mon application.

 

Merci de ton attention !

[Fraid]

Y a pas de blocs dans ton dessin :(

 

ton texte est déjà a la bonne altitude

 

est ce que tu veux changé l’altitude en incrémentant tes textes et changer leur positions en conséquence?

[pierrevigneux]

Y a pas de blocs dans ton dessin

 

ton texte est déjà a la bonne altitude

 

Je veux simplement changer les altitudes de mes points,

 

Ex: le point 110 est à 300,00 je veux le mettre 1,03 m plus haut et changer le texte égalrement, pour par la suite construite mon mount.

 

[Fraid]

recherche inc de gilles, qui va t'incrementé tes texte

 

et ensuite tu deplace vers le haut l'ensemble de ton dessin

[pierrevigneux]

J,ai déjà essayé avec la commande _move @0,0,+1.5 ça fonctionne, mais je suis quand même obligé de changer les textes un à un.

 

À +

[lecrabe]

 

Hello

 

Donc il te faut une routine pour ajouter une valeur numerique (positive ou negative) a un texte simple AutoCAD ! :)

 

J'ai ca en stock depuis longtemps ... :D

 

D'ailleurs je ne sais plus qui a ecrit cette routine, sorry !?

 

Le Decapode

 

 

;; Routine ADD_TXT.LSP
;; Creation de nouveaux textes depuis des textes NUMERIQUEs existants
;; et ajout/soustraction d'une valeur numerique = xx.xx / -yy.yy
;; soit sur un calque EXISTANT (Nouveau si necessaire)
;; soit sur le calque COURANT
;; Fonctionne en principe sur les TEXT & MTEXT de type numerique
;; Taper au clavier  ADD_TXT  - Version 1.2 = OK

(defun c:ADD_TXT (/ COEF N-VAL SEL X L LST-ENT)
(vl-load-com)
(setq sel nil)

(while (not sel)

(setq sel (ssget '((0 . "*TEXT")))))

(initget 1)
(setq coef (getreal "\n Valeur numerique a ajouter/soustraire : "))

(setq sauvelayer (getvar "Clayer"))
(setq L (getstring T "\n Nom du Calque EXISTANT pour creer les textes ou ENTREE pour calque COURANT : "))

   (if (equal L "") (setq L (getvar "Clayer")))
;; -- INUTILE -- Creation si necessaire du calque L
;;  (if (equal L "") (setq L (getvar "Clayer"))  (command "_-LAYER" "_M" L "") )

;; -- INUTILE -- because entake cree le calque si necessaire
;; (if (not (tblobjname "LAYER" L))
;; (vla-add (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) L)
;; )

(repeat (setq x (sslength sel))
(setq N-val (+ coef (atof (cdr (assoc 1 (entget (ssname sel (setq x (1- x))))))))
lst-ent (cdr (subst (cons 1 (rtos N-val))
(assoc 1 (entget (ssname sel x)))
(entget (ssname sel x))))
lst-ent (subst (cons 8 L)
(assoc 8 (entget (ssname sel x)))
lst-ent))
(entmake lst-ent)
)

;; -- INUTILE -- Retour sur le calque courant
;; (command "_-LAYER" "_M" sauvelayer "")

(princ)
)

 

 

 

[pierrevigneux]

Bonjour lecrabe

 

J'ai essayé ton code, ce n'est pas exactement ce que je voulais mais ça fait le travail.

 

 

Merci Beaucoup !

[lecrabe]

 

Hello

 

Super, je suis toujours content de satisfaire un Cadxpien !

 

Le Decapode