brunomu

Bonjour Forum ! J’ai eu beau chercher sur le site, je n’ai pas trouvé la réponse à une question que beaucoup d’AutoCadiens ont dû se poser : y a-t-il un moyen de changer de SCU avec UCSFOLLOW=1, sans qu’AutoCad impose d’en passer par un zoom étendu (par exemple en gardant le même centre et le même zoom pour la vue après changement de SCU) ? Et si non, est-ce qu’un crack-du-LISP saurait mitonner ça dans sa cuisine (moi je ne saurais pas le faire) ? Merci !

C'est parfait ! Merci du tuyau !!

Bonjour Forum ! C'est malheureusement un peu le souk au bureau dans les fichiers stb. J'aimerais y remettre bon ordre, et pour commencer, comparer l'épaisseur attribuée à chaque style dans chaque stb. J'aimerais donc pouvoir imprimer une table des styles avec leurs caractéristiques, ou mieux : récupérer les valeurs pour les coller dans une feuille Excel. Quelqu'un sait-il s'il existe une manip qui permette de le faire (j'ai essayé de changer l'extension pour .txt, mais le résultat est inexploitable) ? Merci !

Excellentissime ! Bravo et merci !

Merci pour ta réponse. Pour info, je suis sous 2010 sur un nouveau poste.

Bonjour Forum ! Je ne suis pas doué (ou plutôt pas formé) en LISP, mais je sais en bricoler des simples, genre macro-commandes. Mais je ne sais pas pourquoi, certains de mes bons vieux LISPs qui marchaient sous 2004 et encore récemment sur un autre poste sous 2010 ne marchent plus dans mon nouvel environnement. Par exemple, ce code : (defun c:lp () (command "_line" pause "_per")) ne marche plus correctement : il lance bien la commande "_line" (je travaille en anglais) mais ne force pas le mode d'accroche objet en perpendiculaire... Quelqu'un saurait-il expliquer ce phénomène ou est-ce paranormal ? Merci.

Bonjour Forum ! Je rebondis sur ce vieux sujet : j'aimerais de l'aide pour adapter le code de gile, pour qu'il fasse d'une pierre deux coups : – hériter du style de cote – rendre courant le calque sur lequel se situe la cote "source" Quelqu'un peut-il m'aider ? Merci ! ;;; Rend le style de cote de l'objet sélectionné courant (defun c:style_cot (/ echo set1 ent) (setq echo (getvar "cmdecho")) (setvar "cmdecho" 0) (if (and (= 1 (getvar "pickfirst")) (setq set1 (ssget "_i")) (= 1 (sslength set1)) ) (progn (setq ent (ssname set1 0)) (sssetfirst nil nil) ) (progn (sssetfirst nil nil) (while (not ent) (setq ent (car (entsel "\nSélectionnez la cote dont vous voulez rendre le style courant: " ) ) ) ) ) ) (if (= (cdr (assoc 0 (entget ent))) "DIMENSION") (command "_-dimstyle" "_r" (cdr (assoc 3 (entget ent)))) (progn (princ "\nL'objet sélectionné n'est pas une cote.") (exit) ) ) (setvar "cmdecho" echo) (princ) )

Ah oui ! Désolé, j'avais fait un essai rapide, et je n'ai pas compris que les valeurs qui s'affichaient étaient les valeurs de X et pas de Y. Merci pour le tuyau !

C'est pratique, mais ça ne résout pas le problème du SCU (pour le suffixe et la division par 10, ça se règle je pense dans le style de cote).

Bonjour Forum J’ai des problèmes pour faire fonctionner une idée toute simple, destinée à insérer des altimétries sur des coupes (dessinées dans le plan XY), et directement exprimées en NGF. J’ai donc créé un champ qui récupère la coordonnée Y d’un objet de type point. J’insère point et champ, je mets à jour le champ, et ô miracle, l’altimétrie NGF s’insère sous forme de texte. Ô miracle, ou presque, car : problème : la coordonnée Y est exprimée dans le SCG (SCU général), ce qui fait perdre tout intérêt à la démarche. En plus, j’aimerais diviser par 100 la valeur de la coordonnée Y, mais, dans la boite de dialogue, cette possibilité est gelée. Quelqu’un pourrait-il m’aider à résoudre ces problèmes ? Merci ! PS : voilà mon champ %<\AcObjProp.16.2 Object(%<\_ObjId 1934731560>%).Coordinates \f "%lu2%pt2%pr0%ps[, NGF]%zs8">%

...entretemps est apparue la commande MOVEBAK !

Merci à tous pour vos contributions, le résultat est super !

Merci beaucoup pour ton investissement ! La routine SCC marche…presque : quand je sélectionne des entités par une fenêtre, les cotes sont filtrées, mais le jeu de sélection conserve les cotes perpendiculaires à la 1ère cote sélectionnée… Par ailleurs, je ne sais pas comment "implémenter" la version "verbe action".

Merci pour ta réponse (et merci à Bryce aussi). En effet, je n'avais pas compris que tu m'avais compris, mais maintenant je ne comprends pas comment marche ce que tu proposes. Quand j'exécute ta routine, je clique sur une une cote, puis je fais une fenêtre de sélection. Les cotes sont bien filtrées, mais toutes les cotes restent sélectionnées. Moi pas comprendre. Voilà mon code : (defun c:scc () (command "_.move" (ssget '( (0 . "DIMENSION") (-4 . " (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "AND>") ) ) "" ) ) [Edité le 29/3/2011 par gloub]

Ach so ! J'ai compris que nous ne nous étions pas compris. Je souhaite sélectionner non pas toutes les cotes linéaires, mais les cotes colinéaires à une cote, càd les cotes qui prolongent (à droite et à gauche) une cote donnée. Par exemple, si je clique sur la largeur de la salle-à-manger, la routine sélectionne aussi la cote de la cloison de la cuisine et la cote de la cuisine, et la cote du mur entre cuisine et escalier de l'immeuble, et ainsi de suite pour toutes les cotes dont la ligne de cote prolonge la 1ère cote sélectionnée. Merci en tous cas pour tes réponses.

...désolé d'être aussi nul en LISP, mais je sais pas faire !

Merci pour ta réponse. J'avais que c'est un peu au-delà de mes connaissances du LISP. J'ai imaginé qu'il fallait intégrer le code à une routine : (defun c:scc () (sssetfirst nil (ssget "_X" '( (0 . "DIMENSION") (-4 . " (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "AND>") ) ) ) ) Problème : dès que je lance la routine, tout le dessin est sélectionné. J'ai faux où ? Merci !

Bonjour Forum ! Je relance ce sujet qui est en panne : je voudrais, en cliquant sur une cote, sélectionner toutes les cotes qui lui sont colinéaires (que ces cotes soient à touche-touche ou séparées par un vide, comme, par exemple, de part et d’autre d’une cloison non cotée). Problème : je ne sais pas écrire ce LISP. Help !

Ben il se trouve que sur mon poste, XLOADCTL était réglé à 0...

...pour ceux que ce sujet intéresse, j'avais également noté que régler la variable XLOADCTL à 2 peut améliorer la rapidité d'AutoCad quand des xrefs sont utilisés...

Merci à tous pour vos réponses. La purge des échelles d'annotation non utilisées a bien amélioré les choses. Pour ce qui est de la RAM, je suis au max. Pour le passage en 64 bits, je ne sais pas comment on fait...

Bonjour Forum ! Mon ordi devient de plus en plus lent. Le problème semble lié aux xrefs (5 ou 6 fichiers de 1à 3 Mo) Pour lui redonner ses performances de jeunesse, j’ai trouvé une solution, mais elle n'est pas viable à long terme : si je détache les xrefs et si je les réattache, ça marche... ...mais au bout de 15, 20, 30 minutes, l’ordi redevient lent : jusqu’à plusieurs minutes pour afficher la boîte de dialogue des xrefs ! Au point que je détache les xrefs avec la commande –xref, sinon c’est quasi impossible. Quelqu’un pourrait-il m’aider ?!!! Merci !

Merci pour ta réponse. Mon style de cotes s'appelle "COT-FIX" parce que les lignes d'attache ont une longueur réglée une fois pour toutes, mais les cotes bougent (aussi bien leur position que leur longueur, donc la valeur numérique qui s'affiche)... ... ou alors je ne comprends pas ta remarque.

...ça n'inspire personne ?

Merci pour ta réponse, qui m'avait échappé. Avec ta manip, tu arrives à affecter des LISP aux flèches directionnelles du clavier par exemple ?