cotes relatives

gepetto · le 14 mars 2006

Bonjour a tous

Je recherche une petit utilitaire me permettant faire des côtes relatives (permet de côter des dessin qui ont été couper.)

Si quelqu'un d'entre vous connais une solution ça m'interesse

Amicalement

Tramber · le 14 mars 2006

Vois ma réponse à un sujet ainsi que le lien qui y est donné.

Il suffit de changer ton SCU pour modifier la base de ta cotation ordonnée

Le code serait celui-ci

^C^CCOTORD;\@10,0

[Edité le 14/3/2006 par Tramber]

gepetto · le 15 mars 2006

Merci pour ta réponse, mais ce n'est pas ça que je recherche, où du moins je crois...

Je vais essayer d'exposer mon poblème plus clairement.

Je dois réaliser une grande quantité de porte en 2D, avec tjrs les même détail de chaque côté. (bloc avec les profil) la seule chose qui change est la grandeur entre ses 2 côtés.

Mon idée est que je ne doivent pas modifier le dessin (présentation), mais juste la première ligne de côtes ce qui modifierais automatiquement toute la côtation de cette coupes J'ai environs 6 lignes de côtes

Merci bcp de votre réponse

Amicalement. :D

Tramber · le 15 mars 2006

Fais-nous une petite image et va sur http://www.imageshack.us/ pour la partager, car je suis encore à côté de la plaque si je veux comprendre de façon sure.

A mon avis, il y a une solution, mais c'est pas sur.

gepetto · le 15 mars 2006

Voici l'image demander, j'espère qu'elle jouera. :)

http://img124.imageshack.us/img124/9110/cotesrelatives8lx.png

L'idée est de modifier la côtes rouges, et que toutes les autres côtes (les bleus) soie modifier en fonction de la cotation de base.

En espérant avoir été clair, je vous remercie

Amicalement

Tramber · le 15 mars 2006

Je vais te dire comment je ferais.

1, j'utilise l'espace papier pour faire 2 fenêtre se faisant face.

Je sépare les 2 entités de la distance réelle.

De sorte, pour faire varier les dimensions, je passerai la commande ETIRER au travers des cotations.

2, pour chacune des 6 cotations, j'utilise l'astuce qui consiste à mettre le texte suivant dans la propriété Remplacement du texte : " tôle int."

gepetto · le 15 mars 2006

Merci pour l'astuce,

le truc c'est que je ne voudrais pas sépare les 2 entités de la distance réelle. mais juste modifier la cote en rouges en me changeant les bleu sans devoir calculer.

genre somme de la côtes rouges moins l'epaisseur des 2 profils, et ainsi de suite.

Merci

Amicalement

dnalor · le 17 mars 2006

ma solution est de créer les deux macros qui oppèrent une mise à jour de la valeur des cotes soit enregistrement de la longeur totale avec mise à jour

du texte de la cote totale puis calcul de la cote valeur intermediaire par calcul à l'aide des fonctions de calcul DIESEL puis mise à jour

du texte de la cote

solution avec autocad LT 98

boutton 1) longueur totale réelle

^C^CSETENV;LR;\^C^CSELECT;un;\^CDECOMPOS;@;^CMODIFLONG;@;^CU;U;^CSETENV;LD;$M=$(getvar,perimeter);^C^C_DIM;_newtext;$;$M=$(getenv,LR);@;;

1 enter la valeur de la longueur total par 1500; puis selectionner la cote ( cliquer sur la ligne de cote si possible ailleurs que près du texte de la cote);

Resultat le texte de cote ete modifie avec affichage de la longueur réelle ( LR) et la valeur de la distance (LD) est enregistrée

boutton 2) correction des cotes intermediaires

selctionner la cot

^C^CSELECT;UN;\^CDECOMPOS;@;^CMODIFLONG;@;^CU;U;^C^C_DIM;_newtext;$M=$(+,$(-,$(Getenv,LR),$(Getenv,LD)),$(Getvar,perimeter));@;;

selctionner la cote intermediaire

resultat le texte de la cote intermediaire à été corrigé

voila cela fonctionnait ansi jusqu'a la version LT98 en c'était pour moi une très bonne solution

malheureusement depuis autocad 200 la mise à jour du texte de cote passe par la fenêtre format de texte (multiligne)

la texte de cote ne peut donc plus être mis à jour depuis la ligne de commande du mois à ma connaissance ......

solution avec autocad 2000 et plus

Pour le moment je n'ai pas trouvé de meilleure solution que de remplacer la côte par une nouvelle qui prend

en compte la longueur de la ligne de cote qui doit par consequent avoir la même loguer que l'élement que l'on souhaite coter

(Etendre au dela des marque à 0)

boutton 1) longueur réelle

^C^CSETENV;LR;\^C^CSELECT;Q;\^CDECOMPOS;@;^CMODIFLONG;@;^CU;U;^CSETENV;LD1;$(getvar,perimeter);^C^CDECOMPOS;@;^C_DIMALIGNED;;@;TE;$M=$(getenv,LR);@;^CEFFACER;P;;

1 enter la valeur de la longueur total par 1500; puis selectionner la cote;

resultat la cote initiale à été remplacée par une nouvelle cote avec la " nouvelle" longueur

boutton 2) correction des cotes intermediaires

^C^CSELECT;Q;\^CDECOMPOS;@;^CMODIFLONG;@;^CU;U;^C^CDECOMPOS;@;^C_DIMALIGNED;;@;TE;$M=$(+,$(-,$(Getenv,LR),$(Getenv,LD)),$(Getvar,perimeter));@;^C^CEFFACER;P;;

puis selectionner une cote "intermédiaire"

Resultat la cote initiale à été remplacée par une nouvelle cote avec la " nouvelle longueur intermédiaire corrigée"

si quelqu à une solution à me proposer pour mettre à jour le texte de la cote cela m'interesse enormement.

Maintenant on doit surement pouvoir imaginer des solutions similaires en LISP ou en VBA.

gepetto · le 20 mars 2006

merci bcp de ta solution ainsi que les 2 macros, je n'aurai pas été capable de les écrire moi meme, un ignorant profond en programation... bon passont.

j'ai juste un petit problème avec ton bouton N°1 y m'affiche une erreurs avec la fonction LR, alors que faut t'il faire?

Mais en tout cas merci d'avance...

Amicalement :D

Tramber · le 20 mars 2006

Idem, je n'ai pas compris le principe car LM ne correspond à aucune option.

malheureusement depuis autocad 200 la mise à jour du texte de cote passe par la fenêtre format de texte (multiligne)
la texte de cote ne peut donc plus être mis à jour depuis la ligne de commande du mois à ma connaissance ......

Il y a peut-être une solution mais nous en reparlerons.

A ce compte, mieux vaut programmer en lisp même si ton boulot semble super intéressant.

dnalor · le 21 mars 2006

LR . LM et LD ne sont pas des fonctions mais de variables qui sont enregistrées dans l'environnement d'autocad ( dans la base de registre d'autocad en fait) ils sont enregistré avec la commande autocad SETENV on peut mettre n'iimportre quel nom userr1, user2, etc pour une telle variable en fait dans ce cas LR signifie Longueur Réelle et LD Londueur dessinée

J'enregistre sous la valeur de la longueur souhaitée LM est la longueur mesurées et LD la longeur de deuxième de la ligne de cote ensuite il faut calculer la différence entre LR et LM

et l'ajouter à LD ( je n'ai pas vérifier le cas ou LR serait inferieur à LM)

j'ai testé la macro avec autocad 2004 et n'ai pas eu de message d'erreur

il faudrait le texte du message d'erreur, peut éventuellement comprendre la nature

du problème...

A ma connaissance le lisp n'est pas pris en compte avec autocad LT

alors que les macros DIESEL oui

Meillures salutations

Tramber · le 21 mars 2006

j'ai testé la macro avec autocad 2004 et n'ai pas eu de message d'erreur

Chez moi ca marche pas du tout. LR ne veut rien dire. Si tu peux faire qqe chose ?

gepetto · le 21 mars 2006

idem pour moi mais j'ai seulement pu faire le test sous 2005 et y me marque :

Commande: SETENV

Commande inconnue "SETENV". Appuyez sur F1 pour obtenir de l'aide.

Commande: LR

Commande inconnue "LR". Appuyez sur F1 pour obtenir de l'aide.

Ca pourra peut etre t'aider a trouvé le problème...

Merci

Amicalement.

dnalor · le 21 mars 2006

Voici les explication détaillée de mes macros "cotation relatives" sous autocad2000 et plus

j'espères qu'elles sont compréhensibles.

Malheureusement je n'ai pas autocad 2005 mais si cella ne marche plus alors j'ai des siusis à me faire...

Imaginons 1) une long hors tout de 1000

2)on désires corriger la cote hors tout à 1200

3) la hauteur du profil de menuiserie est de 50

BOUTTON 1 (cotation de la longueur réelle)

[macro]

=> action

//(explications

[^C^CSETENV;LR;\]

=> taper valeur de la longueur réelle selon.ex 1200

//enregistrement sous variable de la base de registre sous "LR"

[^C^CSELECT;Q;\]

=> cliquer sur la 1 ère ligne de cote à mettre à jour

[^CDECOMPOS;@;]

// décompose la cote (sélectionnée precedemment)

[^CMODIFLONG;@;]

// mesure la longueur de la ligne de cote

//( décomposée) (en réalité on enregistre ainsi la valeur de la longueur dessinée dans

//la variable système soit "Perimeter =1000 ")

[^CU;U;]

//on annule la decomposition de la cote mais on garde 1000 dans "perimeter"

^CSETENV;LD;$(getvar,perimeter);

!!!lLD et non LD1 désolé il y avait une petite erreur de transcription

!!!!!!!c'est probablement cela le message d'erreur

//on enregistre les "1000" dans la variable de la base de registre sous "LD"

{ld1 pour longueur desinée )

[^C^CDECOMPOS;@;]

//on redécompose la cote en vue de son remplacement

[^C_DIMALIGNED;;@;TE;$M=$(getenv,LR);@;

on recote la ligne de cotation que l'on vient de décomposer en mettant

le texte à jour {soit LR = 1200}

[^CEFFACER;P;;]

// enfin on supprime la cote décomposée

BOUTTON 2 (correction d'une cote intermediaire)

[^C^CSELECT;Q;\]

=> cliquer sur la cote intermédiaire à mettre a jour

[^CDECOMPOS;@;]

// décompose la cote (sélectionnée precedemment)

[^CMODIFLONG;@;]

/ /mesure la longueur de la ligne de cote

//( décomposée) (en réalité on enregistre comme ci-dessus la valeur de la nouvelle longueur dans

//la variable système soit "Perimeter =900 ") (1000-2x50)

[^CU;U;]

//on annule la decomposition de la cote mais on garde la nouvelle valeur dans "perimeter"

[^C^CDECOMPOS;@;]

//on redécompose la cote en vue de son remplacement

[^C_DIMALIGNED;;@;TE;$M=$(+,$(-,$(Getenv,LR),$(Getenv,LD)),$(Getvar,perimeter));@;]

/on recote la ligne de cotation que l'on vient de décomposer en mettant

//le texte à jour {soit Longueur réelle - la différence entre la longeur dessinée de la premiere cote LD1

//aquise sous l'action du boutton 1 et la nouvelle valeur de perimeter acquise sous l'action du bouton 2}

{soit Perimeter = 900 +( "LR"1200-"LD"1000) = 1100}

^C^CEFFACER;P;;

// enfin on supprime également la cote décomposée

J'attends volontiers des "explications" pour pouvoir m'affranchir de la fenêtre format du texte multiligne.....

et revenir à la mise à jour du texte de cote.....

....d'avance au grand merci.....

Tramber · le 21 mars 2006

"UN" n'existe plus dans la selection, maintenant, c'est Q pour uniQue.

D'autre part.

La raison pour laquelle rien ne marche, c'est que la solution n'est pas adaptable à AutoCAD car SETENV est pur LT. Or nous ne sommes pas dans un forum LT.

Le problème de l'éditeur pourrait sans doute être contourné mais je n'y suis pas parvenu.

Je n'ai pas de solution immédiate pour une version non LT, un comble !

Sauf de faire un groupe côté de façon associative. Un script ou une commande pourrait déplacer le groupe et les cotations devraient se mettre à jour.

A l'aide Christian (RebCAO, spécialiste LT) !

gepetto · le 22 mars 2006

Ha zut car ta solution dnalor etais vraiement ce que je recherchais...

Pas de modification de mise en page et du dessin... de plus l'application est tres simple d'utilisation.

n'y a t'il pas une variable equivalents mais cette fois si pour autocad, ou un applicatif permettant d'ajouter cette variable (SETENV)

Amicalement

dnalor · le 22 mars 2006

reponse à SETENV ne marche pas ( messsage d'erreur) et à SETENV pure commande LT.

C'est juste je suis désolé cela fait un moment que je n'ai pas utilisé d'autocad FULL version

car je dessines essentiellement en 2d et le LT me va très bien....

Mais cela me rapelles quelque chose sous autocad 13 on devait utiliser les variables userri1-5 , userrs1-5 et usrerr"quelque chose" 1-5 pour stocker les valeurs string

Je vais ressortir mon manuel de personalisation autcad 13 et voir si je retrouves comment il fallait faire en espérant que cela fonctionnera sous autocat 2005

Avec toutes mes excuses pour ce contretemps et meilleures salutations

dnalor · le 22 mars 2006

NOUVELLES MACROS POUR AUTOCAD FULL TESTEE SUR 2000i

BOUTON1

^C^CMODIFVAR;USERS1;\^C^CSELECT;Q;\^CDECOMPOS;@;^CMODIFLONG;@;^CU;U;^CMODIFVAR;USERS2;$M=$(getvar,perimeter);^C^CDECOMPOS;@;^CSELECT;P;S;@;;EFFACER;P;;^C_DIMALIGNED;;@;TE;$M=$(getvar,USERS1);@;;^CEFFACER;P;;

BOUTON2

^C^CSELECT;Q;\^CDECOMPOS;@;^CMODIFLONG;@;^CU;U;^C^CDECOMPOS;@;^CSELECT;P;S;@;;EFFACER;P;;^C_DIMALIGNED;;@;TE;$M=$(+,$(-,$(Getvar,USERS1),$(GetVAR,USERS2)),$(Getvar,perimeter));@;^C^CEFFACER;P;;

NE PAS OUBLIER DE NE PAS METTRE EXTENSION DE LA LIGNE DE COTE A ZERO

'

LES LIGNES DE COTES N'AURONT PAS DE LIGNES D'ATTACHE CE QUI N'eST PAS GENANT

POUR LES COTES INTEMEDIAIRES POUR LA COTE PRINCIPALE OL FAUDRA DESSINER DES ATTACHES LIGNES

J'EPERES QUE CELA VA MARCHER SUR LES VERSIONS 2002,3,4,5,6,7,ETC...

bonuscad · le 22 mars 2006

Il y avait eu un sujet ICI

Je me demande si en établissant 2 nouveaux styles de cotation identique a celui que tu emplois MAIS sans les lignes d'attaches (engardant juste le texte de citation en fait)

Puis un autre en faisant l'inverse, mais comme on ne peut pas enlever le texte, tu lui appliques une hauteur minuscule.

Ce style servira pour les cotation communes afin d'avoir les ligne d'attache.

Ensuite tu duplique tes cotations sur un autre calque et change le style de cotation pour leur affecterle nouveau style.

Puis tu applique la routine que j'avais proposée pour réduire/agrandir la cotation.

Si tu trouves la solution séduisante, je (on) peux essayer d'automatiser tout ça....

dnalor · le 23 mars 2006

a Bonuscad....... et aux autres ...

Je presume que l'offre de poursuivre la mise au point de la routine "cote relative" s'adresait

a moi "Dnalor

Je n'ai pas l'habitude d'abandonner facilement la recherche de solutions pour pouvoir

mieux utiliser Autocad.. bien que dans se cas mon but etait pas de fournir une" solution

clef en main mais plus-tot de de montrer quelles par le plus grand nombre d'utilisateurs il est vrai que

c'est extrement mal documente) libre a chacun ensuite d'adapter ses propositions a ses

besoin precis et a son environnement spacifique entre autre il manquiai tout l'aspect

gestion calque et l'aspect style de cote etc...

lLexemple mettait en avant ce qui me sembles etre une particularitie interessante

d'autocad quand a l'aquisition des ou de certaines variables ,perimeter dans le cas d'epsece

par rapport a des objets complexes" tels que des cotes ou des polylignes.

J'avais de toute facon l'intention d'essayer d'ameliorer mes proposition qui ne sont pas

parfaite sur bien des aspects j'en etais pleinement concient , par consequen c'est avec

plasir que j'acceptes toute les aides possibles.

Je vais donc analyser la solution proposee a la quelle je n'avais pas pensé et voir ou cela me/nous menera...

Avec mes meilleures salutions a tous.

Dnalor

PS. mais pas tout de suite j'ai un ou desux plans de retard alors il faut que je me mettes

au travail.....

bonuscad · le 24 mars 2006

Voilà retranscrit en lisp ce que je t'avais proposé comme démarche. A tester...

NB: Tes cotations originales ne sont pas perdues :P , mais tu auras besoin de CA pour pouvoir les retrouver.

(defun c:dim_fake ( / js mark n value styl_cur lay_cur ent dxf_ent styl_cot nam_layer def_layer dxf_dim p1 p2 p_nw1 p_nw2)
(princ "\nChoix des cotations à contrefaire: ")
(setq js (ssget '((0 . "DIMENSION"))) mark nil)
(cond
	(js
		(setq n -1)
		(initget 1)
		(setq value (getreal "\nValeur à retrancher/ajouter à la côte sélectionnée: "))
		(setq styl_cur (getvar "DIMSTYLE"))
		(setq lay_cur (getvar "CLAYER"))
		(setvar "cmdecho" 0)
		(repeat (sslength js)
			(setq ent (ssname js (setq n (1+ n))))
			(setq dxf_ent (entget ent))
			(cond
				((not mark)
					(setq styl_cot (cdr (assoc 3 dxf_ent)))
					(if (not (tblsearch "DIMSTYLE" (strcat "Sans-Texte_" styl_cot)))
						(progn
							(setvar "DIMTXT" (/ (getvar "DIMTXT") 10000.00))
							(command "_.-dimstyle" "_save" (strcat "Sans-Texte_" styl_cot))
						)
					)
					(if (not (tblsearch "DIMSTYLE" (strcat "Leurre_" styl_cot)))
						(progn
							(setvar "DIMTXT" (* (getvar "DIMTXT") 10000.00))
							(foreach n '("DIMSE1" "DIMSE2" "DIMSD1" "DIMSD2") (setvar n 1))
							(command "_.-dimstyle" "_save" (strcat "Leurre_" styl_cot))
						)
					)
					(setq nam_layer (cdr (assoc 8 dxf_ent)))
					(setq def_layer (tblsearch "LAYER" nam_layer))
					(if (not (tblsearch "LAYER" (strcat "Leurre_" (cdr (assoc 8 dxf_ent)))))
						(entmake
							(list
								(cons 0  "LAYER")
								(cons 100 "AcDbSymbolTableRecord")
								(cons 100 "AcDbLayerTableRecord")
								(cons 2 (strcat "Leurre_" (cdr (assoc 8 dxf_ent))))
								(assoc 70 def_layer)
								(assoc 62 def_layer)
								(cons 370 -3)
								(assoc 6 def_layer)
							)
						)
					)
					(setq mark T)
				)
			)
			(command "_.copy" ent "" "_none" "*0,0,0" "_none" "*0,0,0")
			(command "_.change" (entlast) "" "_properties" "_layer" (strcat "Leurre_" (cdr (assoc 8 dxf_ent))) "")
			(setq dxf_dim (entget (entlast)))
			(setq dxf_dim (subst (cons 3 (strcat "Sans-Texte_" styl_cot)) (assoc 3 dxf_dim) dxf_dim))
			(entmod dxf_dim)
			(command "_.copy" (entlast) "" "_none" "*0,0,0" "_none" "*0,0,0")
			(setq dxf_dim (entget (entlast)))
			(cond
				((or (zerop (rem (cdr (assoc 70 dxf_dim)) 32)) (eq (rem (cdr (assoc 70 dxf_dim)) 32) 1))
					(setq p1 (cdr (assoc 13 dxf_dim)) p2 (cdr (assoc 14 dxf_dim)))
					(setq p_nw1 (polar p1 (angle p2 p1) (/ value 2.0)) p_nw2 (polar p2 (angle p1 p2) (/ value 2.0)))
					(setq dxf_dim (subst (cons 13 p_nw1) (assoc 13 dxf_dim) dxf_dim))
					(setq dxf_dim (subst (cons 14 p_nw2) (assoc 14 dxf_dim) dxf_dim))
					(setq dxf_dim (subst (cons 3 (strcat "Leurre_" styl_cot)) (assoc 3 dxf_dim) dxf_dim))
					(entmod dxf_dim)
				)
				(T
					(princ "\nN'est pas une côte alignée, pivotée, horizontale ou verticale.")
				)
			)
			(if (not (member '(60 . 0) dxf_ent))
				(entmod (append dxf_ent '((60 . 1))))
				(entmod (subst '(60 . 1) '(60 . 0) dxf_ent))
			)
		)
		(command "_.-dimstyle" "_restore" styl_cur)
		(setvar "cmdecho" 1)
		(setvar "CLAYER" lay_cur)
	)
	(T
		(princ "\nAucune cotation sélectionnée!")
	)
)
(prin1)
)

gepetto · le 24 mars 2006

bonuscad,

ta version pour les cotes relative me parais le plus approprier, mais je n'ai pas eu le temps de la tester, le truc c'est que je ne connais pas le nom de ta fonction lisp,

oui je sais c'est surement une question un peu bête, c'est surement ecrit dans ta commande, mais je ne l'ai pas trouvé oubien je ne sais pas ou cherché.

Merci

Amicalement

bonuscad · le 24 mars 2006

Instructions (la plus simple, enfin celle que j'utilise beaucoup):

* copier-coller le code dans le bloc-note

* enregistrer sous (pour choisir le nom, je te conseille de mettre le même nom que la fonction (defun c:XXXX .........)

dans ton cas (defun c:dim_fake ... donc choisir DIM_FAKE.LSP

*Une fois enregitré dans le dossier de ton choix, à l'aide de l'explorateur tu fais un glisser-déposer (comme si tu voulais déplacer le fichier ailleurs) MAIS dans la zone graphique d'AutoCAD. (réduit ton explorateur, si tu es en plein écran ou fait le glisser-déposer sur l'icone de la barre de tâche de windows: Attends qu'Autocad revienne en plein-écran avant de lacher!)

*A ce momment tu devrais voir apparraitre à la ligne de commande C:DIM_FAKE

Cela veut dire que maintenant la commande au clavier DIM_FAKE est disponible, tu n'as plus qu'a la taper ;)

NB:Une recherche sur le forum te donneras les multiples autres voies pour charger un fichier Lisp

[Edité le 24/3/2006 par bonuscad]

gepetto · le 24 mars 2006

Merci bcp bonuscad, je ne savais pas que l'on pouvais appeler la fonction comme l'on voulais...

Je suis impressionné...,

Mais (et oui y a un mais), n'y a t'il pas moyen de mettre les cotes qui sont ecrite en minuscule, dans un autre calque, de facon a le geler, ce qui permetterai de remodifier les côtes sans devoir les capturer une a une?

Merci

Amicalement

bonuscad · le 24 mars 2006

Heu, je ne suis plus trop....

Qu'on se comprenne bien. Lors de l'execution de la routine tu sélectionnes les cotes que tu veux modifier. Tu peux le faire par capture au milieu de ta porte (selection filtrée, seul les cotations sont sélectionnées et pas forcément une par une).

Ces nouvelles cotations sont placés dans un calque appelé leurre_(+nom de ton calque de cotation d'origine)

Les cotations d'origine sont rendu "invisible".

Pour retrouver ton état initial, tu gèle/inactive le calque "leurre_xxxxx" et tu utilise la routine dans le lien donné pour rendre tes cotations d'origine de nouveau visible.

J'ai préféré cette solution pour éviter encore la création d'un calque de cotation supplémentaire

Mais libre à toi de modifier comme tu l'entends, tu as déjà les base,

Cette routine me sera pour mon usage complétement inutile, donc pas bien envie de pousser le bouchon plus loin :P

Connexion

cotes relatives

Messages recommandés

gepetto

Tramber

gepetto

Tramber

gepetto

Tramber

gepetto

dnalor

gepetto

Tramber

dnalor

Tramber

gepetto

dnalor

Tramber

gepetto

dnalor

dnalor

bonuscad

dnalor

bonuscad

gepetto

bonuscad

gepetto

bonuscad

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante