Patrick_35

Salut Très beau travail mais orienté indus Ce que te demande JUJUZAZA, c'est pour le tertiaire Un exemple de détecteur optique de fumée 160x160http://img92.imageshack.us/img92/846/dipr1.th.jpg[/img] Sinon, j'aurai juste deux remarques concernant les courbes des disjoncteurs. Les types U et L on été remplacés respectivement par les types C et B Un coube B est un magnétique bas qui permet de doubler la protection contre les ci Il manque tous les disjoncteurs généraux, c'est à dire, pour rester dans la gamme Merlin Gerin, tous les Compacts NS, les Masterpacks et leurs déclencheurs Et de plus, j'ai constaté que tu n'as pas un seul différentiel @+

Le lisp à été modifié suite à un bug dans la création d'une légende selon un gabarit au format dwg La version disponible est désormais la 1.10 @+

Yalta Tu vas être content, le lisp vient d'être corrigé @+

Je pense que ce sujet et celui-ci vont t'interesser @+

Salut Pour les boites de dialogue, tu as essayé le DCL ? @+

Je sais, et je viens de passer sur A2005 et bientôt en A2007 et dès que j'ai un bloc dynamique, je fais la modif @+

Il faut en ajouter plusieurs. Un \ doit donner \\ et un \\ donne un \\\\ En lisp, un \ veux dire que ce qui suit doit être pris comme un caractère

Quand tu fais sur la ligne de commande -traceur, tu suis ce que t'indique autocad et tu vas retrouver lce que je t'ai cité ex : commande:-traceur >Configuration de tracé détaillée? [Oui/Non] : o >Entrez un nom de présentation ou [?] :Présentation1 >Entrez un nom de périphérique de sortie ou [?] :Un traceur >Entrez une taille de papier ou [?] :A4 >etc... Ce qui donne (write-line "(command "_.plot" "o" "Présentation" "Un traceur" "A4" etc... )" fscr) et comme autocad interprète mal dans ce cas les guillemetsdans le command, il faut ajouter un \ devant Ce qui donne (write-line "(command \"_.plot\" \"o\" \"Présentation\" \"Un traceur\" \"A4\" etc... )" fscr) @+

Salut Avec la commande bcount des express tools ou avec ce vieux lisp (vmon) (defun c:compt (/ bloc d a n) (setq en (car (entsel "\nPIQUEZ LE BLOC A COMPTER ..."))) (setq name (cdr (assoc 2 (entget en)))) (princ (strcat "\n-----> " name)) (setq d (cons 2 bl)) (setq a (ssget "x" (list (cons 2 name)))) (if (/= a nil) (progn (setq n (sslength a)) (PRINC (strcat "\nJ'ai TROUVE "(itoa n) " " name " dans le dessin \n")) ) ) (if (= a nil) (prompt "\ DESOLE Aucun bloc dans le dessin !!!") ) ) @+

Salut Oui, mais pour cela, on est obligé de reconfigurer toutes les présentations Sinon, avec ce lisp qui créé un script (defun c:scr(/ fic fscr lst n) (if (setq fic (getfiled "Impression de plusieurs Fichiers - Sélectionnez un fichier cible" (getvar "dwgprefix") "dwg" 16)) (progn (setq lst (acad_strlsort (vl-directory-files (vl-filename-directory fic) "*.dwg" 1)) fscr (open (strcat (vl-filename-directory fic) "\\SCRIPT.SCR") "w") n 0) (while (nth n lst) (write-line (strcat "_.open " (chr 34) (vl-filename-directory fic) "\\" (nth n lst) (chr 34)) fscr) (write-line "(acad-push-dbmod)" fscr) ;======================================================================================= ; Début de Partie personnalisable ;======================================================================================= (write-line "(command \"_.plot\" \"o\" \"Choix Presentation\" \"Adresse du traceur\" \"A3\" \"m\" \"p\" \"n\" \"e\" \"p\" \"c\" \"o\" \"Style de tracé\" \"o\" \"\" \"n\" \"n\" \"o\")" fscr) ;======================================================================================= ; Fin de Partie personnalisable ;======================================================================================= (write-line "(acad-pop-dbmod)" fscr) (write-line "(if (zerop (getvar \"sdi\"))" fscr) (write-line " (command \"_.close\")" fscr) (write-line ")" fscr) (setq n (1+ n)) ) (close fscr) (princ (strcat "\n\tFichier " (vl-filename-directory fic) "\\SCRIPT.SCR créé")) ) ) (princ) ) @+

Je viens d'apprendre quelque chose. :cool: @+

Extrait de l'aide 66 Drapeau de variable attributs-suivent (facultatif, valeur par défaut = 0) ; si la valeur du drapeau d’attributs-suivent est de 1, une série d’entités attribut doit suivre l’insertion et se terminer par une entité seqend. @+

Ah oui, je partais dans le sens inverse. Je ne l'avais pas compris comme ça Merci Bred @+

Il y a du boulot http://smileys.smileycentral.com/cat/36/36_1_53.gif @+

Moi aussi je fais parti des anciens les bras m'en tombent http://smileys.smileycentral.com/cat/36/36_1_60.gif @+

Extraire les attributs d'un bloc, rien de plus facile, rechercher des bloc imbriqué est une autre histoire, et je pense que l'on parle pas exactement de le même chose pour récupérer les attributs d'un bloc, tu les sélectionnes d'abord dans le dessin et non dans la base de données Ensuite, tu regardes si le code 66 du bloc existe pour dire que des attributs suivent Si oui, tu fais une boucle dont tu ressortiras les attributs avec leurs valeurs grace a un premier entnext sur le bloc et ensuite des entnext qui se suivent et dont le dernier se nommera '(0 . SEQEND) @+ http://smileys.smileycentral.com/cat/36/36_1_40.gif

Facteur zoom xp = 1m (EO) / Echelle (ex: 1/50-->50)= 0.02 , ce qui donne pour les anciens 2cm/mètre @+

Même le "crabinou" se met au lisp :cool: @+

Salut C'est ce que tu recherches ? (vla-get-path (vlax-get-acad-object)) @+

Salut (gile) J'ai testé ta routine et ça ne fonctionne pas. J'ai copie un bloc et j'ai créé un rectangle autour. Je transforme le tout en bloc nommé 1 en transformant les entités en bloc. J'ajoute un rectangle, je recréé un bloc nommé 2, je continu pour un faire un troisième. Je fais un (setq a (tblsearch "block" "3")), puis un (setq b (entget (entnext (cdr (assoc -2 a))))), histoire de voir que tout se passe bien, puis un (entnext (cdr (assoc -1 b))) juste pour voir le b loc imbriqué et je trouve la réponse en nil ? C'est ce qui me fait dire que ça ne fonctionne pas @+

Cela, je le comprends même très bien, mais tu as accès dans ce cas directement aux attributs et il est donc inutile de faire une recherche sur des blocs imbriqués @+

Salut Tu as aussi cette solution @+ [Edité le 26/7/2006 par Patrick_35]

Salut Une chose m'échappe dans ta demande. Que veux tu faire des attributs dans des blocs imbriqués alors que l'on ne peut y avoir accès ? @+

Salut Pour être certain que se ne soit pas visible, je passerais par un code du type article --> 045E, code 558Z, etc... et un lisp qui ferait la traduction qui pourrait rester en interne. La solution des attributs invisible peut être valable pour quelqu'un qui ne bidouille pas et pour des infos qui ne doivent pas être trop confidientiel @+

Salut Sans passer par le lisp, tu inséres avec redéfinition ton nouveau bloc avec les bonc attributs et ensuite, tu te sert de battman des express tools @+