Points sur texte

[RhymOne]

Bonjour a tous,

Est ce que qqun a la connaissance d'un lisp pour inserer en serie un point sur un texte et élevé automatiquement le point celon le texte.

Sur des milliers de points en pas trop de temps de calcul serait top....

Merci d'avance.

[(gile)]

Salut,

 

Si j'ai bien compris la demande...

 

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