ROTATION D\'ATTRIBUTS SANS PASSER PAR L\'EDITEUR(URGENT)

[CGDESSINE]

Bonjour,

Je recherche une fonction me permettant de faire une rotation d'attributs sans passer par l'éditeur (comme la fonction rotation d'AutoCAD).

Merci à vous...

[Serge]

CGDessine,

 

Que veux-tu dire "sans passer par un éditeur" comme rotation?

 

Toujours est-il que tu peux utiliser EATTEDIT pour l'édition un à un (depuis 2002, double-clic sur le bloc puis onglet "Options de texte")

 

Tu peux aussi utiliser -ATTEDIT pour l'édition global.

 

Serge

 

[fabcad]

Bonsoir CGDESSINE,

voici les lignes de mon programme d'edition globale d'attributs :

ecris dans le bloc notes et enregistre-le sous EDIT-ATT.LSP

 

tu pourras le charger par un glisser-déposer dans autocad et lancer la fonction

en tapant sur la ligne de commande edit-att.

 

Fabcad

 

;;; fonction d'edition globale d'attributs sur plusieurs attributs

;;; issue de la fonction AutoCAD ATTEDIT

;;; Créee le 18-05-1999

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

(defun sty-att ()

 

(setq nom-b (getstring "\n Nom du bloc <*>: "))

(if (= nom-b nil) (setq nom-b "*"))

 

(setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : "))

 

(setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: "))

(if (= val-at nil) (setq val-at "*"))

 

(setq p1 (getpoint "\n Sélection par Fenêtre - premier point : "))

(setq p2 (getcorner p1 "\n Second point : "))

 

(setq sty (getstring "\n Nouveau Style des attributs : "))

(if (= sty nil) (setq sty ""))

 

(command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2)

(while (/= (getvar "cmdnames") "")

(command "Style" sty "")

)

 

(princ)

 

);fin defun htr-att

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

(defun htr-att ()

 

(setq nom-b (getstring "\n Nom du bloc <*>: "))

(if (= nom-b nil) (setq nom-b "*"))

 

(setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : "))

 

(setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: "))

(if (= val-at nil) (setq val-at "*"))

 

(setq p1 (getpoint "\n Sélection par Fenêtre - premier point : "))

(setq p2 (getcorner p1 "\n Second point : "))

 

(setq htr (getstring "\n Nouvelle hauteur des attributs : "))

(if (= htr nil) (setq htr ""))

 

(command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2)

(while (/= (getvar "cmdnames") "")

(command "Hauteur" htr "")

)

 

(princ)

 

);fin defun htr-att

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

(defun ang-att ()

 

(setq nom-b (getstring "\n Nom du bloc <*>: "))

(if (= nom-b nil) (setq nom-b "*"))

 

(setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : "))

 

(setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: "))

(if (= val-at nil) (setq val-at "*"))

 

(setq p1 (getpoint "\n Sélection par Fenêtre premier point : "))

(setq p2 (getcorner p1 "\n Second point : "))

 

(setq ang (getstring "\n Angle pour ces attributs : "))

(if (= ang nil) (setq angle ""))

 

(command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2)

(while (/= (getvar "cmdnames") "")

(command "Angle" ang "")

)

 

(princ)

 

);fin defun ang-att

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

(defun col-att ()

 

(setq nom-b (getstring "\n Nom du bloc <*>: "))

(if (= nom-b nil) (setq nom-b "*"))

 

(setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : "))

 

(setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: "))

(if (= val-at nil) (setq val-at "*"))

 

(setq p1 (getpoint "\n Sélection par Fenêtre premier point : "))

(setq p2 (getcorner p1 "\n Second point : "))

 

(setq coul (getstring "\n Couleur pour ces attributs : "))

(if (= coul nil) (setq coul ""))

 

(command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2)

(while (/= (getvar "cmdnames") "")

(command "CO" coul "")

)

 

(princ)

 

);fin defun

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

(defun cal-att ()

 

(setq nom-b (getstring "\n Nom du bloc <*>: "))

(if (= nom-b nil) (setq nom-b "*"))

 

(setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : "))

 

(setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: "))

(if (= val-at nil) (setq val-at "*"))

 

(setq p1 (getpoint "\n Sélection par Fenêtre premier point : "))

(setq p2 (getcorner p1 "\n Second point : "))

 

(setq calq (getstring "\n Calque pour ces attributs - [0] : "))

(if (= calq nil) (setq calq "0"))

 

(command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2)

(while (/= (getvar "cmdnames") "")

(command "CA" calq "")

)

 

(princ)

 

);fin defun

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

(defun Val-att ()

 

(setq nom-b (getstring "\n Nom du bloc <*>: "))

(if (= nom-b nil) (setq nom-b "*"))

 

(setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : "))

 

(setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: "))

(if (= val-at nil) (setq val-at "*"))

 

(setq p1 (getpoint "\n Sélection par Fenêtre - premier point : "))

(setq p2 (getcorner p1 "\n Second point : "))

 

(setq val (getstring "\n Nouvelle Valeur des attributs : "))

(if (= val nil) (setq val "."))

 

(command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2)

(while (/= (getvar "cmdnames") "")

(command "Valeur" "Remplacer" val "")

)

 

(princ)

 

);fin defun Val-att

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

(defun c:edit-att ( / chx cnt)

(setq cnt T)

(while cnt

(initget "Hauteur Angle Style COuleur CAlque Valeur")

(setq chx (getkword "\n Option [Hauteur/Angle/Style/COuleur/CAlque/Valeur] : "))

(cond

((= chx "Angle") (ang-att))

((= chx "COuleur") (col-att))

((= chx "CAlque") (cal-att))

((= chx "Hauteur") (htr-att))

((= chx "Style") (sty-att))

((= chx "Valeur") (Val-att))

(T (setq cnt nil))

);fin cond

);fin while

(prompt "\n---COPYRIGHT 05/99 par Fabcad---")

(prin1)

);fin defun edit-att

 

[Pako]

Tu peux utilisé la commande TORIENT dans les Express Tools. Elle permet de faire la rotation avec des TEXT, MTEXT, ATTDEF, or BLOCK inserts w/attributes.... Très pratique !

[fabcad]

Dommage il oriente tous les attributs...