Aller au contenu

Cotes avec exposant


Atomick

Messages recommandés

Bonjour,

 

Trés trés rapidement, j’ai modifié pour ton besoin spécifique un code publié précédemment sur CADxp :

 

http://cadxp.com/topic/37002-cotation/page__p__202500#entry202500

Discussion que je t’invite à lire pour prendre connaissance des limites de la méthode (qui oblige à forcer le texte de cotation) et de ce que j'en pense.

 

 

Le code :

 

;; Adaptation rapide et spécifique d'un code publié précédemment:            VDH-Bruno
;; http://cadxp.com/topic/37002-cotation/page__p__202500#entry202500

(defun c:dimAtomick (/ ss i e dim exposant)
 (setq ss (cond ((ssget "_I" '((0 . "DIMENSION"))))
                (T (princ "\nSélectionnez les cotations à traiter...") (ssget '((0 . "DIMENSION"))))
          )
 )
 (repeat (setq i (if ss
                   (sslength ss)
                   0
                 )
         )
   (if (/= ""
           (setq e        (entget (ssname ss (setq i (1- i))))
                 dim      (rtos (cdr (assoc 42 e)) 2 3)
                 exposant (substr dim (+ (vl-string-position (ascii ".") dim) 4))
           )
       )
     (entmod (subst (cons 1 (strcat (substr dim 1 (1- (strlen dim))) "{\\H0.7x;\\S" exposant "^;}"))
                    (assoc 1 e)
                    e
             )
     )
   )
 )
 (princ)
)

 

A+

 

 

Edit Corrigé le code suite à une adaptation un peu trop rapide de ma part

Modifié par VDH-Bruno

Apprendre => Prendre => Rendre

Lien vers le commentaire
Partager sur d’autres sites

Salut,

 

Sauf erreur de ma part, l'une des nouveauté de la 2015, n'est-elle pas de pouvoir passer du texte en exposant ?

A tester sur des cotes. je ne peux pas tester en ce moment, mais je regarde dès que possible.

 

@ plus

Autodesk Expert Elite Member

Lien vers le commentaire
Partager sur d’autres sites

Je te remercie VDH-Bruno mais à part utiliser Autocad, je n'y connais pas grand chose en programmation.

Je crois comprendre que tu as fait un Lisp.

(j'ouvre "Bloc Note"..je copie ton Lisp...et j'enregistre sous "".Lsp)

Je charge le Fichier .LSP sur Autocad...et Après ??? :( :unsure:

Je ne suis pas vraiment doué pour ce genre de manipulation.

Merci de ton aide

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

Je te remercie VDH-Bruno mais à part utiliser Autocad, je n'y connais pas grand chose en programmation.

Je crois comprendre que tu as fait un Lisp.

(j'ouvre "Bloc Note"..je copie ton Lisp...et j'enregistre sous "".Lsp)

Je charge le Fichier .LSP sur Autocad...et Après ??? :( :unsure:

Je ne suis pas vraiment doué pour ce genre de manipulation.

Merci de ton aide

 

C'est déjà très bien pour quelqu'un qui n'y connait pas grand chose, tu as fait le plus dure :)

 

Et après tu tape dimAtomick sur la ligne de commande pour lancer ton lisp...

A+ VDH

Apprendre => Prendre => Rendre

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

(j'ouvre "Bloc Note"..je copie ton Lisp...et j'enregistre sous "".Lsp)

Je charges le Fichier .LSP sur Autocad...et Après ??? :( :unsure:

 

J'ai peut être lu un peu vite tu copie/colle effectivement dans le bloc note, tu nommes et enregistre ton fichier avec l'extension .lsp (ex: Atomick.lsp)

 

Puis tu le charges dans Autocad (sinon un simple glissé/déposé dans ton dessin actif depuis l'explorateur window suffit.)

 

Et tu lances au clavier la commande dimAtomick

 

Sinon je te joint le fichier à charger en PJ.

Cordialement,

Atomick.lsp

Apprendre => Prendre => Rendre

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

Le problème c'est qu'une fois que j'ai appliqué la commande, la cote se fige et ne varie plus si je l'étire.

 

Y a t'il un moyen pour que la cote reste active ?

 

PS: je sais , j'abuse

 

En l'état non, d'ailleurs c'est à cela que je faisais allusion lorsque j'invitais à consulter le lien (dans lequel la question avait été évoqué) de mon premier message.

 

Je ne connais pas AutoCAD 2015, à lire nosset tu auras peut être une solution en natif plus satisfaisante, a voir..

 

A+

Apprendre => Prendre => Rendre

Lien vers le commentaire
Partager sur d’autres sites

J'ai vérifié....

Effectivement AUTOCAD 2015 propose de mettre en exposant mais le HIC c'est qu'il ne propose pas de mettre en exposant le "n"ième chiffre derrière la virgule mais il met en exposant la totalité de la cote... :angry: :angry:

De plus, de ce fait, la cote se fige (tiens ça me rapelle quelque chose !!!) et perd ses caractéristiques dynamiques.

 

L'idéal (si un membre AUTODESK lit ceci), c'est que dans le Style de cote on puisse définir si on souhaite que le "n"ième chiffre derrière la virgule soit en exposant.

Du genre une case à cocher...(pour valider l'exposant) et une valeur à indiquer...(pour définir le rang derrière la virgule.)

 

Je sais, je suis exigeant mais au prix que ça coute, je crois qu'on peut l'être un minimum ;)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité