COTES ANGLES & DISTANCES DIFFERENTES

[lili2006]

Bonsoir à toutes et tous,

 

J'ai souvent besoin d'utiliser deux styles de cotes distinct dans un même dessin.

 

Est-ce compliqué de définir un "sous-style" pour les angles et les distances dans le même style ?

 

http://free0.hiboox.com/images/0610/d6f7e6dadf4c1becfd66bfe5d9f1e207.jpg

 

Si oui, on laisse tomber, c'était juste une idée de développement qui éviterai de passer son tps à jongler entre les styles,...

 

Cela serait super pratique pour les différents besoin en topographie,... :D

 

Je n'ai aucune idée du réalisme de ma demande, merci à ceux qui pourront m'éclairer,...

[(gile)]

Salut,

 

C'est assez facile de faire un LISP qui change le style de cote avant de lancer une commande et de restaurer le style courant ensuite.

 

Un exemple qui définit une commande DIMANG.

Quand on lance DIMANG, le style de cote est passé à "radian", la commande native COTANG est lancée et quand elle est achevée le style de cote est restauré.

 

Je te laisse l'adapter à tes besoins...

 

(defun c:dimang	(/ ds)
 ;; stocker la valeur du style de cote courant dans une variable
 (setq ds (getvar "dimstyle"))

 ;; activer le style de cote voulu
 (command "_dimstyle" "_restore" "Radian")

 ;; lancer la commande COTANG
 (command "_dimangular")

 ;; laisser la main à l'utilisateur jusqu'à la fin de la saisie
 (while (    (command pause)
 )

 ;; restaurer le syle de cote précédent
 (command "_dimstyle" "_restore" ds)

 (princ)
)

[(gile)]

Ou en encore (un peu plus avancé), on change le style de cote de la cote qui vient d'être créée en modifiant sa liste de données DXF :

 

(defun c:dimang	()
 ;; lancer la commande COTANG
 (command "_dimangular")

 ;; laisser la main à l'utilisateur jusqu'à la fin de la saisie
 (while (    (command pause)
 )

 ;; récupérer la liste dxf de la cote (dernière entité dessinée)
 (setq elst (entget (entlast)))

 ;; substituer le style de cote dans la liste
 (setq elst (subst '(3 . "radian") (assoc 3 elst) elst))

 ;; modifier l'entité
 (entmod elst)

 (princ)
)

[lili2006]

Re,

 

Je pense m'être mal exprimé (ou ne pas savoir utiliser les lisps proposés,...)

 

Je souhaiterai, si c'est possible, depuis le même style de cotes courant, faire une cotation des distances de cette façon =>

 

http://free0.hiboox.com/images/0610/12402d7c65911bd7b8265422ae429622.jpg

 

et une cotation des angles comme ceci =>

 

http://free0.hiboox.com/images/0610/e93045e79bc3e4c45777dbfb69ed424e.jpg

 

un LISP qui change le style de cote avant de lancer une commande et de restaurer le style courant ensuite.

 

Mais je pense que c'est moi qui n'ai pas compris, vu cette remarque,...

 

Je regarde tout ça demain alors,..

 

Merci de ta réponse Gilles (Et des commentaires dans les lisps, ça va m'aider ,...)

[lili2006]

Bonjour à toutes et tous,

 

En effet, très simple,..

 

Il suffisait de donner le nom du style de cotes angulaires,...

 

Marche très bien et très pratique en Topographie,

 

Merci encore Gilles,

[Patrick_35]

Salut

 

Perso, je me sers de celui-ci

 

;;;=================================================================
;;;
;;; DEF V1.00
;;;
;;; Mettre par défaut les couleurs, calques, etc... depuis une entité
;;;
;;; Copyright (C) Patrick_35
;;;
;;;=================================================================

(defun c:def(/ doc ent)
 (if (setq ent (entsel))
   (progn
     (setq ent (entget (car ent))
    doc (vla-get-activedocument (vlax-get-acad-object))
     )
     (vla-startundomark doc)
     (setvar "clayer" (cdr (assoc 8 ent)))
     (if (cdr (assoc 6 ent))
(setvar "celtype" (cdr (assoc 6 ent)))
(setvar "celtype" "bylayer")
     )
     (if (cdr (assoc 62 ent))
(setvar "cecolor" (itoa (cdr (assoc 62 ent))))
(setvar "cecolor" "bylayer")
     )
     (if (cdr (assoc 370 ent))
(setvar "celweight" (cdr (assoc 370 ent)))
(setvar "celweight" -1)
     )
     (and (eq (cdr (assoc 0 ent)) "DIMENSION")
(vla-put-activedimstyle doc (vla-item (vla-get-dimstyles doc) (cdr (assoc 3 ent))))
     )
     (and (vl-string-search "TEXT" (cdr (assoc 0 ent)))
(vla-put-activetextstyle doc (vla-item (vla-get-textstyles doc) (cdr (assoc 7 ent))))
     )
     (vla-endundomark doc)
     (princ "\nValeurs par défauts du dessin reprises depuis l'objet sélectionné.")
   )
 )
 (princ)
)

(setq nom_lisp "DEF")
(if (/= app nil)
 (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp)
   (princ (strcat "..." nom_lisp " chargé."))
   (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter.")))
 (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter.")))
(setq nom_lisp nil)
(princ)

 

@+

[lovecraft]

Bonsoir lilian,

 

Ci-joint un fichier avec un style de cote géomètre ;) "Un seul style pour les deux Angulaire et lineaire"

 

http://cjoint.com/?cucmWyvNLe

 

Voici une p'tite capture:

 

http://images.imagehotel.net/hrlhgeqka1.jpg

 

Cordialement,

 

Laurent

 

 

[lili2006]

Bonjour à toutes et tous,

 

Salut Patrick_35,

 

Je n'avais pas vu ton message,:exclam:

 

Super pratique et fonctionne quelque soit les entités semble t-il,...

 

Merci,:P

 

Salut Laurent,

 

Je n'avais pas du tout pensé au choix de l'utilisation lors de la création du nouveau style de cotes,....

 

Bien vu, c'est éxactement ce que je veux pouvoir intégrer à mon gabarit,... simple, efficace

 

http://free0.hiboox.com/images/0710/78c3f7f4c821571e154db46be80b5433.jpg

 

Merci encore à tous,