bryce

Bonjour, Si tu ne veux pas trop t'embêter avec l'extraction d'attributs sur une LT, tu peux tester ScanDXF. Démo:

Bonjour, Un p'tit vite fait: (defun C:RELIE ( / ss i ligne sp ep pts ) (if (setq ss (ssget '((0 . "LINE")))) (progn (repeat (setq i (sslength ss)) (setq ligne (entget (ssname ss (setq i (1- i)))) sp (cdr (assoc 10 ligne)) ep (cdr (assoc 11 ligne)) ) (if (< (car sp) (car ep)) (setq pts (cons (list sp ep) pts)) (setq pts (cons (list ep sp) pts)) ) ) ; repeat (setq ss nil pts (vl-sort pts '(lambda (a b ) (< (caar a) (caar b )))) ) (repeat (1- (length pts)) (entmake (list (cons 0 "LINE") (cons 10 (cadar pts)) (cons 11 (caadr pts)))) (setq pts (cdr pts)) ) ; repeat ) ; progn ) ; if ss (princ) )

Il n'y a aucun fichier joint à ton message de 12:58 ! :P Tu les as envoyés en message privé ?

En effet, ça évite des soucis d'il y a des présentations non initialisées.

Sinon avec (command) ça fonctionne bien : (defun c:vpai (/ *error* acdoc layouts oldcmdecho action ss clayout) ; Brice Studer, février 2011 ; mise à jour juin 2013 ; Permet d'activer toutes les fenêtres de toutes les présentations du dessin, ; ou de toutes les désactiver (en choisissant éventuellement de garder actives ; certaines fenêtres de la présentation active). (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)) layouts (vla-get-Layouts acdoc) ) (defun *error* (errmsg) (command nil nil nil) (vla-EndUndoMark acdoc) (setvar "CMDECHO" oldcmdecho) (setvar "NOMUTT" 0) (and errmsg (or (member (strcase errmsg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " errmsg)) ) ) (princ) ) (initget "Activer Désactiver") (setq action (getkword "\nEntrée pour désactiver toutes les fenêtres ou [Activer]: ")) (if (= action "Activer") (setq action "_on") (progn (setq action "_off") (princ "\nSélectionnez les fenêtres à garder actives (Entrée pour aucune): ") (setq ss (ssget '( (0 . "VIEWPORT") ))) ) ) (vla-StartUndoMark acdoc) (setq oldcmdecho (getvar "CMDECHO") clayout (getvar "CTAB") ) (setvar "CMDECHO" 0) (setvar "NOMUTT" 1) (vlax-for lay layouts (if (eq :vlax-false (vla-get-ModelType lay)) (progn (vla-put-ActiveLayout acdoc lay) (command "_.-vports" action "_all" "") (if (/= 0 (getvar "CMDACTIVE")) (command nil nil nil) ) );progn );if layout not model );vlax-for lay (setvar "CTAB" clayout) (if ss (command "_.-vports" "_on" ss "") ) (*error* nil) ) (princ "\nCommande à utiliser: VPAI") (princ)

Fauxsuisse, je crois que tu as oublié les pièces jointes. ;)

Bonjour, (ssget "_X" '((8 . "NOMDUCALQUE"))) :unsure:

Bonjour, Bizarre en effet, je viens de voir que j'ai la même erreur sur la 2014 sur un code qui fonctionnait sur les versions précédentes... :unsure: Tu es sur quelle version ?

Bonjour, Qu'entends-tu par "le point le plus proche de chaque bloc" ? - distance entre le point de base du bloc et le point ? - distance 3D, ou distance projetée dans le plan XY ?

Bonjour, Essaie avec ceci (petite modif vite faite du code de (gile), les blocs ne seront plus filtrés d'après leur nom): (defun c:att_add (/ att lst tag add ss n) (if (and (setq att (car (nentsel "\nSélectionnez un attribut à modifier: "))) (setq lst (entget att)) (= (cdr (assoc 0 lst)) "ATTRIB") (numberp (read (cdr (assoc 1 lst)))) (setq tag (cdr (assoc 2 lst))) ) (if (and (setq add (getreal "\nEntrez la valeur à ajouter ou soustraire: ")) (princ "\nSélectionnez les blocs à modifier.") (setq ss (ssget '((0 . "INSERT")))) (setq n 0) ) (while (setq blc (ssname ss n)) (setq att (entnext blc) lst (entget att) ) (while (= (cdr (assoc 0 lst)) "ATTRIB") (if (and (= (cdr (assoc 2 lst)) tag) (numberp (setq val (read (cdr (assoc 1 lst))))) ) (progn (entmod (subst (cons 1 (rtos (+ val add))) (assoc 1 lst) lst ) ) (entupd blc) ) ) (setq att (entnext att) lst (entget att) ) ) (setq n (1+ n)) ) ) (princ "\nL'objet sélectionné n'est pas un attribut.") ) (princ) )

Bonjour, Le lisp en question part du principe que l'attribut ALT est le 2e attribut du bloc. Dans ton dessin, il est en 1ère position. Tu peux utiliser le gestionnaire d'attributs (BATTMAN) pour passer l'attribut ALT du bloc PTTOPO en 2e position avant d'utiliser le lisp. ;) Sinon tu peux utiliser le lisp suivant: http://www.creao.fr/uploads/lisp/majZ.lsp

Bonjour, Dans l'onglet Paramètres de la boîte de dialogue "Édition des références", il y a une case "Verrouiller les objets qui ne sont pas dans le jeu de sélection". Est-elle cochée ?

Bonjour, Je n'ai pas fait de tests particuliers, mais en théorie ça doit revenir à peu près au même en termes de performances graphiques (à condition que les calques soient bien gelés, pas seulement désactivés). L'ouverture du fichier par contre sera probablement plus longue si les xrefs ne sont pas déchargées, et la quantité de mémoire occupée plus importante.

Bonjour, Les variables système sont normalement enregistrées et restaurées avec le profil.

Bonjour, Ce ne serait pas plutôt des cotes annotatives associées à 2 facteurs d'échelle ? <_<

Bonjour, La carte affichée en fond d'écran n'est pas imprimable, malheureusement... :(

Bonjour, Essaie de synchroniser les blocs après modification, avec ATTSYNC ou BATTMAN. Pour ton problème d'extraction, pourrais-tu poster un dessin en exemple ?

Bonjour, Tu peux trouver plein de tests sur le web, où tu verras que la GTX 660 est plus puissante qu'une GTX 650 Ti, elle-même très largement meilleure qu'une GTX 650. Exemple: http://www.surlix.com/fr/pc/classement-complet-cartes-graphiques.php http://www.choixpc.com/cartevid.htm#recap D'après ces liens: - la GTX 660 est classée 15e (score 140) - la GTX 650 Ti BOOST est 26e (score 122) - la GTX 650 Ti est 36e (score 102) - la GTX 650 est seulement 67e (score 72). En ce qui me concerne, j'ai une GTX 560 Ti (25e, score 119) depuis un an et ça tourne très bien. Si je devais acheter une carte aujourd'hui, ce serait probablement une GTX 660, qui me semble le meilleur compromis performances/prix. Si tu veux économiser au maximum, j'ai vu des 560 Ti neuves pour 100 euros sur Leboncoin. ;)

Bonjour, Tu as des espaces au début de chaque ligne à partir de la 3e, il faut les enlever. ;)

Non non, a priori c'est juste que le pgp n'avait pas été rechargé après y avoir remis les alias qui manquaient(la question mystère, c'est comment se sont-ils volatilisés...). ;)

Bonjour, Ca devrait être corrigé si tu retélécharges la version la plus récente. ;) Ca peut se faire, c'est même une bonne idée. Je suis en déplacement, je verrai ça en fin de semaine.

Entre 75 et 80°C en pointe pendant le rendu (ventilateur stock sur le processeur modulé par la carte mère, et un seul ventilo de boîtier à très faible vitesse)...

Bonjour, A titre de comparaison, 8mn pile avec un I5 3570K OC à 4.2GHz (ventilo Intel d'origine). http://cjoint.com/?CEklRDQ002m

Bonjour, Tu as peut-être une ligne vide qui traîne dans la partie "Commandes finales", dans le 2e onglet. Tu as lancé le script sur les 900 fichiers d'un coup ?

Bonjour, A mon avis: - la GTX 650 n'est pas un bon choix, pour quelques euros de plus une GTX 650 Ti sera bien plus performante. Un tout petit peu plus cher mais encore mieux, une GTX 660. - les I7 n'ont pas vraiment d'intérêt, un I5 fait presque aussi bien (4 cores physiques dans les 2 cas). Un I5 3570K peut facilement s'overclocker un peu, même avec le ventilo d'origine, et dépasser un I7 plus cher. - personnellement, je dirais que 8Go de RAM peuvent suffire si le budget est un problème (c'est ce que j'ai, et en ouvrant un assemblage de 650 pièces dans Inventor, plus de 50% de la RAM est encore libre). Un exemple de config que je conseillerais: I5 3570K 8 ou 16 Go RAM GTX 660 SSD 120Go + DD 1To 904€ avec la licence Windows 8, 814€ sans, 753€ avec 8Go RAM et sans licence Windows http://www.topachat.com/pages/configomatic.php?z0=in10058398&z1=in10058917&z3=in10065066&z4=in10064639&z5=in10063847&z6=in10056043&z10=in10048047&z11=in10067177&z20=lg10007648