Bred

:casstet: Ben non... il parle de lisp : la valeur que l'on récupert dans une entité par un assoc n'a rien à voir avec LUPREC .... non ???

Salut et bienvenue !!! Va voir ce message, cela te rassureras !

Salut, tu t'achètes un décodeur, tu gardes facture et boite, tu l'ouvre super proprement, tu test chez toi, si ça marche OK, si ça marche pas, soit ton antenne n'est pas compatible (rare pour totalement incompatible - fréquent pour certaines ondes /M6/NT1/W9), soit tu n'est pas couvert ....

Ha ??? :casstet: sur LT 2004 ça additionne les longueur ? Moi, en version lourde (2006, 07, 08) ça n'additionne que les aires....

Plus sur 2008... et c'est le but de ce post sur 2008...

Là, j'avoue, à part les réacteur de blocs, je ne vois pas comment faire... et moi, les réacteurs, pour l'instant ... Mon extrait de code est juste une manière plus "propre" de créer la liste d'échelle. le lisp de Ashram_666 fonctionne, mais comme j'ai trouver le moyen d'atteindre le dictionnaire d'édition de liste (le début du code de Ashram_666 ) , ce qui n'était pas facile pour moi, j'essaye de le modifier sans passer par les (command..., ce qui est juste un caprice de programmateur.... J'ai des soucis d'aide, mais après quelque test, les variables à modifier pour l'échelle sont les codes dxf 140 et 141.

Ah ben tiens, je la connaissais pas celle là, merci ! En effet le MAJ ne fonctionne pas... dommage ! (même l'ortho 'orthomode" ne fonctionne pas... en fait c'est une fonction différente du déplacer, on pourrais l'appeller "main levée) [Edité le 12/4/2007 par Bred]

J'avoue que personnelement : c'est ça que je trouve ça "ballot" ... Inventor est pareil. C'est (pour moi) de l'ilogisme pur : c'est comme si avant de dessiner un rectangle je déssinais un patatoïde que je transformerais en rectangle en le cotant ...

Excuse moi, je viens de m'apercevoir que je ne t'ai pas donné de solution pour ton problème : Si tu veux modifier la logueur d'une cote, tu peux l'étirer (_stretch) ou tout simplement utiliser les "poignées" ou "grips" qui apparaisse quand tu selectionne la cote (clic dessus, des petits carré apparaissent, et tu peux les faire bouger en les "agripants" avec la souris), ainsi, tu attrape une poignée, puis tu vas dans le sens ou tu veux allonger/rétrécir ta cote, et tu tapes la dimendion d'alongement que tu désirs (de 127 à 150, tu tapes donc 23) et tu valides. Si la valeur de ta cote n'a pas été forcée, elle se modifieras.

Qu'est ce que tu appels "mode de déplacement direct"... j'avoue que pour déplacer, je ne connais que 2 manières : déplacer ou grippes.

Bien sûr ! Autocad n'a pas de cotation paramétable : à la base c'est une "planche à dessin" que tu peux modifier, et donx tricher sur la valeur réelle d'une cote. (en dessin, tu ne dessines pas une cote pour modifier l'objet, tu modifie l'objet pour modifier la cote, avec la possibilité de tricher) Ce n'est pas un logiciel de CAO, mais de DAO.

Salut, oui, tu peux sous 2007. Tu as l'option "Basculement" dans l'outils "balayage" : Base -> Résultat http://www.zimagez.com/miniature/balayage.jpg Ligne de commande :

MAJ fonctionne tout le temps... c'est une "touche de remplacement temporaire" aide 2006 :

Salut, bienvenue, on se calme, Autocad est un fabuleux outils ! Pour modifier la valeur d'une cotation, tu as moulte pssibilités : - par les propriétés (_properties) - par l'éditeur de texte (_ddedit) ... Les cotations ne sont pas figés, tu peux les modifiers tant que tu veux, c'est un objet à part entière ...

C'est le cas ... :casstet: Il y a vraiment quelque chose qui m'échappe dans cette discussion... désolé.

En fait je faisais une erreur : il faut incrémenter une valeur pour le "symbol" dans dictadd ... (je découvre aussi...) (setq dict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST"))) ent1 (entmakex (list '(0 . "SCALE") '(100 . "AcDbScale") '(70 . 0) '(300 . "toto") '(140 . 2) '(141 . 2) '(290 . 1)))) (dictadd dict [b]"Z1"[/b] ent1) puis (setq ent2 (entmakex (list '(0 . "SCALE") '(100 . "AcDbScale") '(70 . 0) '(300 . "uuu") '(140 . 3) '(141 . 3) '(290 . 1)))) (dictadd dict [b]"Z2"[/b] ent2) etc .... donc attention au doublon !!! fonctionne pas sinon ... [Edité le 12/4/2007 par Bred]

merci (gile), j'en tiens compte (edit2). Encore une petite correction : si pas de coordonnées, les ligne de construction restait. (edit3) [Edité le 12/4/2007 par Bred]

Ahhhh !... la question est : si l'on n'a pas l'ortho actif ..... désolé... Je pense qu'il doit y avoir un moyen de rajouter l' "orthomode" dans le menu contextuel clic-gauche (dans personnaliser) ....

Désolé de ne pas tous connaitre, Maximilien... vraiment désolé.... Mais merci pour ce lien.

Edition du code - Correction du bug d'ajustement sur cercle ou arc.

Section forum 2005. La transparence en 2005 j'ai un doute (ça a commencer à la 2007 je crois)

Heu.... tu actives l'ORTHO .... une petite baisse de régime, Patrick ?

Salut, suite à ce message. Ci-dessous une routine permettant d'ajuster les lignes de cotes sur tout type d'objet (ligne, polyligne, spline, cercle ...) L'ajustement se fait même si la ligne à ajuster n'est pas assez longue. Taper adjc pour lancer la commande. - J'ai mélangé du (entmake) avec du (vla-) ... mais là, j'ai pas trouvé .... Edit1 : Correction du bug pour ajustement sur cercle ou arc. Edit2 : Ajout test si coordonnées exite (gile). Edit3 : Correction (suppression ligne de construction si pas de coordonnées). Edit4 : Choix d'une cote comme base d'ajustement. . ; Ajustement lignes de cotes par Fred BONNAUD - ; version 1.4 - (defun c:ajc (/ ACDOC COORD1 COORD2 COT COTE ENT L1 L2 LIN N SEL VLA-COT VLA-LIN COORDT1 COORDT2 W) (vl-load-com) (setq AcDoc (getSpace)) (prompt "Choix des cotes :") (while (not sel) (setq sel (ssget '((0 . "DIMENSION"))))) (while (not lin) (setq lin (car (entsel "\n Choix de la limite d'ajustement (ou cote à reproduire):")))) (if lin (progn (if (equal (cdr (assoc 0 (entget lin))) "DIMENSION") (progn (setq lin (vlax-vla-object->ename (vla-AddLine AcDoc (vlax-3d-point (cdr (assoc 13 (entget lin)))) (vlax-3d-point (cdr (assoc 14 (entget lin)))))) w "oui") ) (setq w nil) ) (repeat (setq n (sslength sel)) (setq cote (ssname sel (setq n (1- n))) ent (entget cote) vla-cot (vlax-ename->vla-object cote) vla-lin (vlax-ename->vla-object lin) l1 (vla-AddLine AcDoc (vlax-3d-point (cdr (assoc 14 ent))) (vlax-3d-point (cdr (assoc 10 ent)))) l2 (vla-copy l1)) (vla-move l2 (vlax-3d-point (cdr (assoc 14 ent))) (vlax-3d-point (cdr (assoc 13 ent)))) (if (and (setq coord1 (vlax-invoke l1 'IntersectWith (vlax-ename->vla-object lin) acExtendBoth)) (setq coord2 (vlax-invoke l2 'IntersectWith (vlax-ename->vla-object lin) acExtendBoth))) (progn (if (> (length coord1) 3) (progn (setq coordt1 (list (caddr (reverse coord1))(cadr (reverse coord1))(car (reverse coord1))) coordt2 (list (car coord1)(cadr coord1)(caddr coord1))) (if (> (distance (cdr (assoc 14 ent)) coordt1) (distance (cdr (assoc 14 ent)) coordt2)) (setq coord1 coordt2) (setq coord1 coordt1)))) (if (> (length coord2) 3) (progn (setq coordt1 (list (caddr (reverse coord2))(cadr (reverse coord2))(car (reverse coord2))) coordt2 (list (car coord2)(cadr coord2)(caddr coord2))) (if (> (distance (cdr (assoc 14 ent)) coordt1) (distance (cdr (assoc 14 ent)) coordt2)) (setq coord2 coordt2) (setq coord2 coordt1)))) (setq cot (entmod (subst (cons 13 coord1) (assoc 13 ent) ent))) (entmod (subst (cons 14 coord2) (assoc 14 ent) cot)) ) ) (vla-delete l1) (vla-delete l2) ) ) ) (if w (vla-delete vla-lin)) (princ) ) ;;;;;;;;;Getspace Retourne l'espace courant (Modèle ou Papier) ; (defun getSpace () (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) ) ) ... j'attends vos remarques !!! [Edité le 17/4/2007 par Bred]

C'est superbe !!!! merci ! :) :) :)

C'est juste pour faire +propre et d'éviter de passer par des (command ...), mais le lisp de Ashram_666 convient tout à fait.