Patrick_35

Salut Pako Je sais que l'oncle Sam est juste à coté, ce qui ne facilite pas les choses ;) @+

Bonjour à tous Un exemple pour lire des valeurs dans Excel Pour activer les fonctions visual-lisp (vl-load-com) Lancer Excel (setq xl (vlax-get-or-create-object "Excel.Application")) (vlax-import-type-library :tlb-filename "C:/Program Files/Microsoft Office/Office/Excel8.olb" :methods-prefix "xl-" :properties-prefix "xlp-" :constants-prefix "xlc-") (setq xl_wks (vlax-get xl "Workbooks")) Ouvrir le fichier test.xls sur la racine du c (setq xl_fichier (xl-open xl_wks "c:\\test.xls")) Rendre Excel visible (vla-put-visible xl 1) Choisir la feuil1 du classeur (setq xl_classeur (vlax-get xl_fichier "Sheets")) (setq xl_feuille (xlp-get-item xl_classeur "feuil1")) Choisir la cellule A10 de la feuille (setq rng (xlp-get-range xl_feuille "A10")) Lire la valeur dans la cellule et la mettre dans la variable valeur (setq valeur (vlax-variant-value (xlp-get-value rng))) Fermer le fichier (xl-close xl_wks) Et pour normalement fermer Excel (vlax-release-object xl) Et je ne trouve pas ça top, j'ai quelques soucis avec. Résultat, je ferme excel manuellement, mais je trouverai un jour @+

Salut J’ai eu une fois ce souci de ne pas faire afficher avec Internet les fichiers pdf et il me semble que ça peut être résolu avec les options d’internet (je ne sais plus où exactement, c’est le service info qui m’avait dépanné) @+

Je compatis Tramber, et on est tous passé par là Pour Ludwig Un truc simple, sous dos, tu fais dir *.dwg /on /s /b > fichier.txt Et il ne te reste plus qu'à importer sous excel la liste de tes fichiers (perso, je passe plus par un éditeur de texte avec un rechercher/remplacer, mais les goûts et les couleurs...) http://smileys.smileycentral.com/cat/36/36_1_37.gif @+

En allant dans forum, puis rechercher et comme clé BAK @+

http://smileys.smileycentral.com/cat/36/36_1_6.gif Je n'y crois pas !!! Un québécois défenseur devant l'éternel de la langue française nous demander de se servir d'un logiciel en anglais !!! Je veux bien croire qu'ils sont bilingues mais quand même... http://smileys.smileycentral.com/cat/36/36_6_2.gif - Réfléchir, c'est déranger ses pensées. Jean Rostand @+

SDI=0 --> Active l'interface multidessin. SDI=1 --> Désactive l'interface multidessin. Autrement dit, si SDI=1, un dessin par session d'autocad, un _open "nouv_dessin" ferme obligatoirement l'ancien sans passer par _close Le SDI peut-être défini avant de lancer le script, pas besoin de le redéfinir à chaque fois @+

pour l'explication, oui, c'est exactement cela Et pour être un peu plus précis (setq i (tblnext "block" t)) ; RECHERCHE LA PREMIERE ENTREE DANS LA TABLE DES BLOCS (setq n (cdr (assoc -2 i))) ; SELECTIONNE LA PREMIERE ENTITE QUI COMPOSE LE BLOC (setq n (entget n)) ; RECUPERE LES VALEURS DES ENTITES QUI COMPOSE LE BLOC Autrement, pour le reste, c'est parfait @+

Salut Eric a donné dans son dernier webBlogs ses logiciels préférés dont ConcactPDF @+

Tramber, c'est ce que fait le lisp sans pour autant décomposer le bloc, changer de calque, puis refaire le bloc. Il intervient directement dans la base @+

Salut Il y a déjà eu quelque chose à ce sujet @+

Un lisp qui peut s’avérer utile @+

Faites plus simple avec la variable SDI @+

Salut, Je viens de faire un lisp que devrai te convenir. Il ne met que les blocs qui sont défini dans la base sur la couche 0. Rien n’est changé en ce qui concerne les blocs qui sont déjà insérés (juste pour le calque d’insertion, les entités elles sont redéfinies) ainsi que les attributs qui en découlent, ce qui n’est pas le cas de ceux qui sont déjà défini dans la base. Maintenant, si tu veux aussi changer les couleurs, les styles, etc.., c'est une base de départ @+ (defun c:bl(/ i n tot) (setq i (tblnext "block" t) tot 1) (while i (setq n (cdr (assoc -2 i))) (while n (setq n (entget n)) (if (/= (cdr (assoc 8 n)) "0") (progn (setq n (subst (cons 8 "0") (assoc 8 n) n)) (entmod n) ) ) (setq n (entnext (cdr (assoc -1 n)))) ) (setq i (tblnext "block") tot (1+ tot)) ) (princ (strcat "\nTraitement de " (itoa tot) " bloc(s)")) (princ) )

Et sur un 56K, je n'en parle même pas http://smileys.smileycentral.com/cat/36/36_1_37.gif @+

Bon, je crois que j'ai compris la question au vu des réponses des autres. Je pense que j'ai tout faux. Peut être avec la fonction crtligne des express-tools @+

Salut C'est un fichier texte, un copier/coller peut suffire @+

Salut C'est normal, il te manque des arguments Ta ligne doit se composer par exemple (command "_.linetype" "_load" "type_de_ligne" "fichier_ligne.lin" "") @+

Salut Je viens de regarder ton lisp et je constate que tu fais l'appel aux commandes dans ce style (command "_-style" etc...), fait plutôt un (command "_.style" etc...) car comme ça tu es certain d'appeler la commande d'origine Et pour le _load, je viend de me faire griller par notre ami didier qui doit revenir de vacances je présume @+

Bon, ce n'est pas grave, merci quand même @+

Savomp uhel livioù ar vro ! @+

Tour à fait Eric, tout a fait, sur Autocad, c’est la commande des express-tools Rtext @+

NFC14-100 ????, c'est la norme d'installation de branchement à basse tension (en clair, l'arrivée EDF) De plus, rien n'est gratuit en ce bas monde, surtout tous ce qui concerne les normes. Il faut que tu fasses un saut sur le site de l'afnor @+

Salut C'est la fonction subst Extrait de l'aide Par exemple (setq mon_nouv_texte (subst (cons 1 "NOUVEAU TEXTE") (assoc 1 anc_texte) anc_texte)) Ne pas oublier de faire un entmod sur l'entité pour la mettre à jour et un entupd pour rafraichir à l'écran l'objet @+

Merci Eric, un truc que je cherchais depuis un moment, et tant que j'y suis, tu n'aurais pas quelque chose qui permet de convertir des plt couleurs qui ont été crées sur un photocopieur couleur en pdf ? ça fonctionne bien en n&b et aussi en couleur en sortie traceur ou imprimante, mais pas avec un photocopieur couleur en réseau :( @+