cotes truqué

[hardyorock]

salut las amis

est ce que c'est possible de detecté les cotes truqué càd les cotes forcé grace a un lisp

merci

[gloups]

Je ne suis pas certain que ce soit ce que tu cherches, mais dans les express tools, il y a un lisp permettant d'annuler les cotes forcées.

[Bred]

Salut,

 

Tu as ce lisp d'usegomme.

 

(en parrallèle tu as ce lisp qui te fait le cumul des cotes selectionnés, non forcé puis forcé).

 

[Bred]

Re,

plus simple que précédent :

 

commande "cot-f"

mets toutes les cotes forcées dans un calque "Cotation-forcée" Rouge.

 

(defun c:cot-f (/ ACDOC LST SEL VLA-OB X)
(setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))
lst nil
sel (ssget "_X" '((0 . "DIMENSION"))))
 (if (not (tblobjname "LAYER" "Cotation-forcée"))
   (vla-add (vla-get-Layers AcDoc) "Cotation-forcée"))
 (vla-put-Color (vlax-ename->vla-object (tblobjname "LAYER" "Cotation-forcée")) acRed)  
(repeat (setq x (sslength sel))
 (setq vla-ob (vlax-ename->vla-object (ssname sel (setq x (1- x)))))
 (if (not (equal (vla-get-TextOverride vla-ob) ""))
   (vla-put-layer vla-ob "Cotation-forcée"))
 )  
(princ)  
)

 

[Edité le 2/5/2007 par Bred]

[jalna]

Salut

 

Merci beaucoup Bred super sympa c'est outil!! :D :D

[hardyorock]

oui ca marche .

merci bred tu est vraiment trés sympa ,c'est vraiment trés utile pour moi

merci encord.