texte vectoriel et lisp

[mlon]

Bonjour et bonne année à tous!

J'essaie de créer un lisp me permettant de changer l'unité d'altitudes:

je m'explique : j' ai des fichiers de sortie avec mes points topo au cm et je voudrais les replacer à leur hauteur correcte en mètres.

 

Mon problème se situe dans la récupération des valeurs comprises dans le texte.

 

Quelqu'un sait il comment faire?

 

PS: je n'ai eu qu'une journée de formation sur le lisp...alors si la solution est toute bete soyez gentils avec moi ;)

[bonuscad]

Bonjour,

 

Je pense avoir compris que tes points sont en 2D et que tu veux les passer en 3D en récupérant la valeur du texte qui figure à coté (en cm).

 

Voici un début d'exemple:

(defun c:def_z ( / pt dxf_pt txt dxf_txt dxf_10 z pt_3d)
(while (not (setq pt (entsel "\nChoix du point"))))
(cond
	((eq (cdr (assoc 0 (setq dxf_pt (entget (car pt))))) "POINT")
		(while (not (setq txt (entsel "\nChoix du texte :"))))
		(cond
			((eq (cdr (assoc 0 (setq dxf_txt (entget (car txt))))) "TEXT")
				(setq z (/ (atof (cdr (assoc 1 dxf_txt))) 100.0))
				(setq dxf_10 (cdr (assoc 10 dxf_pt)))
				(setq pt_3d (list (car dxf_10) (cadr dxf_10) z))
			)
			(T (princ " Ce n'est pas du texte!"))
		)
	)
	(T (princ " Ce n'est pas un point!"))
)
(print pt_3d)
(prin1)
)

 

 

PS: tu aurait du poster dans le forum Lisp

[mlon]

oki merci !

dsl pour le lieu du post mais je suis nouveau membre alors g encor 1 peu de mal...

la prochaine fois je fais gaffe promis!

bon il me reste plus qu'a essayer maintenant.

en te remerciant encore , Bonne journée.