bryce

Salut ;) C'est probablement parce que tu travailles dans une vue en plan (une vue correspondant à une face du ViewCube). Essaie après être passé en vue iso ou avoir fait une orbite. Drôle d'idée qu'ils ont eue chez Autodesk...

Oui, il suffit d'"encapsuler" le code dans une instruction (defun) : ;) (defun C:BLCAL ( / calques calque blocs bloc i) (setq calques (list (cons "LB" "-CF-TERB-CFA-SUR") (cons "SERRURE ELECTRONIQUE" "-CF-TERB-CFA-SUR") (cons "CAMERA" "-CF-TERH-CFA-SUR") (cons "RONDIER" "-CF-TERB-CFA-SUR") (cons "BLOC PORTE" "-CF-TERB-AM") )) (if (setq blocs (ssget "_X" '( (0 . "INSERT") )) ) (progn (setq i -1) (repeat (sslength blocs) (setq bloc (entget (ssname blocs (setq i (1+ i))))) (if (setq calque (cdr (assoc (cdr (assoc 2 bloc)) calques))) (entmod (subst (cons 8 calque) (assoc 8 bloc) bloc)) ) ) ) ) )

Salut, Voici un exemple de Lisp pour transférer les blocs sur les bons calques: (setq calques (list (cons "LB" "-CF-TERB-CFA-SUR") (cons "SERRURE ELECTRONIQUE" "-CF-TERB-CFA-SUR") (cons "CAMERA" "-CF-TERH-CFA-SUR") (cons "RONDIER" "-CF-TERB-CFA-SUR") (cons "BLOC PORTE" "-CF-TERB-AM") )) (if (setq blocs (ssget "_X" '( (0 . "INSERT") )) ) (progn (setq i -1) (repeat (sslength blocs) (setq bloc (entget (ssname blocs (setq i (1+ i))))) (if (setq calque (cdr (assoc (cdr (assoc 2 bloc)) calques))) (entmod (subst (cons 8 calque) (assoc 8 bloc) bloc)) ) ) ) ) Il faut bien sûr compléter la liste de correspondances bloc/calque au début du code... S'il y a beaucoup de fichiers à traiter, tu peux utiliser un script pour appliquer ce Lisp à tous les fichiers. Ce script sera plus facile à créer en utilisant un générateur de script comme SAS ou Sequence

(gile), je me permets de te corriger car je crois que tu as oublié de renommer certaines variables : (defun alloff (/ layer elst color) (while (setq layer (tblnext "layer" (not layer))) (setq elst (entget (tblobjname "layer" (cdr (assoc 2 layer)))) color (cdr (assoc 62 layer)) ) (if (< 0 color) (entmod (subst (cons 62 (- color)) (cons 62 color) elst)) ) ) )

Pour utiliser les fonctions Visual Lisp, il faut d'abord les charger avec (vl-load-com) Si tu ne veux pas utiliser ces fonctions, tu devrais aussi pouvoir t'en tirer avec (command): (setq expert (getvar "expert") (setvar "expert" 1) (command "_-layer" "_off" "*" "") (setvar "expert" expert) Et pour activer un calque: (command "_-layer" "_on" "nomducalque" "")

Bonjour, Pour désactiver tous les calques: (setq calques (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))) (vlax-for calque calques (vla-put-LayerOn calque :vlax-false) ) Pour activer un calque: (vla-put-LayerOn calque :vlax-true)

Salut ;) C'est faisable en Lisp, si tu n'es pas sur LT. Tu utilises quelle version ? Au passage, tu aurais dû poster ton message dans la section du forum correspondant à ta version d'AutoCAD, plutôt que dans "CADxp, comment ça marche?"... ;)

Salut ;) Ça vient peut-être de la variable TASKBAR (la mettre à 0 si elle est à 1) ? :unsure:

Salut ;) Je propose ceci : ^C^C$M=_laymcur;\_-layer;_f;*;;_setbylayer;_all;;_n;_y;_layerp;clayer;$M=$(getvar,clayer)

J'avais mis un encastrement en haut, et un appui sans frottements en bas. Voici l'image de la déformation (cas n°2, la flèche du haut est la gravité): http://nsa27.casimages.com/img/2011/12/02/111202072821364181.png Mais je ne suis pas sûr que le calcul par éléments finis soit très fiable pour une section aussi petite par rapport à la longueur...

Il n'y a que l'option Monochrome qui pouvait bugger, peut-être que tu ne t'en sers pas... ;)

Salut, J'ai fait une simulation FEM rapide sur Inventor, avec la matière acier par défaut. Pour le cas n°2, il me sort une flèche de 136mm. Pour le cas n°4, 19mm.

Sensationnel, non... Mais moins "bordélique" que les barres d'outils, oui. Le Ruban est enfin devenu réactif dans la 2012, et depuis personnellement je préfère le Ruban aux anciennes barres d'outils. Affiché en mode réduit il prend peu de place, et il suffit d'afficher en même temps les menus déroulants au cas où... Mais bien sûr, rien ne vaudra jamais le clavier ! :P Oui, mais c'est un poil plus compliqué que pour les barres d'outils. Sinon, tu peux aussi mettre tes boutons dans une palette d'outils. Un seul clic suffit, l'icône Mesurer une distance est présente par défaut dans l'onglet Début du Ruban... :blink:

Bonjour, Tu peux par exemple utiliser l'Enregistreur d'actions, voir l'exemple dans ce sujet: http://cadxp.com/index.php?/topic/33756-comment-creer-un-lisp-qui-remplace-une-macro/page__view__findpost__p__182274

Bonsoir, Ce serait plus simple je pense l'Enregistreur d'actions. Le nom donné à la macro d'actions peut ensuite être tapé comme une commande standard. Voici un petit exemple en vidéo:

C'est sans doute lié à la carte graphique... C'est la même sur les 2 postes ? L'accélération matérielle est activée sur les 2 postes ?

Ton lien pointe vers une version buggée, pourrais-tu le supprimer stp ? J'ai déjà posté un peu plus haut un lien vers la version corrigée: http://www.creao.fr/uploads/lisp/xgray.lsp

Bonjour, Peut-être la variable CULLINGOBJ ? Essaie de la mettre à 0... :unsure:

Bonjour, Il y avait une petite coquille en effet... <_< Tu peux le retélécharger, c'est corrigé normalement: http://www.creao.fr/uploads/lisp/xgray.lsp

Fichier > Importer..., choisir comme type de fichier AutoCAD DWG/DXF, et cliquer sur le bouton "Options..." à droite dans la boîte de dialogue.

Bonjour, Quand tu importes le DWG dans SketchUp, il faut cliquer sur le bouton "Options..." dans la boîte de dialogue Ouvrir. Tu pourras alors spécifier l'unité du dessin AutoCAD. ;)

Bonjour, Pour désactiver la bulle d'info qui indique le calque, la couleur et le type de ligne de l'objet sous le réticule, mettre ROLLOVERTIPS à 0.

Oui, j'ai regardé trop vite, j'ai modifié mon message juste avant que tu ne répondes... J'ai ouvert ton dessin et je n'arrive pas à reproduire le problème (je suis sur AutoCAD 2012). <_< Le Service Pack 1 est-il installé sur ton poste ?

Ok... C'est normal, tu ne devrais pas donner la 3e paire de points. La commande Aligner demande 3 paire de points dans le but d'aligner des objets en 3D. Quand on travaille en 2D, on donne: - le 1er point de départ, et le point d'arrivée correspondant - le 2nd point de départ, et le point d'arrivée correspondant - quand il demande le 3e point de départ, on appuie sur Entrée pour accepter l'option par défaut (Continuer) - on répond Oui ou Non quand il demande si on veut faire une mise à l'échelle. ;) PS: Oups désolé, j'avais mal regardé les captures, et je viens de voir que tu fais les choses correctement. Je vais regarder le dessin...

Bonjour, C'est bien sûr faisable en écrivant un programme en Lisp. Est-ce que c'est un besoin fréquent ? Avec des équations différentes, ou toujours la même ? Ça pourrait se faire aussi en utilisant Excel pour générer une liste de points à importer ensuite dans AutoCAD.