aligner text ou blocs sur ligne

[zin29]

salut

je cherche un lisp capable d' aligner un text ou un bloc sur une ligne en deux clic .

 

clic sur le text_et clic sur la ligne_.

le texte se met automatiquement au centre de celle-ci

j' ai utilisé la demo 51 jours de chez " cadhedral" Newcadtools (qui n' existe plus). c' etait une VBA .

Depuis j' ai utilisé d' autre lisp comme alin, rot_text...........sans trouver mon bonheur.

 

Merci d' avance.

 

[kallain]

Bonjour,

 

Sur ce lien

tu trouveras presque ton bonheur (les textes ou blocks ne sont pas centrés)

 

[Bred]

Salut,

un premier jet "Brouillon" pour les texte sur une ligne (j'approndirais quand je pourrais)

;;; MID_PT Retourne le milieu de deux points (gile)
(defun mid_pt (p1 p2)
(mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2)) p1 p2)
)

(defun c:txt-ligne (/ ANGL-L L PT-MIL TX)
(setq l nil
     tx nil)
 (princ "\n Choisir Ligne :")
(while (not l)
   (setq l (ssget "_:S:E" '((0 . "LINE")))))
(setq l (entget (ssname l 0)))
(setq angl-l (angle (cdr (assoc 10 l)) (cdr (assoc 11 l))))
(setq pt-mil (mid_pt (cdr (assoc 10 l)) (cdr (assoc 11 l))))

 (princ "\n Choisir Texte à aligner :")
(while (not tx)
   (setq tx (ssget "_:S:E" '((0 . "MTEXT")))))
(setq tx (entget (ssname tx 0)))

(setq tx (entmod (subst (cons 71 8) (assoc 71 tx) tx))
     tx (entmod (subst (cons 50 angl-l) (assoc 50 tx) tx)))

(entmod (subst (cons 10 pt-mil) (assoc 10 tx) tx))
 (princ)

 )

 

-------------------------

ah, Kallain m'a doublé....

 

[Edité le 8/3/2007 par Bred]

[zin29]

kallain et bred merci deja.

 

sur ton lien kallain le lisp pour l' aligner le text avec les rotations est interessant

par contre aligner blocs ou objet ne marche pas.je n' est pas non plus cherchez plus loin pour le moment.

 

bred ton premier jet "Brouillon" genial, mais marche que sur les lignes at avec du Mtext.

C est ce que je cherche. mais j' aimerai bien l' aligner sur polyligne et avec du text simple aussi

 

c' est peu etre compliqué à faire ?

 

ci tu peux quand tu le dit 'approndir et inclure dans le même lisp alignement de bloc aussi

ca serait top.

 

 

Merci.

 

[kallain]

par contre aligner blocs ou objet ne marche pas

:casstet:

ALIGN_INSERT.lsp marche très bien mais que pour les blocks

[zin29]

kallain mille excuse !

 

il marche tres bien .

 

trop content de ta reponse rapide j' ai oublié le le "T"" de insert dans ma ligne de commande

comme on dit chez nous "con a bouffer de l' herbe, le gars" (le gars c' est moi bien sur)

 

Merci.