Patrick_35

Eh bien, si avec tout ce monde le problème n'est pas résolu, c'est à se pendre :D Pour les valeurs à indiquer dans le lisp, j'ai indiqué TOTO qui est le nom de la police qui t’em....e et NOUV_SHX est le nom de la nouvelle police pour remplacer celle qui est introuvable (donc TOTO) Alors, tu remplaces ces deux noms par les tiens et ça devrait fonctionner. Enfin, ce n’est valable que pour le texte, il est vrai que je n’ai pas pensé aux types de lignes. Et je viens de me rendre compte qu'en renommant mon répertoire fonts et en chargeant un dessin, il ne se passe rien.... Laisse tomber mon lisp. J'aurai pourtant juré qu'en chargeant un dessin, il chargeait aussi les polices, mais bon... @+

Salut, tu as encore deux solutions. La première est de copier une police shx et de la renommer en toto.shx (ce n’est pas évident que ça marche du premier coup, certaines polices ne passent pas) La deuxième est d'utiliser le petit lisp qui suit. Il remplace toutes les polices "TOTO" par "NOUV_SHX" (à toi de mettre les bonnes valeurs) Il suffit ensuite d'utiliser le lisp donné dans le lien de Bonuscad, ou encore de purger le dessin (setq n 0 sel (ssget "x" '((7 . "TOTO")))) (while (ssname sel n) (setq ent (entget (ssname sel n))) (setq ent (subst (cons 7 "NOUV_SHX") (assoc 7 ent) ent)) (entmod ent) (entupd (cdr (assoc -1 ent))) (setq n (1+ n)) ) @+

Salut Change de forum pour poser tes questions, ce n'est pas un souci de développement d'après ce que peux constater Va sur le site du fabriquant et met à jour ton driver ou fais un tour sur celui-ci @+

Salut Oui, avec la commande burst dans les express tools @+

Un lisp à la va-vite. Le total se fait sur le premier attribut du bloc sélectionné en addionnant les attributs qui suivent (defun c:tot(/ ent ent_tot n sel total) (setq sel (entsel "\nSélectionnez un bloc de référence : ")) (if sel (progn (setq sel (entget (car sel))) (if (cdr (assoc 66 sel)) (progn (setq total 0 ent (entget (entnext (cdr (assoc -1 sel))))) (while (/= (cdr (assoc 0 ent)) "SEQEND") (setq total (1+ total)) (setq ent (entget (entnext (cdr (assoc -1 ent))))) ) (if (> total 1) (progn (setq n 0 sel (ssget "_x" (list (assoc 2 sel)))) (while (ssname sel n) (setq total 0 ent_tot (entget (entnext (cdr (assoc -1 (entget (ssname sel n))))))) (setq ent (entget (entnext (cdr (assoc -1 ent_tot))))) (while (/= (cdr (assoc 0 ent)) "SEQEND") (setq total (+ total (atof (cdr (assoc 1 ent))))) (setq ent (entget (entnext (cdr (assoc -1 ent))))) ) (setq ent_tot (subst (cons 1 (rtos total)) (assoc 1 ent_tot) ent_tot)) (entmod ent_tot) (entupd (cdr (assoc -1 ent_tot))) (setq n (1+ n)) ) (princ (strcat "\n" (itoa n) " bloc(s) modifié(s)")) ) (alert "Bloc avec un seul attribut.Addition inutile.") ) ) (alert "Bloc sans attributs.") ) ) ) (princ) ) @+

Salut J’ai bien une idée pour résoudre ton problème mais se serait en lisp Tu pourrais faire par exemple un bloc contenant tes cinq attributs et de faire une addition tout simple Les attributs seraient positionnées par exemple à l'aide des grips sur ton plan @+

Et de mémoire, c'était pour des claviers de 84 touches qui sont passées à 102 puis 105 @+

Salut Tramber, Je suis depuis peu comme toi, tu laisses des messages et tu as l'impression qu'il s'en fout. Ce n'est pas grave, c'est lui qui pose les questions, pas nous. @+

Merci pour ton lisp, même s’il est hors sujet, ça permet de comprendre certaines fonctionnalités Il y a juste une chose que je ne comprends pas @+

:D Oui, oui, oui, je suis preneur :D @+

Salut Didier C'est toujours hors sujet, mais essaie d'imaginer ce que donnera l'informatique dans 50 ans On peut imaginer que l'on discutera directement avec une intelligence artificielle ou encore que l'on aura une prothèse pour ne faire place plus qu'à la pensée. On pense, réfléchit, et hop! le plan est fait. C'est transmis à un robot qui réalise. Et puis pas chance, un imprévu et ça plante. Heureusement qu'il reste encore le dos et les vieux de la vieille (zut ! j’ai perdu ma canne...) @+

Salut Didier, On ne change pas les bonnes vieilles méthodes qui ont fait leurs preuves. Connaître le dos apporte un plus incontestable. C’est fini le temps où l’on faisait ses propres batch pour ses applis, les bidouilles quand on ajoute une carte avec les interruptions pour éviter les conflits, etc…sniff… Mais avoue aussi que rediriger une commande sur le prn, je n’avais plus vu ça depuis les pc xt ;) @+

Salut tu fais la commande sous dos --> copy monfichier.plt /b port port = lpt1, lpt2 ou encore \\domaine\adresse ip imprimante @+

Salut C'est la commande _pagesetup et tu as un lisp ici @+

Bonjour à tous Il est possible aussi de faire un filtre sur un jeu de sélection Par exemple, du texte sur le calque 0 dans une fenêtre (setq js (ssget "_w" '(0.0 0.0) '(10.0 10.0) '((-4 . "AND") (0 . "TEXT") (8 . "0") (-4 . "AND>")))) Ou encore du texte et des lignes dans une fenêtre (setq js (ssget "_w" '(0.0 0.0) '(10.0 10.0) '((-4 . "OR") (0 . "TEXT") (0 . "LINE") (-4 . "OR>")))) @+ ps : ajouter un "<" devant le 1er and et or [Edité le 23/8/2004 par Patrick_35]

Merci beaucoup serge @+

Salut Merci pour tes précisions Pour ton fichier, si tu veux que d'autres personnes en profitent, tu peux, soit faire un lien depuis un site perso ou encore l'envoyer au webmaster qui le mettra dans la rubrique téléchargement membres, ou sinon, je t'envoi mon adresse en privé Pour la photo, tu fais de même @+

Salut Je débute en visual lisp et je vient de reussir à écrire ce que je voulais dans une cellule. Je reconnais que ce n'est pas simple, loin de là. Essayer de comprendre entre les vla-machin, les vlax-truc, les appels aux fonctions de l'appliclations et aux propriètés d'autres fonctions. Je mélange et je regarde ce qu'il en sort ;) . Je plaisante, mais ce n'est pas évident. Mais quand ça marche, c'est génial :P . Voir autocad récupérer ses infos pour les rebalancer dans excel, ça m'impressionne autant que ceux qui s'en servent Mais il me reste encore une chose que je n'arrive pas à faire, c'est de faire un save tout simple de mon fichier à partir d'un workbooks. Je réussis bien un saveas, mais si le fichier existe déjà, je n'arrive pas à passer outre de la confirmation d'excel. Il y a bien la possibilité d'effacer ce fichier auparavant, mais bon :( A, encore une chose, je traite aussi les erreurs et je suis surpris d'une chose. On a tout le langage, les doc et les exemples en anglais, et pour traiter les erreurs en français ? @+

Salut Merci, j'arrive aussi à importer mes librairies. Ce qui me dérange, c'est le chemin complet qu'il faut fournir. J'ai eu beau chercher dans les registres, je n'ai rien trouvé de convaincant comme clé,si avec des codes à rallonge, ce qui me fait penser que ce n'est pas forcément identique d'un passerelle à une autre (au fait, je suis sur NT4 avec un autocad 2000) Pour ton excp-put-visible ..., quel est son interêt par rapport au vla-put-visible ... ? Et je vois aussi que tu fais ta liaison directement sur l'excecutable, pas sur le ...8.olb d'excel (je ne me rapelle plus de son nom), et quel interêt ?, passer dune version à une autre et être sur que ça reste compatible ? @+

Bonsoir Serge Merci de ta réponse. J'ai bien essayé le vlax-release-object et pour autocad, c'est nickel, on peut refaire d'autres relations sans problème. C'est dans l'environnement windows où sa pêche. D'ailleur, si tu fais un vla-put-visible excelapp 1 juste après un vla-quit excelapp et même après un vlax-release-object excelapp, tu le revois apparaître, sans une feuille vierge, juste l'appli, mais elle est toujours là :casstet: @+

Bonjour à tous Je lance Excel dans ce style (setq xl (vlax-get-or-create-object "Excel.Application")) (vla-put-visible xl 1) Après toutes mes manip, je quitte Excel (vla-quit xl) Excel disparaît dans ma barre des tâches, mais j'ai la mauvaise surprise en lançant le gestionnaire de tâches de windows et en regardant dans le processus de le retrouver ??? :o Comment faire pour le supprimer définitivement de la mémoire ??? :casstet: Le soucis c'est quand j'arrête le pc, qu'excel est toujours actif, sauf si je termine le processus, mais ce n'est pas le top :mad: @+

Bonjour à tous La fonction tcase n'existe pas sur une 2000 Autrement, il existe la fonction lisp strcase qui convertit en majuscules et minuscules (strcase "azerty") retourne "AZERTY et (strcase "AZERTY" t) retourne "azerty" @+

Exact, et si on l'efface avant, il est donc remplacé @+

Salut Tramber 41 --> Hauteur en unités d'espace papier 45 --> Hauteur de la vue (en unités de l’espace objet) C'est dans le code dxf VIEWPORT (Extrait de l'aide) @+

Salut, La solution n'est pas simple 1) il faut récupérer les extrémités de tes lignes dans la table "block" 2) il faut récupérer la valeur d'insertion de ton bloc 3) il faut faire un calcul trigo pour calculer une valeur d'extrémité en fonction du point d'insertion, tenir compte de l'angle du bloc et faire gaffe au système de scu (avec la fonction trans) @+