attribut - texte

[rimbo]

Mon souhait ... réalisable ou pas :exclam:

 

Que l'on puisse trasformer un texte existant en attribut ou utilisé un texte ou texmult existant pour créer un attribut... :cool:

 

 

[Patou]

Si ca peut d'aider

 

;;; TXT2ATTDEF.LSP TEXT TO ATTRIBUTES ©2002, Sanjay Kulkarni

 

(defun

C:TXT2ATTDEF (/ TXT1 IFTXT TXT1VAL TXT1IP TXT1HT TXT2IP TXT1ROT

TXT1JUSTH TXT1JUSTV TXTJUST APRMPT PAFLAGS PCMDECHO)

(setq PCMDECHO (getvar "CMDECHO"))

(setvar "CMDECHO" 0)

(setq TXT1 (entget (car (entsel "\nSelect Text : "))))

(setq IFTXT (cdr (assoc 0 TXT1)))

(while (/= IFTXT "TEXT")

(setq

TXT1

(entget

(car

(entsel

(strcat

"\nSelection Error !! You selected "

IFTXT

"! \nPlease Select Text : "

) ;_ end of strcat

) ;_ end of entsel

) ;_ end of car

) ;_ end of entget

) ;_ end of setq

(setq IFTXT (cdr (assoc 0 TXT1)))

 

) ;_ end of while

(setq TXT1VAL (cdr (assoc 1 TXT1)))

(setq TXT2IP (cdr (assoc 10 TXT1)))

(setq TXT1IP (cdr (assoc 11 TXT1)))

(setq TXT1HT (cdr (assoc 40 TXT1)))

(setq TXT1ROT (cdr (assoc 50 TXT1)))

(setq TXT1JUSTH (cdr (assoc 72 TXT1)))

(setq TXT1JUSTV (cdr (assoc 73 TXT1)))

(cond

((and(= TXT1JUSTV 0)(= TXT1JUSTH 0))

(setq txtjust "Left"))

((and(= TXT1JUSTV 0)(= TXT1JUSTH 1))

(setq txtjust "Center"))

((and(= TXT1JUSTV 0)(= TXT1JUSTH 2))

(setq txtjust "Right"))

((and(= TXT1JUSTV 0)(= TXT1JUSTH 3))

(setq txtjust "Align"))

((and(= TXT1JUSTV 0)(= TXT1JUSTH 4))

(setq txtjust "Middle"))

((and(= TXT1JUSTV 0)(= TXT1JUSTH 5))

(setq txtjust "Fit"))

((and(= TXT1JUSTV 1)(= TXT1JUSTH 0))

(setq txtjust "BL"))

((and(= TXT1JUSTV 1)(= TXT1JUSTH 1))

(setq txtjust "BC"))

((and(= TXT1JUSTV 1)(= TXT1JUSTH 2))

(setq txtjust "BR"))

((and(= TXT1JUSTV 2)(= TXT1JUSTH 0))

(setq txtjust "ML"))

((and(= TXT1JUSTV 2)(= TXT1JUSTH 1))

(setq txtjust "MC"))

((and(= TXT1JUSTV 2)(= TXT1JUSTH 2))

(setq txtjust "MR"))

((and(= TXT1JUSTV 3)(= TXT1JUSTH 0))

(setq txtjust "TL"))

((and(= TXT1JUSTV 3)(= TXT1JUSTH 1))

(setq txtjust "TC"))

((and(= TXT1JUSTV 3)(= TXT1JUSTH 2))

(setq txtjust "TR"))

)

(setq APRMPT (getstring T "\nAttribute prompt : "))

(entdel (cdar TXT1))

(setq PAFLAGS (getvar "AFLAGS"))

(setvar "AFLAGS" 0)

(setq TXT1ROT (/ (* TXT1ROT 180) pi))

(cond

((= TXTJUST "Left")

(command "attdef" "" TXT1VAL APRMPT TXT1VAL TXT2IP TXT1HT TXT1ROT))

((or(= TXTJUST "Fit")(= TXTJUST "Align"))

(command "attdef" "" TXT1VAL APRMPT TXT1VAL "J" TXTJUST TXT2IP TXT1IP TXT1HT TXT1ROT))

((command "attdef" "" TXT1VAL APRMPT TXT1VAL "J" TXTJUST TXT1IP TXT1HT TXT1ROT))

);_ end of COND

(setvar "AFLAGS" PAFLAGS)

(setvar "CMDECHO" PCMDECHO)

(princ)

) ;defun txt2attdef

;;End Of Routine

(PRINC)

 

[rimbo]

Je m'incline,... merci :exclam: :cool: