PHILPHIL

hello sur EXCHANGE AUTODESK il y a les deux programmes qui existent pour 6 dollars ils fonctionnent tres bien et c'est pas le perou a+ phil

hello Gile peux tu retirer les deux posts au dessus qui doivent emcombrer maintenant que j'ai trouvé la solution je laisse ici le lisp qui marche pour qui ca peut interesser MLP.LSP merci a toi Gile pour la boite de dialogue a+ Phil

hello y aurait il des pros de la boite de dialogue pour mon petit soucis ? que je comprenne en emme temps ouiii j'ai trouvé merci phil

salut gile

hello patrick merciiii heu non je suis pas aussi bon que toi en lisp pour tout comprendre j'avais bien bidouillé un peu avant de demander de l'aide, mais ca pas été concluant merciii a+ phil

hello patrick j'ai testé, et ca ne fonctionne pas en suivant tes indications, ca me met une erreur dans le lisp en fait, car il n'y a rien a traiter dans le "if" merci de ton aide a+ phil

hello gile est ce que tu pourrais apporter un modification a ton LISP "IMPORT" en permettant de selectionner plusieurs fichiers sources ou meme un repertoire et donc les fichiers *.dwg du repertoire ? bon soirée phil

hello meme en désinstallant Laylocksel a partir de windows, autocad ne voulait pas se lancer j'ai restauré windows avat l installe et c'est bon autocad fonctionne, mais je n'ai pas laylocksel bon week end phil

hello gille moi sur autocad architecture je viens de l'installer et ca plante "erreur fatale" direct j'avais installer la version d'avant avec startsetup = 3 ca me mettais un message d'erreur au chargement mais je pouvais utiliser autocad pour tester je suis passé a startsetup =2 et installé ta derniere version j'ouvre ce soir et ca plante direct, meme pas acces a autocad pour tester starsetup = 3 plus d'autocad si tu pouvais remédier merci phil

bonjour est ce que certains aurait des fichiers *.dwg sur les boites d'attente accier STABOX pour en faire des blocs merci bonne soirée phil

hello petite mise a jour quand les cotes ont des points d'accroches en Z different de zero le lisp permet de remetre les cotes sur le plan z=zero un peu comme un "flatten" on pourrait aussi décider de forcer le Z si besoin. est ce utile pour certains ? bonne soirée Phil REC.lsp

HELLO ca marche sous toutes les versions mais il fallait orienter le scu en fonction de la vue. j'ai rajouté en début l’obligation de sélectionner un ligne qui oriente le scu en fonction du sens de lecture du texte des cotes, il faut que cette ligne soit parallèle ou perpendiculaire aux lignes de cotes. ca devrait mieux fonctionner maintenant fonction d appel : REC bonne journée bonne année Phil

hello mdrrr, il etait pour qui le "bisou" le patron ou la patronne ? et vous avez des portes d'entrée de ccombien en suisse? 120, sinon les chevilles vont pas passer pour un bureau technique ca va pas etre top pour lui depuis vous l'avez recu, pour les croisants ? a+ Phil

hello comme c'est un LISP de patrick que j'ai modifié je le met ici normal c'est lui l auteur j'ai modifié MIM.LSP pour qu'il propage les fichiers *.ctb ( et seulement les fichiers *.ctb )dans les presentations pour donner MCTB.LSP par contre je n'arrive pas a filtrer que les fichiers *.ctb, il prend aussi les fichiers *.STB si on choisi par erreur un *.STB, ca marque une erreur mais ne fait pas planter autocad merci patrick a+ Phil MCTB.dcl MCTB.LSP

hello Gilles Merciiiiiiiii ca marche impec (tu as de nouvelles applis en route pour EXCHANGE, ou des mises a jour peut etre ? ) a+ Phil

hello Gilles désolé ca ne fonctionne pas, il y a bien un zoom, mais pas de sélection d'entités, et encore moins la demande d'un point a un autre a+ Phil

hello gilles est ce que chez toi ton lisp "ETCP" fonctionne correctement sous autocad 2015? ( ca marchait sous autocad 2014 ) moi il fait bien un zoom bien sur la polyligne sélectionnée mais ne sélectionne pas les entites qui sont a l intérieur, puis il sort sans rien proposé est ce une histoire de "command" qu'il faut modifier en "command-s" ? (defun c:etcp (/ ent elst plst) (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (setvar "osmode" 0) (and (setq ent (car (entsel))) (setq elst (entget ent)) (= "LWPOLYLINE" (cdr (assoc 0 elst))) (setq plst (mapcar (function (lambda (x) (trans (cdr x) ent 1))) (vl-remove-if-not (function (lambda (x) (= (car x) 10))) elst) ) ) (command "zoom" "ob" ent "") (command "_.stretch" "_cp") (mapcar 'vl-cmdf plst) (command "" "") (command "_.erase" ent "") ) (setvar "osmode" osm) (princ) ) merci bonne journée Phil

hello dfbiagio d'accord pas de probleme j'ai relu ta question et si tu relis ma réponse tu verras que j'ai ecris "atoF" (FFFFF) et pas "atoI" un petit café ?? bonne journée phil

hello essai "atof" convertir une chaine en un nombre réel a+ phil

hello au prix ou coute la souscription, et voyant comment ca rame de plus en plus et ne voyant rien de transcendant dans les nouveautés ils peuvent faire les deux, et le multiprocesseur et direct x ils peuvent donner le MAX d'eux meme quand nous ont donne le max de nous meme pour dessinner a+ Phil

bonjour Gilles a croire que cette version 2015 de autocad est une vraie M.... 50% des lisp ne fonctionnent plus y compris ce lisp et je la trouve nettement plus lente alors que j'ai changer de pc la version tout lisp fonctionne, mais n'importe qu'un seul filtre a la fois l'autre version ne fonctionne plus sur la 2015, mais pourtant importait plusieurs filtres a la fois voici l'erreur que j'ai sur une 2015 Commande: IMPFLTR ; erreur: no function definition: GETFILES merci Phil

hello Gile ca date comme Lisp mais aurais tu du temps pour améliorer ton lisp je cherche un lisp pour renommer des calques en masse un bout de nom "*aaaa*" remplacer par "*bbb*" aussi bien dans un fichier, que dans plusieurs fichiers de differents sous répertoire mais ca pourrait servir aussi pour les blocks et autres puis le mettre sur exchange ensuite merci Phil

hello sous la version 2015 une routine ( de gile )de plus qui ne marche plus pourquoi ?? Mr totodesk a réécrit tout autocad ou quoi ?? pour que plus rien ne marche (defun c:etcp (/ ent elst plst) (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (setvar "osmode" 0) (and (setq ent (car (entsel))) (setq elst (entget ent)) (= "LWPOLYLINE" (cdr (assoc 0 elst))) (setq plst (mapcar (function (lambda (x) (trans (cdr x) ent 1))) (vl-remove-if-not (function (lambda (x) (= (car x) 10))) elst) ) ) (command "zoom" "ob" ent "") (command "_.erase" ent "") (command "_.stretch" "_cp") (mapcar 'vl-cmdf plst) (command "" "") ) (setvar "osmode" osm) (princ) ) j'ai le droit a ca comme réponse Commande: ETCP Choix de l'objet: VVC: Internal ErrorVLIDE merciiiii a+ phil

hello moi je dirai qu'il manque le zero en deuxieme erreur pour composer tous les nombres a+ phil

HELLO PATRIC dans ta reponse 5 ton programme permet d'importer des style "ACAD_MLEADERSTYLE" par quoi je remplace ca pour importer des style de cote ? merci a+ phil