Besoin d\'aide pour compléter ce lisp

[t_pam]

Bonjour à tous,

 

Je reviens vers vous car j'ai besoin de compléter ou modifier ce lisp, merci à Zebulon pour sa partie concernant les changements de couleur.

 

;; Modifie la couleur selon les hauteurs de texte du nouveau gabarit.

(defun ChPropTx (HT COL / ss)

 

(setq ss

(ssget "_X"

(list

'(8 . "00.4-TEXT") ;; le calque

'(0 . "*TEXT") ;; les text et mtext

(cons 40 HT) ;; la hauteur

)

)

)

(if ss

(command "_chprop" ss "" "_c" COL "")

)

)

(defun c:ISOGRAPH ()

(command "-renommer" "style" "ISO3098-1-3-5-V" "Latin-3-5")

(command "-renommer" "style" "ISO3098-1-2-5-V" "Latin-2-5")

(command "-renommer" "style" "ISO3098-1-1-8-V" "Latin-1-75")

(command "-style" "Latin-2-5" "isocp.shx" "2.5" "1" "0" "n" "n")

(command "-style" "Latin-3-5" "isocp.shx" "3.5" "1" "0" "n" "n")

(command "-style" "Latin-1-75" "isocp.shx" "1.75" "1" "0" "n" "n")

(arxload "LAYTRANS.ARX")(acet-laytrans "C:/ISO GRAPH.dws" 7)

(command "-inserer" "*isograph" "0,0" "" "")

(command "_COT" "restaurer" "ISO129 TC10" "ajour" "tout" "" "quitter")

(command "-purger" "S" "ISO3098-1-1-8-V" "N")

(command "-purger" "S" "ISO3098-1-1-8-I" "N")

(command "-purger" "S" "ISO3098-1-2-5-I" "N")

(command "-purger" "S" "ISO3098-1-2-5-V" "N")

(command "-purger" "S" "ISO3098-1-2-5-V-B" "N")

(command "-purger" "S" "ISO3098-1-2-5-I-B" "N")

(command "-purger" "S" "ISO3098-1-3-5-V" "N")

(command "-purger" "S" "ISO3098-1-3-5-I" "N")

(command "-purger" "S" "ISO3098-2-1-8-V" "N")

(command "-purger" "S" "ISO3098-2-1-8-I" "N")

(command "-purger" "S" "ISO3098-2-2-5-V" "N")

(command "-purger" "S" "ISO3098-2-2-5-I" "N")

(command "-purger" "S" "UniversalMath-2-5" "N")

(command "-purger" "CO" "ISO129" "N")

;; Change les couleurs des textes en fonction de leurs hauteurs

(ChPropTx 1.5 1) ;; texte de hauteur 1.5 -> couleur 1

(ChPropTx 1.75 3) ;; texte de hauteur 1.75 -> couleur 3

(ChPropTx 2 3) ;; texte de hauteur 2 -> couleur 3

(ChPropTx 2.5 2) ;; texte de hauteur 2.5 -> couleur 2

(ChPropTx 3.5 7) ;; texte de hauteur 3.5 -> couleur 7

(ChPropTx 5 4) ;; texte de hauteur 5 -> couleur 4

(princ)

)

 

Voici mes problèmes après contrôles et vérifications.

 

Car suite à ce changement de nouveau gabarit de travail, je m'aperçois au fur et à mesure des choses à faire ou à modifier.

 

Le premier serait de modifier une hauteur 1.8 en 1.75 (soit par le style de texte ou par sa hauteur) et ceci avant sa modification de couleur pour qu'elle soit reconnue après.

 

Puis ma deuxième est que j'ai besoin que mes blocs dynamiques soient redéfinis avec les nouveaux paramétrages (calques, couleurs et formes).

Ils portent le même nom et sont sauvegardés dans le même répertoire.

 

Et ma troisième serait, si c'était possible de garder les petit points des flèches ou repères existants avec le nouveau style de cote et de leur attribuer une nouvelle taille de 4.2

 

Merci à nouveau pour votre aide.

 

Bonne journée à tous.

 

Thierry.