Patrick_35

Waou..., c'est génial Cela ouvre des horizons, reste à savoir où trouver ces instructions comme le "Scripting.FilesystemObject" Après quelques recherches, j'ai trouvé pour le fun (vlax-invoke-method (vlax-get-or-create-object "WScript.Shell") "SendKeys" "{CAPSLOCK}") (vlax-invoke-method (vlax-get-or-create-object "WScript.Shell") "SendKeys" "{NUMLOCK}") ps: dans le lisp que tu donnes, il y a un And qui est inutile @+

Là, c'est du spécifique et il va falloir te mettre au lisp. Pour la variable, je ne sais pas, mais ça me fait penser au fonctions DCL. Tu peux créer ta boite de dialogue et ensuite, faire réagir le programme. Tu as pleins d'exemples sur se site @+

Et si tu cherches un lisp pour remplacer un/des bloc(s) par un autre, tu peux regarder ce post @+

Salut pour construire un bloc en autolisp Définition du bloc (entmake (list (cons 0 "block") (cons 2 "MON_BLOC") (cons 70 64) (cons 10 '(0.0 0.0 0.0)))) Des lignes, texte, etc... qui contituent le bloc (entmake (list (cons 0 "LINE") (cons 100 "AcDbEntity") (cons 10 '(0.0 0.0 0.0)) (cons 11 '(10.0 0.0 0.0)))) (entmake (list (cons 0 "TEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbText") (cons 40 2.5) (cons 72 1) (cons 73 2) (cons 10 '(0.0 0.0 0.0)) (cons 1 "TEXTE"))) et pour dire que le bloc est fini (entmake '((0 . "endblk"))) @+ [Edité le 18/7/2006 par Patrick_35]

Oui, oui, c'est moi qui n'est pas bien saisi sur le moment @+

Salut Utilise la commande _.sysvdlg des express tools @+

Ou d'utiliser ce lisp @+

2) La fonction layfrz gèle les entités dans les xrefs 3&4) C'est le commencement et c'est pour t'indiquer où ça se trouve, mais je ne doute pas que tu t'en serviras et que tu les aurais trouvé d’une manière ou d’une autre ;) @+

Salut bonus J'ai essayé ton lisp et j'ai juste trois ou quatre remarques 1) Je suis surpris que le dessin soit complètement dégelé, même pour les xrefs 2) Impossible de geler une entité sur un xref 3) Pour éviter un (command "_.regenall"), tu peux utiliser (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports) ou son équivalent (vla-regen (vla-get-activedocument (vlax-get-acad-object)) 1) 4) Pour éviter un (command "_.undo" "_begin") et un (command "_.undo" "_end"), tu peux utiliser un (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) et un (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) Mais ça fait plaisir de te voir enfin franchir le pas. :) Je sens que bientôt tes lisps vont décoiffer un peu plus @+

C'est que le bloc n'est pas pris en compte J'ai refait un test en attendant et ça fonctionne correctement J'ai juste changé (setq Nom_bloc "ETICDC" Eti_X "CDC" Eti_Y "SOL" Eti_Z "NGF"), c'est un bloc que j'ai pris au hazard daons mon dessin Il faut d'abord charger le lisp (avec _appload par exemple) puis lancer la commande pour activer les réacteurs --> mpt Si tu souhaites pour une raison ou une autre désactiver les réacteurs, tu fais la commande spt @+

Salut Bouge le bloc voir si l'attribut se met à jour @+

Oui et non, il est possible de l'insérer, et les coordonnées du bloc s'inscrivent automatiquement dans les attributs @+ [Edité le 17/7/2006 par Patrick_35]

Et pourquoi pas ne pas se servir de ce type de logiciel Ou mieux encore avec celui-ci mais, il est payant @+

Regarde la réponse N°4, tout est expliqué @+

Salut Quelque chose comme ça, puis avec un copier/coller @+ (vl-load-com) (setq bls (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))) (setq dest (strcat (getvar "dwgprefix") "Liste_Bl.txt") fic (open dest "w")) (vlax-for bl bls (if (eq (vla-get-isxref bl) :vlax-false) (if (not (eq (vl-string-elt (vla-get-name bl) 0) 42)) (write-line (vla-get-name bl) fic) ) ) ) (close fic) (princ (strcat "\nEcriture du fichier " dest " pour le(s) nom(s) de blocs")) (princ)

Salut Tu peux utiliser la commande _lman des express tools @+

Salut Tu peux te servir de bibles qui se trouve en téléchargement membres, ou alors, plutôt que de passer par un bloc pour l'avancement, pourquoi de pas utiliser la commande solide ou faire une polyligne avec une certaine épaisseur ? @+

Salut Un petit lisp pour mesurer facilement sur Autocad (defun c:mes (/ pt1 pt2 tot) (setq tot 0) (if (setq pt1 (getpoint "\nPremier point : ")) (while (setq pt2 (getpoint pt1 "\nPoint suivant : ")) (setq tot (+ tot (distance pt1 pt2))) (princ (strcat "\n Distance cumulée : " (rtos tot) " --> Distance mesurée : " (rtos (distance pt1 pt2)))) (setq pt1 pt2) ) ) (princ) ) @+ [Edité le 13/7/2006 par Patrick_35]

C'est pour cela que je te parle d'un maitre d'oeuvre qui est là pour normalement coordonner le chantier et veiller à se que tout se déroule normalement. Mais il ne faut pas réver, si tu ne passe pas régulièrement sur le chantier regarder ce qui se fait, tu vas au devant de mauvaises surprises Il y a toujours de petits problèmes à régler. La dernière en date, c'est un collégue qui fait construire et il à fait appel à un constructeur qui founit le tout clé en main, on est juste bon à payer. Et bien, sur la dalle béton, il a clouté dans les gaines électriques pour les faire tenir :o . on croit réver, un clou dans une gaine élec pour la maintenir. C'est strictement interdit. Du couup, il refuse et fait un recommandé. D'ailleurs, toujours, avec son fameux électricien, il pose la laine de verre et lui présice de ne surtout pas tailler dans sa laine et de passer ses gaines élec avant ou de se débrouiiler autrement. Croit-tu qu'il pris en compte ce qu'a dit mon collèque. Et en un coup de cutter et un bout de scotch, roule ma poule et merci pour le pont thermique :mad: Donc, quand on fait construire, il faut surtout passer voir comment cela se déroule, même si on ne passe qu'une demi heure @+

Salut Je pense que le mieux, mais pas forcement le moins chère est de choisir un maitre d'oeuvre et ensuite, soit des artisants qu'il peut conseiller ou mieux, ses propres artisants. Le plus simple est de demander dans le voisinage où tu fais construire ta maison quel sont les bons/mauvaix artisants et de te forger une bonne idée de leur réputation. J'ai rénové une longère et on ma conseillé le maçon, le plombier et le menuisier extèrieur et je n'ai eu qu'à m'en féliciter. Par contre, on a choisi comme couvreur, un affilié MAIF, et que de déboires, et heureusement que l'on m'a bien conseillé sur la toiture et la manière de faire, sinon je n'explique pas les ennuis Il faut se dire qu'un artisant à une réputation à tenir dans le coin où il travail et que s'il a du mal à bien se faire connaître au début, le bon travail fini toujours par payer. Par contre, s'il travail mal, c'est comme une trainnée de poudre, cela se sait très vite. @+

Salut Regarde ce sujet

Salut (gile) Je pense que c'est un peu plus court ;) @+ (if (setq sel (car (entsel))) (progn (setq sel (entget sel)) (if (eq (cdr (assoc 0 sel)) "LWPOLYLINE") (progn (setq sel (append (vl-remove-if '(lambda (x) (= (car x) 10)) sel) (reverse (vl-remove-if-not '(lambda (x) (= (car x) 10)) sel)))) (entmod sel) ) ) ) )

Hugh, petit ribbit qui cours dans la prairie :cool: Le VLX n'est pas trop conseillé pour la simple raison que tu définis le bloc ainsi que les attributs à prendre en compte par les réacteurs du lisp Le Nom_bloc est comme son nom l'indique, la variable qui définit le nom du bloc qui est à prendre en compte par les réacteurs. Du même que l'étiquette Eti_X pour que le réacteur inscrive la valeur X du bloc, Eti_Y pour la valeur Y et donc logiquement, l'Eti_Z pour la valeur Z Oui, à condition que le lisp soit chargé Oui, les valeurs X,Y et Z du bloc Oui, si c'est publié en clair, c'est pour que tout le monde en profite ;) @+

C'est à tester car dans ton instruction, je ne vois pas d'erreur @6

Encore une question, le bloc n'est pas déjà dans le dessin lors de la première insertion et si c'est le cas, un test dans la table des blocs pourrait éviter le problème @+