jalna Posté(e) le 4 février 2009 Posté(e) le 4 février 2009 Bonjour, j'aimerais faire comme l'exemple, comment dois-je faire?Un style avec la position du texte à coté de la ligne de cote!Oui le problème, il me la déplace trop loin!!Les grips (oui mais c'est long)Une idée! http://img502.imageshack.us/img502/8874/cote110kt0.gif "Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."J-C Van DammeMon forum : http://plexus.forumactif.org/
lesourd2 Posté(e) le 4 février 2009 Posté(e) le 4 février 2009 Salut Moi je place le texte de cote à l'endroit choisi : Dans gestionnaire de style de cotes =>onglet ajuster => fenetre ajustement => cocher : placer le texte manuellemnt. @+
jalna Posté(e) le 4 février 2009 Auteur Posté(e) le 4 février 2009 Salut et merci de ta réponseEn fait ce n'est pas possible car je trouve la manip hyper compliquée!!Le but du jeu c'est une fois tout coté pouvoir déplacer d'une longueur définie à droite ou à gauche un certain texte d'une certaine valeur........ En fait les 2 traits jaune à coté de la cote corresponde à une épaisseur de 0.35, si j'imprime, je ne vois plus ma cote d'où le fait de la déplacer!! Oui je sais des cloisons de 5cm. d'ep. mais c'est pas moi qui décide, et oui passez d'une cloison de 7 à 5 vous fait gagner des m²!!!!!! :mad: "Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."J-C Van DammeMon forum : http://plexus.forumactif.org/
Tramber Posté(e) le 4 février 2009 Posté(e) le 4 février 2009 La synthaxe "_" dans la propriété remplacement de texte de toutes les cotes selectionnées marche d'enfer vers la droite.Mais "_" ne doit pas marcher vers la gauche ! _=ESPACE Sinon il faut choisir un style ou l'on place le texte manuellement, c'est tout. [Edité le 4/2/2009 par Tramber] Bureau d'études dessin. Spécialiste Escaliers Développement - Formation ./__\. (.°=°.)
jalna Posté(e) le 4 février 2009 Auteur Posté(e) le 4 février 2009 Salut Effectivement ça fonctionne à droite mais pas à gauche!!Merci pour l'idée :D "Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."J-C Van DammeMon forum : http://plexus.forumactif.org/
PHILPHIL Posté(e) le 4 février 2009 Posté(e) le 4 février 2009 hello tous jalna ca marche a 90% suivant si la cote est force ou pas avec une ligne option dans les propriete "déplacement du texte " ; ------------------------------------------------------- ; MODIFICATION DE L EMPLACEMENT DU TEXTE DE COTE A DROITE ; ------------------------------------------------------- (defun C:CD () (setvar "cmdecho" 0) (setq OSM (getvar "osmode")) (setq DECATEXTECOTE (atof (getcfg "APPDATA/DECATEXTECOTE"))) (setq TMP (getdist (strcat "\nENTRER LE DECALAGE DE TEXTE DE COTE <" (rtos DECATEXTECOTE 2 8) ">: "))) (if TMP (setq DECATEXTECOTE TMP) ) (setvar "osmode" 0) (prompt "\nCLIQUER SUR LE(S) COTE(S) A MODIFIER :") (setq ENTX NIL) (while (null ENTX) (setq ENTX (ssget (list (cons -4 " [surligneur] < or[/surligneur]") (cons 0 "DIMENSION") (cons -4 " [surligneur] or >[/surligneur]"))))) (setq COMPT 0) (setq COM (sslength ENTX)) (while (< COMPT COM) (progn (setq SJ2 (entget (ssname ENTX COMPT))) (setq POINT10 (cdr (assoc 10 SJ2)) POINT13 (cdr (assoc 13 SJ2)) POINT14 (cdr (assoc 14 SJ2)) ANGCOTE (cdr (assoc 50 SJ2)) LONGCOTE (cdr (assoc 42 SJ2)) CODEMPLA (cdr (assoc 70 SJ2)) ) (command "scu" "z" POINT10 (polar POINT10 ANGCOTE 10)) (if (> (car (trans POINT13 0 1)) (car (trans POINT10 0 1))) (progn (setq DIST (+ LONGCOTE DECATEXTECOTE))) (progn (setq DIST DECATEXTECOTE)) ) (command "scu" "p") ) (if (or (= CODEMPLA 33) (= CODEMPLA 161)) (progn (setq ANGLECOTE2 (angle POINT13 POINT14)) (setq POINT11 (polar POINT10 ANGLECOTE2 DIST)) (setq SJ2 (subst (cons 70 160) (assoc 70 SJ2) SJ2)) (entmod SJ2) (setq SJ2 (subst (cons 11 POINT11) (assoc 11 SJ2) SJ2)) (entmod SJ2) ) ) (if (or (= CODEMPLA 32) (= CODEMPLA 160)) (progn (setq POINT11 (polar POINT10 ANGCOTE DIST)) (setq SJ2 (subst (cons 70 160) (assoc 70 SJ2) SJ2)) (entmod SJ2) (setq SJ2 (subst (cons 11 POINT11) (assoc 11 SJ2) SJ2)) (entmod SJ2) ) ) (entmod SJ2) (setq COMPT (1+ COMPT)) ) (setvar "osmode" OSM) (setcfg "APPDATA/DECATEXTECOTE" (rtos DECATEXTECOTE 2 8)) (princ) ) ; ------------------------------------------------------- ; MODIFICATION DE L EMPLACEMENT DU TEXTE DE COTE A GAUCHE ; ------------------------------------------------------- (defun C:CG () (setvar "cmdecho" 0) (setq OSM (getvar "osmode")) (setq DECATEXTECOTE (atof (getcfg "APPDATA/DECATEXTECOTE"))) (setq TMP (getdist (strcat "\nENTRER LE DECALAGE DE TEXTE DE COTE <" (rtos DECATEXTECOTE 2 8) ">: "))) (if TMP (setq DECATEXTECOTE TMP) ) (setvar "osmode" 0) (prompt "\nCLIQUER SUR LE(S) COTE(S) A MODIFIER :") (setq ENTX NIL) (while (null ENTX) (setq ENTX (ssget (list (cons -4 " [surligneur] < or[/surligneur]") (cons 0 "DIMENSION") (cons -4 " [surligneur] or >[/surligneur]"))))) (setq COMPT 0) (setq COM (sslength ENTX)) (while (< COMPT COM) (progn (setq SJ2 (entget (ssname ENTX COMPT))) (setq POINT10 (cdr (assoc 10 SJ2)) POINT13 (cdr (assoc 13 SJ2)) POINT14 (cdr (assoc 14 SJ2)) ANGCOTE (cdr (assoc 50 SJ2)) LONGCOTE (cdr (assoc 42 SJ2)) CODEMPLA (cdr (assoc 70 SJ2)) ) (command "scu" "z" POINT10 (polar POINT10 ANGCOTE 10)) (if (> (car (trans POINT13 0 1)) (car (trans POINT10 0 1))) (progn (setq DIST DECATEXTECOTE)) (progn (setq DIST (+ LONGCOTE DECATEXTECOTE))) ) (command "scu" "p") ) (if (or (= CODEMPLA 33) (= CODEMPLA 161)) (progn (setq ANGLECOTE2 (angle POINT13 POINT14)) (setq POINT11 (polar POINT10 ANGLECOTE2 (- DIST))) (setq SJ2 (subst (cons 70 160) (assoc 70 SJ2) SJ2)) (entmod SJ2) (setq SJ2 (subst (cons 11 POINT11) (assoc 11 SJ2) SJ2)) (entmod SJ2) ) ) (if (or (= CODEMPLA 32) (= CODEMPLA 160)) (progn (setq POINT11 (polar POINT10 ANGCOTE (- DIST))) (setq SJ2 (subst (cons 70 160) (assoc 70 SJ2) SJ2)) (entmod SJ2) (setq SJ2 (subst (cons 11 POINT11) (assoc 11 SJ2) SJ2)) (entmod SJ2) ) ) (entmod SJ2) (setq COMPT (1+ COMPT)) ) (setvar "osmode" OSM) (setcfg "APPDATA/DECATEXTECOTE" (rtos DECATEXTECOTE 2 8)) (princ) ) phil [Edité le 5/2/2009 par PHILPHIL] FREELANCE Autodesk Architecture 2025 sous windows 11 64 REVIT 24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal
jalna Posté(e) le 5 février 2009 Auteur Posté(e) le 5 février 2009 Salut et merci Il semble avoir un problème avec le lisp ENTRER LE DECALAGE DE TEXTE DE COTE <0>: 1 La AutoCAD met un certain temps il ne se passe rien et quand je fais esc voila le message d'erreur CLIQUER SUR LE(S) COTE(S) A MODIFIER :; erreur: Fonction annulée"\n*** INTERNAL ERROR: VL namespace mismatch\n"" type Y to reset: "*Annuler*; erreur: Fonction annulée "Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."J-C Van DammeMon forum : http://plexus.forumactif.org/
jalna Posté(e) le 5 février 2009 Auteur Posté(e) le 5 février 2009 En suivant l'idée de Tramber, une solution est de faire une sélection rapide de toute ma cotation de dimension 5 et de mettre 4 (espace) en préfixe. "Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."J-C Van DammeMon forum : http://plexus.forumactif.org/
PHILPHIL Posté(e) le 5 février 2009 Posté(e) le 5 février 2009 hello c'est ce foutu code qui n'etait pas passé dans le LISp il faut enlever le blanc entre "< or" et "> or" voir LIsp à corrigé plus haut a+ phil [Edité le 5/2/2009 par PHILPHIL] FREELANCE Autodesk Architecture 2025 sous windows 11 64 REVIT 24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal
Messages recommandés
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 compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant