Patrick_35

Salut Pour moi, c'est le double dépassé ;) Je n'ai pas passé le bac, alors... Ben non, il me manque les bases en mathématiques, dû à mon niveau d'études. Je vois à quoi elles peuvent servir, mais je n'arrive pas à les transposer en formules mathématiques. (gile) a bien essayé de m'expliquer, mais je bloque encore. Cela viendra peut-être un jour. Comme tu parles du AND, j'aimerai pousser un peu plus loin la réflexion. Si la valeur du 1er argument du AND est différente de nil, la fonction regarde le deuxième. S'il est différent de nil, la fonction regarde le troisième etc... Donc on peut se dire que AND est une condition indiquant tant que ... et aboutir à ma fonction On peut aussi tenir le même raisonnement avec le OU, qui fonctionne à l'inverse du AND Un exemple pour déclarer une variable s'il elle n'existe pas (or doc (setq doc (vla-get-activedocument (vlax-get-acad-object)))) Ce qui revient à écrire (if (not doc) (setq doc (vla-get-activedocument (vlax-get-acad-object)))) un autre exemple pour tester une boite de dialogue et la lancer (and (setq dcl (findfile "Ma_Boite")) ; Le fichier existe ? (setq dcl (load_dialog dcl)) ; la Bd est chargée ? (fonctions_de_ma_boite) ; Fonctions de la Bd ) @+

Salut Comme je passe dans le coin, je tenais à te féliciter pour ton esprit d'analyse, de déduction et de ta recherche du pourquoi/comment Si tu continue comme ça, tu vas aller très loin et même nous dépasser. Un futur Elpanov Evgeniy :D @+

Salut Scriptor écrit un script ici (strcat (vla-get-path (vlax-get-acad-object)) "/Patrick_35.scr") Qui est ensuite appelé par scriptor puis effacé. Peut-tu me dire si le script existe et s'il est complet ? Pour DUC, c'est du téléchargement dont il est question, et le lisp ne travaille pas comme scriptor. Scriptor est obligé d'ouvrir les dessins un par un. ps : je migre les lisps sur ce nouveau site, et j'en profite pour ajouter une ou deux améliorations. Je trouve que c'est plus facile à gérer et si on souhaite demander quelque chose sur un lisp en particulier, c'est plus facile @+

Salut Et en utilisant ObjectDbx ? @+

Salut lili2006 Le lien que je viens de mettre à disposition est la version 3.0 de jav (gile) Il me semble que ma purge d'échelle fonctionne correctement et en tenant compte des objets annotatifs. Il y a une chose que tu as du voir pour m'inciter à m'inspirer de ton code. @+

Comme chaque sommaire est spécifique à chaque entreprise/agence voir BE, et que j'ai fourni les explications, il ne reste plus qu'à :yltype: @+

Bonjour Merci pour le retour et tes idées BIGC-ROMU Le lisp modifié @+

:D ArnaudOregon Salut J'ai fait un essai avec un fichier en v2000, et aucun problème :o Si l'erreur persiste, merci de me faire parvenir un exemple pour que je regarde de plus prés. @+

Salut (acet-explode (ssget)) @+

Dans le lisp, tu as cette ligne de code (setq doc (vla-get-activedocument (vlax-get-acad-object)) fol "000-1" fdp "PRO_cartouche_A3" ) Dans laquelle tu as la variable fol dans laquelle tu précises l'onglet du sommaire. Tu as aussi la variable fdp dans laquelle tu indiques le nom du bloc cartouche se trouvant sur tes différents onglets En continuant de lire le lisp, on peut voir que le bloc à besoin de l'étiquette "TITRE1", "TITRE2" et "FOLIO" pour remplir le cartouche du sommaire Ensuite, on remarque que le lisp recherche les étiquettes "TITRE#" (le # voulant dire que c'est un chiffre) ainsi que l'étiquette "INDICE#" pour remplir le sommaire. Donc, pour résumer L'onglet du sommaire sera obligatoirement "000-1" (s'il n'existe pas, il sera créé) Que le bloc se nomme "PRO_cartouche_A3" et qu'il contienne comme étiquettes - au minimum TITRE1, TITRE2 INDICE1 FOLIO - au maximum TITRE3 à TITRE9 INDICE2 à INDICE9 Que les blocs cartouche recherchés doivent être insérés en EP Voila, maintenant tu peux adapter le lisp à tes besoins @+

Salut Ben, avec le calva, je comprends ;) Toutes mes amitiés. (vl-list->string '(112 97 116 114 105 99 107 51 53 64 97 108 105 99 101 97 100 115 108 46 102 114)) De rien el decápodo. Il faut prendre le lien de la réponse 3, page 18 (il va falloir que je mette à jour la page principale, mais pas le temps) En général, il suffit de 5/10mn pour répondre à la demande. Dès que cela est plus complexe, pendant l'heure du déjeuner si besoin. @+ [Edité le 8/10/2010 par Patrick_35]

Salut Tu as de la chance que je le retrouve dans mes archives @+

Salut Un sujet à voir. @+

Voila J'avais volontairement bloqué à la racine, mais seul les idiots ne changent pas d'avis @+

e Dans un chemin relatif, il faut une partie de répertoire commune avec le dessin courant. Si tu remontes jusqu'à la racine, que devient la notion de chemin relatif ? Le lisp modifié qui fonctionne maintenant aussi pour les images. ps : j'ai toujours pas compris ton histoire de dessus/dessous @+

Salut Cela me rappelle un coup de gueule. Tous les mêmes. :mad: Ah, la technique. Je songe à utiliser les pigeons voyageurs (hors période de chasse) @+

Salut Lecrabe Rxref redéfinit les chemins absolus des xref en relatif. Je ne comprends pas ce que tu recherches. Je pense que tu as du te tromper de lisp. @+

Salut Ou encore en faisant un rechercher/remplacer avec une sélection; un espace par un point. @+

Tu fais un nouveau filtre de propriétés avec : *|* dans la colonne Nom, puis "Inverser le filtre". Salut Ou encore en choisissant xref et en inversant le filtre @+

à la place des paroles! Y-a-t-il un logiciel qui est désactivé par défaut et qu'il faille réactiver? Ton problème est réglé ? A placer dans un autoexec.bat ;) cela me fait penser qu'avec vista et seven, je ne sais pas si les autoexec.bat et config.sys sont encore d'actualités ? @+

Bonjour Mettez les hauts parleurs à fond :D Pour la voix en français (defun autocad_qui_parle (texte / sapi) (setq sapi (vlax-create-object "Sapi.SpVoice")) (vlax-invoke sapi "Speak" texte 0) (vlax-release-object sapi) ) (defun autocad_qui_parle_debut (rea cde) (autocad_qui_parle (strcat "La commande ," (getcname (strcat "_" (car cde))) " commence")) ) (defun autocad_qui_parle_inconnu (rea cde) (autocad_qui_parle (strcat "Commande inconnu ," (car cde))) ) (defun autocad_qui_parle_cancel (rea cde) (autocad_qui_parle (strcat "La commande ," (getcname (strcat "_" (car cde))) " est abandonnée")) ) (defun autocad_qui_parle_failed (rea cde) (autocad_qui_parle (strcat "La commande ," (getcname (strcat "_" (car cde))) " est interrompue")) ) (defun autocad_qui_parle_fin (rea cde) (autocad_qui_parle (strcat "La commande ," (getcname (strcat "_" (car cde))) " est terminée")) ) (if (not pourrir_la_vie) (setq pourrir_la_vie (vlr-command-reactor nil (list (cons :vlr-commandWillStart (function autocad_qui_parle_debut)) (cons :vlr-unknownCommand (function autocad_qui_parle_inconnu)) (cons :vlr-commandCancelled (function autocad_qui_parle_cancel)) (cons :vlr-commandFailed (function autocad_qui_parle_failed)) (cons :vlr-commandEnded (function autocad_qui_parle_fin)) ) ) ) ) (princ) Ou en anglais (pour ceux qui n'ont pas installé la voix française) (defun autocad_qui_parle (texte / sapi) (setq sapi (vlax-create-object "Sapi.SpVoice")) (vlax-invoke sapi "Speak" texte 0) (vlax-release-object sapi) ) (defun autocad_qui_parle_debut (rea cde) (autocad_qui_parle (strcat "Command ," (car cde) " will start")) ) (defun autocad_qui_parle_inconnu (rea cde) (autocad_qui_parle (strcat (car cde) ", unknow command")) ) (defun autocad_qui_parle_cancel (rea cde) (autocad_qui_parle (strcat "Command ," (car cde) " cancelled")) ) (defun autocad_qui_parle_failed (rea cde) (autocad_qui_parle (strcat "Command ," (car cde) " failed")) ) (defun autocad_qui_parle_fin (rea cde) (autocad_qui_parle (strcat "Command ," (car cde) " ended")) ) (if (not pourrir_la_vie) (setq pourrir_la_vie (vlr-command-reactor nil (list (cons :vlr-commandWillStart (function autocad_qui_parle_debut)) (cons :vlr-unknownCommand (function autocad_qui_parle_inconnu)) (cons :vlr-commandCancelled (function autocad_qui_parle_cancel)) (cons :vlr-commandFailed (function autocad_qui_parle_failed)) (cons :vlr-commandEnded (function autocad_qui_parle_fin)) ) ) ) ) (princ) Et pour faire taire Autocad (vlr-remove pourrir_la_vie) @+

Bonjour Voici un lisp qui permet de lire/écrire une feuille de type Excel par le biais de trois applications possibles. Excel, open Office Ou Sql server Par exemple (or (setq Mon_Appli (lancer_excel)) ; Excel (setq Mon_Appli (lancer_oOo)) ; Open Office (setq Mon_Appli (lancer_ado)) ; SQL ) (liste_fichiers_ouverts Mon_Appli) ; Inutile avec SQL (setq Mon_Xls (ouvrir_fichier Mon_Appli "c:/Test/Test.xls")) (liste_feuilles Mon_Xls) (Feuille_active Mon_Xls) ; Inutile avec SQL (lire_cellule Mon_Xls "Feuil1" "A1") (ecrire_cellule Mon_Xls "Feuil1" "A1" "TOTO") (sauver_fichier Mon_Xls) ; Inutile avec SQL (fermer_fichier Mon_Xls) ; Inutile avec SQL (fermer_appli (list Mon_Appli Mon_Xls)) ps : Il reste un problème à corriger, c'est pour l'écriture d'une cellule via SQL que ne fonctionne qu'en A1 @+

C'est un site de partage. Tu vas y arriver. Il suffit juste de se mettre au lisp et tu verras comment on progresse vite (gile) est un excellent exemple. @+

Salut (setq l (subst (cons 1 "Ma_valeur") (assoc 1 l) l)) (entmod l) @+

C'est la couleur 256 Essaye (acad_colordlg 7 t) et clique sur ducalque, tu auras la réponse 256 Pour dublock, c'est la couleur 0 @+