yusukens82

Justement, c'est pour ça que je te demande un scan écran pour que je voie ou est cette fonction. Cette fonction a peut être était déplacé, en aillant l'image je pourrai peu être t'aider

De base, que fais-tu dans la vie ? Es-tu architecte ? Je me pose cette question depuis pas mal de temps car je te vois dans la plupart des topic. Cela doit prendre pas mal de temps non ? Je sais que plusieurs archis ont déjà mal à dégager du temps pour faire des week-ends de 2 [Edité le 6/6/2009 par yusukens82]

Bonjour, C’est moi ou la variable XCLIPFRAME se fixe à 2 à chaque redémarrage du programme sous AutoCAD 2010 ?

Perso, je ne vois pas du tout de quoi tu parles, peux tu faire une scan écran ? dans la gestion des mises en page, je ne vois pas l'option "traçage ombrage" peut etre parce que je suis en 2010? je ne vois pas non plus : Filaire Masqués Réaliste ... etc

Ah oui, Une autre solution sans passer par une routine: C’est allé dans Style de texte, et rendre tous les styles identiques. C’est un peu arracher par les cheveux tu vas me dire. Sinon par routine c'est effectivement plus simple et rapide mais la, je ne peux pas t'aider (nul dans ce domaine)

tu veux mettre une des couches du mur composé à l'horizontale ? pourquoi ne pas utiliser un : (sol, dalle, plafond) ?? puis attacher à la géométrie

il suffit de modifier ton palier intermédiaire et lui donne la forme désiré

Salut, je te propose d'utilise la routine de Gile (Special_selections ou SSMatch) voir : http://www.cadxp.com/sujetXForum-14737.htm pour sélectionner tous les textes. les textes sélectionné, il suffit d'allé dans propriétés et donne un style de texte à l'ensemble des entités sélectionné.

Salut et bienvenue dans le forum. Tu veux créer une polyligne d'un ilot ? (exemple contour d'une cuisine avec détection automatique ?) Si oui : Tu crées tout d'abord un calque avec les renseignements "type de ligne" et "couleur" et épaisseur de trait" Tu rends le calque comme courant T’utilise la commande "CONTOUR" et tu clics sur ton ilot. Un contour en polyligne sera crée avec les propriétés de ton calque [Edité le 5/6/2009 par yusukens82]

Génial, génial. Chaque nouveau projet, je passe un temps fou à modifier 1par1 chaque Texte et Attribut. Ces routines est une eau bénite. Un grand merci à tous.

merci beaucoup, je viens de tester la routine, la barre de commande me renvoit le message suivant : Commande: test ; erreur: no function definition: SETTATTVALUE

Salut, Aucune intervention de l'utilisateur, la valeur de l’attribut « NOM » du bloc « CartouchePC » sera prédéfinie dans la routine selon le nom de l’onglet. Dans mon exemple : - l’onglet PRE1, la valeur de l’attribut « NOM » sera toujours « CAD01 » - l’onglet PRE2, la valeur de l’attribut « NOM » sera toujours « CAD02 » - l’onglet PRE3, la valeur de l’attribut « NOM » sera toujours « CAD03 »

Dessolé, je ne comprend vraiment rien au lisp. ou dois-je insérer insérer ces textes ? ;;; GetAttValue ;;; Attribue une valeur de un attribut ;;; ;;; Arguments ;;; blk : le nom d'entité du bloc ;;; tag : le nom de l'étiquette de l'attribut ;;; val : la valeur à attribuer (defun SetAttValue (blk tag val / lst loop) (if (setq ss (ssget "_X" '((0 . "INSERT") (2 . "CartouchePC") (410 . "PRE1")))) (setq block_ename (ssname ss 0)) ; le nom d'entité du bloc ) (SetAttValue block_ename "NOM" "CAD01") (setq lst (entget (entnext blk)) loop (= "ATTRIB" (cdr (assoc 0 lst))) ) (while loop (if (= (strcase tag) (cdr (assoc 2 lst))) (progn (entmod (subst (cons 1 val) (assoc 1 lst) lst)) (setq loop nil) (entupd blk) ) (setq lst (entget (entnext (cdr (assoc -1 lst)))) loop (= "ATTRIB" (cdr (assoc 0 lst))) ) ) ) )

Je vais déjà essayer de changer la valeur d'un attribut avec GetAttValue Donc selon le lien de Gile : http:// http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=23000#pid98650 Si je change les Arguments : ;;; blk : le nom d'entité du bloc ;;; tag : le nom de l'étiquette de l'attribut ;;; val : la valeur à attribuer Par les valeurs de mon bloc attribut, j’obtiens : (defun SetAttValue (CartouchePC NOM CAD01 / lst loop) (setq lst (entget (entnext CartouchePC)) loop (= ATTRIB (cdr (assoc 0 lst))) ) (while loop (if (= (strcase NOM) (cdr (assoc 2 lst))) (progn (entmod (subst (cons 1 CAD01) (assoc 1 lst) lst)) (setq loop nil) (entupd CartouchePC) ) (setq lst (entget (entnext (cdr (assoc -1 lst)))) loop (= "ATTRIB" (cdr (assoc 0 lst))) ) ) ) ) La routine ne renvoi aucune erreur, mais ne modifie pas non plus la valeur du bloc attribut. (je sens avoir fais une grosse boulette)

génial, j'ai ensuite adapter selon mes besoins, la phase 2 est maintenant satisfait. je vais essayer de réaliser la phase 3

RE, le code en entier pour la phase2 rectifié pour ne prendre que les onglets : (defun c:test (/ ss n txt elst str) (and (setq js (ssget "x" (list (cons 0 "mtext") (cons 67 1)))) (setq n 0) (while (setq txt (ssname ss n)) (setq elst (entget txt) str (cdr (assoc 1 elst)) ) (while (vl-string-search "08" str) (setq str (vl-string-subst "supprim" "08" str)) ) (entmod (subst (cons 1 str) (assoc 1 elst) elst)) (entupd txt) (setq n (1+ n)) ) ) (princ) ) dans mon fichier : http:// http://yusukens.free.fr/CADXP/CartouchePC.zip ou j'ai bien des MTEXT dans les onglets, si je lance la routine, Autocad me renvoit le message : Commande: test ; erreur: type d'argument incorrect: lselsetp nil

Patrick; Si je comprends bien, il est possible de ne pas chercher dans l'espace OBJET, Par déduction, j'ai remplacé (setq ss (ssget "_X" '((0 . "MTEXT")))) Par (setq js (ssget "x" (list (cons 0 "mtext") (cons 67 1)))) Mais ça ne doit pas être correct car du coup, la routine me renvoie une erreur

Bonjour, merci pour vos réponses. J’essaye avec tous vos conseils, de sortir cette fameuse routine, mais avec mes onces de connaissance dans ce domaine je vous avouerez que je n’y arrive pas ! Pouvez-vous m’aider à écrire cette routine? pour vous faciliter la tâche, je joins un fichier avec 6 onglets : - les 3 premiers représentent l’état brut avant la routine - les 3 d’après sont les résultats de cette fameuse routine http:// http://yusukens.free.fr/CADXP/CartouchePC.zip Voila comment je vois le déroulement de la routine : Phase 2) - Activer l’onglet "PRE1" - Rechercher le MTEXT valeur "08" et remplacer par valeur "supprim" - Activer l’onglet "PRE2" - Rechercher le MTEXT valeur "12" et remplacer par valeur "supprim" - Activer l’onglet "PRE3" - Rechercher le MTEXT valeur "50" et remplacer par valeur "supprim" NB : Pour cette phase2 j’ai adapté à 1% une routine trouvé dans le forum, mais le problème est qu’il remplace également les valeurs MTEXT dans l’espace OBJET : (defun c:test (/ ss n txt elst str) (command "PRESENTATION" "E" "PRE1") (and (setq ss (ssget "_X" '((0 . "MTEXT")))) (setq n 0) (while (setq txt (ssname ss n)) (setq elst (entget txt) str (cdr (assoc 1 elst)) ) (while (vl-string-search "08" str) (setq str (vl-string-subst "supprim" "08" str)) ) (entmod (subst (cons 1 str) (assoc 1 elst) elst)) (entupd txt) (setq n (1+ n)) ) ) (princ) ) Phase 3) - Activer l’onglet "PRE1" - Sélectionner le bloc "CartouchePC" et remplacer la valeur "CADXP" par "CAD01" - Activer l’onglet "PRE2" - Sélectionner le bloc "CartouchePC" et remplacer la valeur "CADXP" par "CAD02" - Activer l’onglet "PRE3" - Sélectionner le bloc "CartouchePC" et remplacer la valeur "CADXP" par "CAD03"

buster les rams ? :cool: ici quand j'appuie sur F1, l'aide s'affiche en 0.01 sec VISTA x64 8GO ram Intel 2.33Ghz

Bizarre ici nous avons pas ce problème. je connais pas la solution mais je pense qu'un réinstalle est nécessaire.

Charger un fichier 1 par 1 (je ne sait plus comment c'était avant) mais il est encore possible de décharger et recharger plusieurs xref en mm temps. il suffit de sélectionner plusieur xref et faire clic droit ==> décharger ou recharger

Bonjour Dans mon travail, il m'arrive très très souvent de faire une manipulation très fastidieuse alors que je sais qu'il est possible de passer par une routine, mais étant nul en lisp et VBA, je me tourne vers vous pour demander de l'aide. pour monter cette routine, j'ai définie 3 phases : Phase 1) Activer une fenêtre de présentation : cela reste simple, j'ai donc réussi à l'écrire : (command "PRESENTATION" "E" "Présentation1") Phase 2) Ecrire une routine pour effectuer la commande RECHERCHER avec les options : http://www.trinh-dota.com/Photo/recherche.jpg Phase 3) Selectionner le bloc nommé "CartouchePC" et changer la valeur de l'attribu "Nom" de ce bloc. (Chaque onglet a ce même bloc avec un nom différent") http://www.trinh-dota.com/Photo/cartoucheATT.jpg Merci de votre aide, [Edité le 3/6/2009 par yusukens82]

J'ai trouvé, ou plutôt je me souviens. ce n'est ni une routine ni une application, juste une manipulation. il suffit d'allé dans la gestion des calques. puis faire Ctrl+A et Ctrl+C sous Excel Ctrl+V voila, il suffit d'y penser parfois.

Bonjour, Il me semble avoir vu un jour une routine permettant d'exporter la liste des CALQUES vers un fichier Excel. Mais je n'arrive plus à mettre la main dessus. Je ne sais plus si c'est un lisp ou si c'est une application intégré à AutoCAD. Avez-vous une idée ? Merci

Magnifique Gile, vraiment. cela fait très longtemps que je voulais avoir un lisp comme ça.