Raph_38

Je serais également intéressé par la signature des blocs en masse (genre ... signer les blocs situés dans un répertoire) Ou éventuellement le blocage (reste à savoir en quoi consiste le blocage ...)

Intéressant .... je testerais, merci à toi ;)

Question idiote : Vous avez 5 licences 2008 LT dont 1 qui à été upgradé en full 2009, n'auriez vous pas installé la version LT qui a été upgradé ?

Salut, j'apporte ma pierre à l'édifice : :casstet: :casstet: :casstet:

Merci lecrabe !! et hop ! dans ma bibliothèque ;)

Tiens en voilà 2 ! pas sur qu'elles correspondent à ce que tu veux faire :thumbup: Balance USB Balance USB 2

Essaye celui que j'ai mis, il marche pas mal sauf quand les noms de blocs sont trop long. ... dans ce cas, il ne les exportent pas.

Alors, j'ai testé et franchement ..... bof il serait bien plus pratique si l'on avait la possibilité de choisir le répertoire où l'on souhaite exporter les blocs. Là, c'est dans "mes documents" et j'ai mis un certains temps avant de savoir où ils étaient... Pour info, j'utilise un lisp assez sympa que je mets ici (désolé les modos si c'est pas le bon endroits, vous pouvez l'enlever si ça ne va pas) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: WBLK.LSP (C) Ben Olasov olasov@shadow.cs.columbia.edu 1991 ;;; ;;; Writes all blocks references in drawing to specified directory. ;;; ;;; ;;; ;;; To: christian@fs1-3.arch.fh-hannover.de ;;; ;;; From: Ben Olasov ;;; ;;; Subject: Re: ACAD partagiciel ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: WBLK.LSP Copyright (C) Ben Olasov 1991 All Rights Reserved ;;; ;;; Inquiries: ;;; ;;; ;;; ;;; Ben Olasov Lispenard Technologies ;;; ;;; New York, NY ;;; ;;; ;;; ;;; Voice: (212) 274-8506 ;;; ;;; FAX: (212) 979-3686 ;;; ;;; Arpanet: olasov@cs.columbia.edu ;;; ;;; Internet: ben@syska.com ;;; ;;; ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (VMON) (gc) (princ "\nLoading- please wait...") ;; creates wblocks in user-specified path of all blocks in drawing (defun c:wblk (/ dwgpfx blks tmp foo) (setq cmdecho (getvar "cmdecho") dwgpfx (getvar "dwgprefix") output_path (parse_path (userstr (if output_path output_path dwgpfx) "\nOutput blocks to which directory"))) (setvar "cmdecho" 0) (setq blks (cdr (assoc 2 (tblnext "BLOCK" T))) blks (list (cdr (assoc 2 (tblnext "BLOCK"))) blks)) (while (setq tmp (tblnext "BLOCK")) (setq blks (cons (cdr (assoc 2 tmp)) blks))) (foreach X (clean_blklist blks) (if (and (<= (strlen X) 20) (/= (substr x 1 1) "*")) (progn (setq foo (open (strcat output_path x ".dwg") "r")) (if foo (progn (close foo) (princ (strcat "\nDrawing " output_path X " already exists!"))) (progn (princ (strcase (strcat "\nWriting " output_path X ".dwg") t)) (command "_wblock" (strcat output_path X) X)))))) (setvar "cmdecho" cmdecho) 'done) ;; get a user string with default (defun userstr (dflt prmpt / var) ;;DFLT and PRMPT are strings (setq var (getstring (if (and dflt (/= dflt "")) (strcat prmpt " <" dflt ">: ") (strcat prmpt ": ")))) (cond ((/= var "") var) ((and dflt (= var "")) dflt) (T ""))) ;; parse a user's path response (defun parse_path (s / STRL FIRSTC SECONDC LASTC) (cond ((null s) nil) ;; is S bound? ((= s "") s) ;; is S an empty string? (T (setq STRL (strlen s) FIRSTC (substr s 1 1) SECONDC (substr s 2 1) LASTC (substr s STRL 1)) (cond ((= STRL 1) ;; if S has only one character (if (or (= FIRSTC "/") ;; and the 1st char is "/" (= FIRSTC "\\")) ;; or "\\" "\\" ;; return the 1st char (strcat DWGPFX S "\\"))) ;; otherwise prepend DWGPFX ;; and append a "\\" ((or (and (= FIRSTC "/") ;; if the user pathname (= LASTC "/")) ;; looks superficially (and (= FIRSTC "\\") ;; well-formed, return it. (= LASTC "\\"))) S) ((and (/= FIRSTC "/") (/= FIRSTC "\\")) ;; the 1st char isn't / (cond ((= SECONDC ":") ;; is it a drive spec? (if (and (/= LASTC "/") ;; make sure there's (/= LASTC "\\")) ;; a slash on the end (strcat S "\\") S)) ((and (/= LASTC "/") (/= LASTC "\\")) (strcat DWGPFX S "\\")))) (T s))))) ;; removes atom ATM from list of unique atoms LST (defun aux_remove (atm lst) (cond ((null lst) NIL) ((null (member atm lst)) lst) ((equal atm (car lst)) (cdr lst)) (t (append (reverse (cdr (member atm (reverse lst)))) (cdr (member atm lst)))))) ;; removes HATCH references and blocks with names longer than 8 chars (defun clean_blklist (blklist / bl) (setq bl blklist) (if (and bl (listp bl)) (foreach blk bl (if (or (null blk) (= (substr blk 1 1) "*") (> (strlen blk) 20)) (progn (princ (strcat "\nRemoving " blk " from block list.")) (setq bl (aux_remove blk bl)))))) bl) (princ "\nType WBLK to write out all block references to a user-specified directory.") (princ)

Merci pour ce lisp, je l'essayerais voir s'il conviens mieux que celui que j'ai au bureau

Alors, je viens de le tester et : wouaaaaaoooouuuuu, c'est terrible.

je test ton lisp au bureau lundi !! moi qui voulais en faire un ... merci de m'épargner cette épreuve :D un grand merci pour ce petit lisp

Merci énormément (gile) c'est vraiment sympa ! :D je test immédiatement. C'EST PARFAIT !!!! t'es un chef ! [Edité le 16/6/2009 par neptune38]

Salut, j'aurais une requête à faire concernant le super lisp Edit_bloc Voilà ce que je souhaiterais : - Avoir la possibilité de supprimer tous les attributs des blocs du dessin (y compris ceux qui ne sont pas insérés mais en mémoire dans le dessin). explication : Suite à l'utilisation du lisp Edit_bloc_rep, je souhaite "préparer" les blocs que je récupère sur les sites de plusieurs fournisseurs. Ces blocs sont souvent avec des attributs, propre aux fabricants et je veux les supprimer. J'ai donc des fois 50 à 100 blocs dans le dessin et je voudrais automatiser la suppression des attributs. Je pensais à une case à cocher : supprimer les attributs des blocs Voilà (gile), j'espère que tu pourras accéder à ma requête qui m'épargnerais énormément de boulot. Merci.

Ce serait le TOP si les valeurs des fond étaient déjà enregistrées dans le lisp et que l'on ai que le DN à entrer ;)

Merci pour tout, et hop dans ma bibliothèque !

j'ai découvert aussi qu'avec Alt Gr tu peux créer une région (solide 3d) en cliquant dans une zone de ton dessin. dingue ....

j'apporte pas la réponse car pour moi c'était UCSFOLLOW, mais j'ai peut-être une solution : - verrouille la fenêtre comme cela, l'affichage et donc le zoom étendu doit-être normalement bloqué

Merci pour l'info patrick ;)

Test sur AutoCAD 2009 : Profil courant : <> Chemins de recherche : C:\Documents and Settings\dessinateur\Application Data\Autodesk\AutoCAD 2009\R17.2\fra\support C:\Program Files\AutoCAD 2009\support C:\Program Files\AutoCAD 2009\fonts C:\Program Files\AutoCAD 2009\help C:\Program Files\AutoCAD 2009\Express C:\Program Files\AutoCAD 2009\support\color C:\Mes documents\lisp F:\Base Documents\1- Bibliothèque DAO ça fonctionne :) [Edité le 1/6/2009 par neptune38]

Merci lili :)

salut, je dirais même plus, faire un "CONTROLE" et une purge ne peux pas faire de mal ;)

Merci a toi pour cette précision ;)

Je vais surement dire une ânerie mais de mémoire (ça fais quelques années), ce que demande Chris24 (dans la réponse n°3) est exactement ce que réalise Fisacad. Dans FISACAD, tu choisissais, le type de conduit (gaine carrée ou circulaire), l'épaisseur du calo ensuite tu cliquais les 2 extrémités opposée du tube ou de la gaine et le logiciel coupais le conduit en réalisant le calo tels que réalisé dans les images de la réponse n°3. C'est donc faisable mais comment, je suis absolument pas calé pour cela ???

oui

XFADECTL Contrôle le pourcentage d'intensité de l'estompage des références modifiées sur place. Les valeurs autorisées sont comprises entre 0 et 90