textes

[Pik]

Dans la V.14 et avec un lsp spécial, on pouvait changer la taille de plusieurs textes en même temps.

Je n'ai pas retrouvé de fonction similaire sur la 2002. Ce serait étonnant que cela n'existe plus ? Quelqu'un a-t-il une solution de dépannage ou me dire où se trouve maintenant cette fonction Autocad ? merci d'avance

Pik

[Invité Patrick]

Changes les hauteurs dans la fenêtre Propriétés.

[bonuscad]

Salut,

 

Je propose cela, mais il en existe beaucoup d'autre.

 

((lambda ( / p orient l n e chm echel haut nhaut)
(prompt "\nSélectionnez les textes à modifier: ")
(setq p
	(ssget
		'((-4 . "				(0 . "TEXT")
			(0 . "MTEXT")
		(-4 . "OR>"))
	)
)
(if p
	(progn
		(setq
			echel (getreal "\nEchelle de transformation pour tous les textes selectionnés: ")
			l 0
			chm  0
			n (sslength p)
		)
		(while (< l n)
			(if
				(or
					(= "TEXT" (cdr (assoc 0 (setq e (entget (ssname p l))))))
					(= "MTEXT" (cdr (assoc 0 e)))
				)
				(progn
					(setq
						haut (cdr (assoc 40 e))
						nhaut (* haut echel)
						e (subst (cons 40 nhaut) (assoc 40 e) e)
					)
					(entmod e)
					(setq chm (1+ chm))
				)
			)
			(setq l (1+ l))
		)
	)
)
(terpri)
(princ chm)
(princ " ligne(s) de texte a (ont) change de taille.")
(terpri)
))

 

Si celui ne te convient pas, j'en posède un autre avec boite de dialogue

 

Bruno

[Patrick_35]

Bonjour

De mémoire, il y existe un lisp qui était fournit avec la version 14 qui permet de faire ça, c'est le prog chtext.lsp et pour le lancer, il suffit de faire cht. Il me semble que j'ai du le conserver, si ça t'intéresse

 

@+

[mikL44]

Pas besoin de Lisp la fenetre propriété le fait tres bien.

Sélection des textes et changement de la valeur de hauteur dans propriété.

Faut pas faire compliqué quand ont peut faire simple. ;)

[bonuscad]

Boris,

 

Comment fait tu simplement pour changer des hauteurs de texte hétéroclites par propriétés?

 

J'ai donné une solution dans ce sens là, par exemple tu veux doubler la hauteur de TOUS les textes. Dans la question cela n'était pas précisé mais je pense que cela coule de source que propriété ne devait pas répondre à son besoin.

Avec la routine tu fais une seule passe pour changer toutes les hauteurs, sans changer le rapport initial.

 

Il me semble que c'est plus simple ;)

[mikL44]

OK, faites comme si j'avais rien dit :(

[Invité Patrick]

Ou utiliser la commande ECHELLETEXTE. Pas besoin de LISP dans ce cas.

[bonuscad]

Sous 2002

 

Commande: ECHELLETEXTE

Commande inconnue "ECHELLETEXTE". Appuyez sur F1 pour obtenir de l'aide.

 

sous 2005 alors?

 

[ribbit]

Hello,

 

:question: Bizarrement ECHELLETEXTE (voir recherche dans l'aide avec ce mot clé) ne marche pas alors qu'il est censé exister - y'a même un bouton ! Essaye "_scaletext" ca marche.

 

Ribbit.

[bonuscad]

Salut,

 

Excat cher Ribbit "_scaletext" fonctionne et même sans l'underscore (un oubli de traduction d'Autodesk: ce n'est pas la 1ere fois)

 

Par contre le changement même par l'option échelle (ou le terme est mal choisi) , uniformise la taille des textes.

Je crois que j'utiliserais encore ma routine qui me donne entière sastifaction pour des changements d'échelle générale en une seule passe.

 

Merci pour l'info :D

[bonuscad]

Oops Je reviens sur ce que j'ai dit :o

 

Patrick, tu as raison! Pas besoin de lisp.

 

Par contre sur certain postes en 2002 (histoire de patch de correction?):

 

aux messages d'options "Spécifiez la nouvelle hauteur ou [Correspondance objet/Facteur échelle] <1>:"

il faut rentrer "Echelle" en entier pour avoir accès à correspondance et "C" ou "Correspond" pour avoir accès à l'échelle :casstet:

Alors que "_S" pour _scale m'envoie bien à l'échelle et "_m" pour _match m'envoie bien à l'option correspondance.

Et bien sûr les menus contextuel dans ce cas ne fonctionne pas non plus.

 

Hormis ces gagures de traduction la commande fonctionne bien.

[fabcad]

bonjour bonuscad

tiens voila un lisp que j'utilise souvent :

a enregistrer sous ID-TXT.LSP

tu charges avec glisser-deposer et la lances en tapant id-txt

 

bonne utilisation

 

fabcad

 

; ID-TXT.LSP

;---------------------------------------------------------------

; MODIFIE LES PROPRIETES D'UN OU PLUSIEURS TEXTES

; A PARTIR D'UN TEXTE.

;---------------------------------------------------------------

; Creee le 13.02.1996

; Modifiee le 19.02.1999

; Modifiee le 12.06.1999 justification avec des MTEXT ou des TEXT

;;;--------------------------------------------------------------------------------

(defun justif (nom /)

 

(setq lst-nom (entget nom))

(setq typ-nom (cdr (assoc 0 lst-nom)))

 

(cond

((= typ-nom "MTEXT")

(cond

((= 1 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Haut-Gauche !!!\n")

(setq res-lst (list (cons 71 1) (cons 72 0) (cons 73 3)))

);fin progn

);fin si cdr egal à 1

 

((= 2 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Haut-Centre !!!\n")

(setq res-lst (list (cons 71 2) (cons 72 1) (cons 73 3)))

);fin progn

);fin si cdr egal à 2

 

((= 3 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Haut-Droite !!!\n")

(setq res-lst (list (cons 71 3) (cons 72 2) (cons 73 3)))

);fin progn

);fin si cdr egal à 3

 

((= 4 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Milieu-Gauche !!!\n")

(setq res-lst (list (cons 71 4) (cons 72 0) (cons 73 2)))

);fin progn

);fin si cdr egal à 4

 

((= 5 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Milieu-Centre !!!\n")

(setq res-lst (list (cons 71 5) (cons 72 1) (cons 73 2)))

);fin progn

);fin si cdr egal à 5

 

((= 6 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Milieu-Droite !!!\n")

(setq res-lst (list (cons 71 6) (cons 72 2) (cons 73 2)))

);fin progn

);fin si cdr egal à 6

 

((= 7 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Bas-Gauche !!!\n")

(setq res-lst (list (cons 71 7) (cons 72 0) (cons 73 0)))

);fin progn

);fin si cdr egal à 4

 

((= 8 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Bas-Centre !!!\n")

(setq res-lst (list (cons 71 8) (cons 72 1) (cons 73 0)))

);fin progn

);fin si cdr egal à 5

 

((= 9 (cdr (assoc 71 lst-nom)))

(progn

(prompt "\n Justification de type Bas-Droite !!!\n")

(setq res-lst (list (cons 71 9) (cons 72 2) (cons 73 0)))

);fin progn

);fin si cdr egal à 6

 

);fin 2eme cond

 

); fin obj egal a MTEXT

 

((= typ-nom "TEXT")

(cond

 

((and (= 0 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Haut-Gauche !!!\n")

(setq res-lst (list (cons 71 1) (cons 72 0) (cons 73 3)))

);fin progn

);fin

 

((and (= 1 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Haut-Centre !!!\n")

(setq res-lst (list (cons 71 2) (cons 72 1) (cons 73 3)))

);fin progn

);fin

 

((and (= 2 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Haut-Droite !!!\n")

(setq res-lst (list (cons 71 3) (cons 72 2) (cons 73 3)))

);fin progn

);fin

 

((and (= 0 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Milieu-Gauche !!!\n")

(setq res-lst (list (cons 71 4) (cons 72 0) (cons 73 2)))

);fin progn

);fin

 

((and (= 1 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Milieu-Centre !!!\n")

(setq res-lst (list (cons 71 5) (cons 72 1) (cons 73 2)))

);fin progn

);fin

 

((and (= 2 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Milieu-Droite !!!\n")

(setq res-lst (list (cons 71 6) (cons 72 2) (cons 73 2)))

);fin progn

);fin

 

((and (= 0 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Bas-Gauche !!!\n")

(setq res-lst (list (cons 71 7) (cons 72 0) (cons 73 1)))

);fin progn

);fin

 

((and (= 1 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Bas-Centre !!!\n")

(setq res-lst (list (cons 71 8) (cons 72 1) (cons 73 1)))

);fin progn

);fin

 

((and (= 2 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Bas-Droite !!!\n")

(setq res-lst (list (cons 71 9) (cons 72 2) (cons 73 1)))

);fin progn

);fin

 

((and (= 0 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Bas-Gauche !!!\n")

(setq res-lst (list (cons 71 7) (cons 72 0) (cons 73 0)))

);fin progn

);fin

 

((and (= 1 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Bas-Centre !!!\n")

(setq res-lst (list (cons 71 8) (cons 72 1) (cons 73 0)))

);fin progn

);fin

 

((and (= 2 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Bas-Droite !!!\n")

(setq res-lst (list (cons 71 9) (cons 72 2) (cons 73 0)))

);fin progn

);fin

 

((and (= 4 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom))))

(progn

(prompt "\n Justification de type Milieu-Centre !!!\n")

(setq res-lst (list (cons 71 5) (cons 72 4) (cons 73 0)))

);fin progn

);fin

 

);fin cond

); fin obj egal a TEXT

 

);fin 1er cond

res-lst

);fin defun

;----------------------------------------------------------------------

(defun id-chaine (js / c1 i chn nbr er chx2)

(setq cnt2 T)

(while cnt2

(initget "Global Element")

(setq chx2 (getkword "\n Quel type de travail [Global/Element] "))

(cond

((= chx2 "Global")

(progn

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil));fin select er

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq chn (cdr (assoc 1 (entget (car er)))))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq ent (subst (cons 1 chn) (assoc 1 ent) ent))

(entmod ent)

(setq i (+ i 1))

); fin 1er while

);fin progn

);fin si chx2 est egal à Global

((= chx2 "Element")

(progn

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq c1 (ssname js i))

(redraw c1 3)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil));fin select er

(setq chn (cdr (assoc 1 (entget (car er)))))

(setq ent (entget c1))

(setq ent (subst (cons 1 chn) (assoc 1 ent) ent))

(entmod ent)

(setq i (+ i 1))

); fin 1er while

);fin progn

);fin si chx2 est egal à Element

(T (setq cnt2 nil))

);fin cond

);fin while cnt2

(setvar "cmdecho" 1)

)

; -----------------------------------------------------------------

(defun id-ang (js / c1 i ang nbr er chx2)

(setq cnt2 T)

(while cnt2

(initget "Global Element")

(setq chx2 (getkword "\n Quel type de travail [Global/Element] "))

(cond

((= chx2 "Global")

(progn

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil));fin select er

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq ang (cdr (assoc 50 (entget (car er)))))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq ent (subst (cons 50 ang) (assoc 50 ent) ent))

(entmod ent)

(setq i (+ i 1))

); fin 1er while

);fin progn

);fin si chx2 est egal à Global

((= chx2 "Element")

(progn

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq c1 (ssname js i))

(redraw c1 3)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil));fin select er

(setq ang (cdr (assoc 50 (entget (car er)))))

(setq ent (entget c1))

(setq ent (subst (cons 50 ang) (assoc 50 ent) ent))

(entmod ent)

(setq i (+ i 1))

); fin 1er while

);fin progn

);fin si chx2 est egal à Element

(T (setq cnt2 nil))

);fin cond

);fin while cnt2

(setvar "cmdecho" 1)

)

; -----------------------------------------------------------------

(defun id-just (js / c1 i just just2 pti nbr er)

(while (= (setq er (car (entsel "\n Choisir le texte de reference : "))) nil)

);fin 1er while

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(if (= (cdr (assoc 0 (entget (ssname js i)))) "TEXT")

(progn

(setq lst-er (justif er))

(setq just (cdr (assoc 72 lst-er)))

(setq just2 (cdr (assoc 73 lst-er)))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq pti (cdr (assoc 10 (entget c1))))

(setq ent (subst (cons 72 just) (assoc 72 ent) ent))

(setq ent (subst (cons 73 just2) (assoc 73 ent) ent))

(setq ent (subst (cons 11 pti) (assoc 11 ent) ent))

(entmod ent)

);fin progn

(progn

(setq lst-er (justif er))

(setq just (cdr (assoc 71 lst-er)))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq pti (cdr (assoc 10 (entget c1))))

(setq ent (subst (cons 71 just) (assoc 71 ent) ent))

(setq ent (subst (cons 11 pti) (assoc 11 ent) ent))

(entmod ent)

);fin progn

 

);fin if

 

(setq i (+ i 1))

); fin while

(setvar "cmdecho" 1)

)

;;;--------------------------------------------------------------------------------

(defun id-ht (js / c1 i htr nbr er)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil)

);fin 1er while

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq htr (cdr (assoc 40 (entget (car er)))))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq ent (subst (cons 40 htr) (assoc 40 ent) ent))

(entmod ent)

(setq i (+ i 1))

); fin while

(setvar "cmdecho" 1)

)

; -----------------------------------------------------------------

; -----------------------------------------------------------------

(defun id-incli (js / c1 i inc nbr er)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil)

);fin 1er while

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(if (/= (cdr (assoc 0 (entget (ssname js i)))) "MTEXT")

(progn

(setq inc (cdr (assoc 51 (entget (car er)))))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq ent (subst (cons 51 inc) (assoc 51 ent) ent))

(entmod ent)

);fin progn

(prompt "\n Objet de type MTEXT Impossible de le modifier !!!")

);fin if

(setq i (+ i 1))

); fin while

(setvar "cmdecho" 1)

)

; -----------------------------------------------------------------

(defun id-style (js / c1 i sty htr nbr er)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil)

);fin 1er while

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq sty (cdr (assoc 7 (entget (car er)))))

(setq htr (cdr (assoc 40 (entget (car er)))))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq ent (subst (cons 7 sty) (assoc 7 ent) ent))

(setq ent (subst (cons 40 htr) (assoc 40 ent) ent))

(entmod ent)

(setq i (+ i 1))

); fin while

(setvar "cmdecho" 1)

)

; -----------------------------------------------------------------

(defun id-facteur (js / c1 i fact nbr er)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil)

);fin 1er while

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(if (/= (cdr (assoc 0 (entget (ssname js i)))) "MTEXT")

(progn

(setq fact (cdr (assoc 41 (entget (car er)))))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq ent (subst (cons 41 fact) (assoc 41 ent) ent))

(entmod ent)

);fin progn

(prompt "\n Objet de type MTEXT Impossible de le modifier !!!")

);fin if

(setq i (+ i 1))

); fin while

(setvar "cmdecho" 1)

)

; -----------------------------------------------------------------

(defun id-Plan (js / c1 i pla nbr er)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil)

);fin 1er while

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq pla (cdr (assoc 8 (entget (car er)))))

(setq c1 (ssname js i))

(setq ent (entget c1))

(setq ent (subst (cons 8 pla) (assoc 8 ent) ent))

(entmod ent)

(setq i (+ i 1))

); fin while

(setvar "cmdecho" 1)

)

; -----------------------------------------------------------------

(defun id-sp (js / c1 i sty htr pla nbr er)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil)

);fin 1er while

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(if (/= (cdr (assoc 0 (entget (ssname js i)))) "MTEXT")

(progn

(setq sty (cdr (assoc 7 (entget (car er)))))

(setq pla (cdr (assoc 8 (entget (car er)))))

(setq htr (cdr (assoc 40 (entget (car er)))))

(setq just (cdr (assoc 72 (entget (car er)))))

(setq just2 (cdr (assoc 73 (entget (car er)))))

(setq c1 (ssname js i))

(setq pti (cdr (assoc 10 (entget c1))))

(setq ent (entget c1))

(setq ent (subst (cons 8 pla) (assoc 8 ent) ent))

(setq ent (subst (cons 7 sty) (assoc 7 ent) ent))

(setq ent (subst (cons 40 htr) (assoc 40 ent) ent))

(setq ent (subst (cons 72 just) (assoc 72 ent) ent))

(setq ent (subst (cons 73 just2) (assoc 73 ent) ent))

(setq ent (subst (cons 11 pti) (assoc 11 ent) ent))

(entmod ent)

);fin progn

(prompt "\n Objet de type MTEXT Impossible de le modifier !!!")

);fin if

(setq i (+ i 1))

); fin while

(setvar "cmdecho" 1)

)

; -----------------------------------------------------------------

(defun id-tous (js / c1 i sty htr pla nbr er)

(while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil)

);fin 1er while

(setq nbr (sslength js))

(setq i 0)

(while (<= i (- nbr 1))

(setq chn (cdr (assoc 1 (entget (car er)))))

(setq sty (cdr (assoc 7 (entget (car er)))))

(setq pla (cdr (assoc 8 (entget (car er)))))

(setq htr (cdr (assoc 40 (entget (car er)))))

 

(setq c1 (ssname js i))

 

(setq ent (entget c1))

(setq ent (subst (cons 1 chn) (assoc 1 ent) ent))

(setq ent (subst (cons 8 pla) (assoc 8 ent) ent))

(setq ent (subst (cons 7 sty) (assoc 7 ent) ent))

(setq ent (subst (cons 40 htr) (assoc 40 ent) ent))

 

(entmod ent)

(setq i (+ i 1))

); fin while

(setvar "cmdecho" 1)

)

;-----------------------------------------------------------------

; FONCTION MAITRE

(defun c:id-txt ( / chx cnt)

(setvar "cmdecho" 0)

 

(setq js (ssget

'(

(-4 . "

(-4 . "

(0 . "TEXT")

 

(-4 . "AND>")

(-4 . "

(0 . "MTEXT")

 

(-4 . "AND>")

(-4 . "OR>")

)

);ssget

);fin setq js

 

(setq cnt T)

(prompt (strcat "\nNombre de textes : " (rtos (setq nbr (sslength js)) 2 0)))

(while cnt

(initget "Angle Calque Facteur Hauteur Inclinaison Justification STyle S Tous Valeur")

(setq chx (getkword "\n Propriete identique [Angle/Calque/Fact/Hauteur/Inclin/Justif/STyle/Sp/Tous/Valeur] "))

(cond

((= chx "Angle") (id-ang js))

((= chx "Justification") (id-just js))

((= chx "Valeur") (id-chaine js))

((= chx "Facteur") (id-facteur js))

((= chx "Hauteur") (id-ht js))

((= chx "Inclinaison") (id-incli js))

((= chx "Calque") (id-plan js))

((= chx "STyle") (id-style js))

((= chx "S") (id-sp js))

((= chx "Tous") (id-tous js))

(T (setq cnt nil))

);fin 1 cond

);fin while

(prompt "\n---COPYRIGHT 03/97 par Fabcad---")

nil

(prin1)

);fin c:id-txt

;-----------------------------------------------------------------

(prompt "\nPour lancer tapez : id-txt ")

(prin1)

 

[Invité Patrick]

Par contre sur certain postes en 2002 (histoire de patch de correction?):

 

aux messages d'options "Spécifiez la nouvelle hauteur ou [Correspondance objet/Facteur échelle] <1>:"

il faut rentrer "Echelle" en entier pour avoir accès à correspondance et "C" ou "Correspond" pour avoir accès à l'échelle :casstet:

Alors que "_S" pour _scale m'envoie bien à l'échelle et "_m" pour _match m'envoie bien à l'option correspondance.

Et bien sûr les menus contextuel dans ce cas ne fonctionne pas non plus.

 

Hormis ces gagures de traduction la commande fonctionne bien.

 

Tout à fait. J'avais signalé ce bug peu après la sortie de la 2002. Avait-il été corrigé par les SP? Je ne m'en souviens plus...

[Invité Patrick]

Sous 2002

 

Commande: ECHELLETEXTE

Commande inconnue "ECHELLETEXTE". Appuyez sur F1 pour obtenir de l'aide.

 

sous 2005 alors?

 

Il semble y avoir un problème avec les trois dernières icônes de la barre d'outil TEXTE d'AutoCAD 2002. (pas de problèmes dans 2004 et 2005 par contre).

 

Comme certains utilisateurs, j'ai constaté que ces commandes, parfois, ne fonctionnent pas. Il s'agit très certainement d'un chargement défaillant de programmes ARX. Pouvez vous nous dire, pour ceux qui ont constaté ces problèmes, si vous avez d'autres versions AutoCAD installées?

[mikL44]

sous 2000i

 

Commande: echelletexte

Commande inconnue "ECHELLETEXTE". Appuyez sur F1 pour obtenir de l'aide.

 

Commande: _scaletext

Commande inconnue "SCALETEXT". Appuyez sur F1 pour obtenir de l'aide.

 

Commande: scaletext

Commande inconnue "SCALETEXT". Appuyez sur F1 pour obtenir de l'aide.

[Invité Patrick]

Oui sous 2000i c'est normal, ces commandes ne sont apparues qu'en 2002.

[CDL]

ECHELLETEXTE

 

J’ai LT 2002 2004 et 2005 sur le même poste

 

Procédure :

Lancement de la 2005 résultat ok

Lancement de la 2002 ça marche pas ! commande inconnue !

Lancement de la 2004 ok !

ReTest sur la 2002 ok ! ça marche sur les 3 ! ?

 

Pas de SPX installé ! LTextender sur 2002 et 2004 !

Donc confirme ton Hypothèse !?

Faudra je test une autre procédure !

 

[CDL]

Confirmation :

LT2002 en premier :

J’ai pas ECHELLETEXTE mais j’ai _scaletext

Je lance 2005 et ECHELLETEXTE fonctionne sur les 2

 

Ce serai bien de savoir dans la "barre des titres" la version !

ou dans l’icône !

 

[Pik]

Merci à tous pour vos réponses ! si avec tout ça je n'y arrive pas je bouffe mon micro !! La commande _scaletext avec ou sans _ fonctionne très bien sur 2002 (au moins sur le mien...)

Merci encore

Pik